在线等--如何在VB中读取WORD的字符属性？

Question

如何在VB中读取WORD的字符属性？
要求不打开WORD。如：
在窗体上单击，第一个字的字体、字号、颜色就可以打印出来。

Answer 1

MsgBox "字体：" & ActiveDocument.Words(1).Font.Name & vbCrLf & "大小:" & ActiveDocument.Words(1).Font.Size

Answer 2

你的问题好奇怪。干脆问不开机运怎么读word中字体。

Answer 3

可能是我说得不好。
我的意思是不能让WORD文档窗口出现。

Answer 4

Private Sub Form_Click()
   Set obj = GetObject("*.doc", "word.document.8")
   Set win = obj.activewindow
   Set se = win.Selection
   MsgBox se.Font.Size
End Sub
如果要显示word窗口，用CreateObject

Answer 5

只要将word应用程序对象的visible属性设为false即可。