感谢您使用微软产品。您可以使用Word.Application.BuiltInDocumentProperties属性获得Doc文档的属性信息。请参考以下代码:
Set wapp = CreateObject("Word.Application")
Set wdocs = wapp.Documents
Set wdoc = wdocs.Open("C:\test.doc")
wapp.Visible = True
Text1.Text = Text1.Text & "作者:" & wdoc.BuiltInDocumentProperties(WdBuiltInProperty.wdPropertyLastAuthor) & Space(2)
Text1.Text = Text1.Text & "标题:" & wdoc.BuiltInDocumentProperties(WdBuiltInProperty.wdPropertyTitle) & Space(2)
Text1.Text = Text1.Text & "创建时间:" & wdoc.BuiltInDocumentProperties(WdBuiltInProperty.wdPropertyTimeCreated) & Space(2)您可以参考以下文章学习如何获得不同的属性:
BuiltInDocumentProperties Property
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/woproBuiltInDocumentProperties.asp微软全球技术中心 VB技术支持
本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。