[求助]急！高手请进：如何提取word文档中的信息？

HeYunYi

我想用delphi(或VBA)提取word文档中的全部常规信息，比如页面设置，标题的字号和字体，段落缩进，是否设置分栏.....

各位大虾，有什么好建议啊，很急啊，吐血等待！

konggs

欢迎新朋友。

VBA是面各对象的。

你没有对象，只是或者，好像不太好办.

HeYunYi

多谢大虾指出问题。我的愿意是如果能用VBA提取就用它来提取，如果有些信息不能提取，是否有其他办法来提取？

兄台，VBA能提取几乎所有的常规信息吗？我看论坛里好像讲的都是怎么操作word文档里面的东西，没有提及如何提取里面的信息。

请指点！

[此贴子已经被作者于2005-12-13 20:06:40编辑过]

konggs

你上面说的大都是对象的属性

很容易提取的.

HeYunYi

比如，提取页眉的属性，页眉内容是什么？页眉是否居中？是什么字体、字号？颜色如何？

这些都能提取吗？

konggs

Sub 孤独二叶()
'提取页眉的属性，页眉内容是什么？页眉是否居中？是什么字体、字号？颜色如何？
Dim a As Range
'页眉的内容
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
'页眉是否居中
If ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter Then
MsgBox "居中"
Else
MsgBox "不是居中"
End If
'后面自己看,不加注释了
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Name
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Size
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.ColorIndex
End Sub

HeYunYi

恩，我明白了，多谢您，konggs！

拜谢中....