在word里如何生成级结构图(500分) (200分)

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #1

我知道在中文word里可以用styles,但如果是别的语言的word呢。
有没有统一的方法？
Selection.Style = ActiveDocument.Styles("标题 1")
Selection.TypeText Text:="asdfsadfsadfas"
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles("标题 2")
Selection.TypeText Text:="123123123"
Selection.Style = ActiveDocument.Styles("标题 3")
Selection.TypeText Text:="123123123123"
Selection.TypeParagraph
Selection.Style = ActiveDocument.Styles("标题 3")
Selection.TypeText Text:="123123123123"

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #2

哦？你试过其他语言的Word吗？有什么问题？

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #3

在英文的word里 可以这样吗
ActiveDocument.Styles("标题 3")

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #4

那你用英文的关键字试一下。
中文word应该支持英文关键字吧。我猜想。

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #5

英文的关键字是什么啊

 

T

Tense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #6

有统一的方式，查下msdn

 

D

djflying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #7

使用常量吧.
selection.style=Activedocument.styles(wdstyleHeading1)//一下子忘了是不是wdstyleHeading1,到vba查一下吧

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #8

agree djflying,
wdStyleBodyText = $FFFFFFBD; //正文
wdStyleHeading1 = $FFFFFFFE; //标题一
wdStyleHeading2 = $FFFFFFFD; //标题二
wdStyleHeading3 = $FFFFFFFC; //标题三
wdStyleHeading4 = $FFFFFFFB; //标题四
wdStyleHeading5 = $FFFFFFFA; //标题五
wdStyleHeading6 = $FFFFFFF9; //标题六
wdStyleHeading7 = $FFFFFFF8; //标题七
wdStyleHeading8 = $FFFFFFF7; //标题八
wdStyleHeading9 = $FFFFFFF6; //标题九

在word2000.pas或者wrod97.pas中有关于所有出现在字体选择框左边的那个格式框
的常量.想知道是否正确可以用
//假设你设当前的style为wdStyleHeading1
var
s : OleVariant;
begin
s := wordapp.Selection.Get_Style;
edit2.text := s.NameLocal;//得到"标题一"
end;

 

D

djflying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #9

同意楼上的
呵呵，bluerain人真不错，写的很详细！

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #10

MSword,s:: OleVariant;
begin
MSWord := CreateOLEObject('Word.Application');
MSWord.Documents.Open(FileName:='c:/test.doc', ReadOnly:=false
MSWord.Visible := 1;
s := MSWord.Selection.Get_Style;
edit2.text := s.NameLocal;
MSWord.Selection.Get_Style;
end;
出错：ole对象不支持Get_Style方法

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #11

我用的是delphi的那几个word控件,如果用teoleobject方法的话,直接用
MSWORD.Seleciton.Style就可以了.

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #12

sorry
是我自己搞错了 谢谢大家

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #13

请bluerain,djflying到这里拿走分数，谢谢
http://www.delphibbs.com/delphibbs/dispq.asp?lid=795517