获取word文档信息

来源: BlogBus 原始链接: http://blogbus.com:80/blogbus/blog/diary.php?diaryid=67374 存档链接: https://web.archive.org/web/20040818163820id_/http://blogbus.com:80/blogbus/blog/diary.php?diaryid=67374

获取word文档信息 引用Word 对象 Private Sub ReadInfo() On Error Resume Next Dim oWord As New Word.Application Dim sFile As String Dim i List1.Clear sFile = File1.Path & "" & File1.FileName oWord.Documents.Open sFile, , True, False With oWord.ActiveDocument List1.AddItem "AppName: " & .BuiltInDocumentProperties(wdPropertyAppName) List1.AddItem "Author: " & .BuiltInDocumentProperties(wdPropertyAuthor) List1.AddItem "Bytes: " & .BuiltInDocumentProperties(wdPropertyBytes) List1.AddItem "Category: " & .BuiltInDocumentProperties(wdPropertyCategory) List1.AddItem "Characters: " & .BuiltInDocumentProperties(wdPropertyCharacters) List1.AddItem "CharsWSpaces: " & .BuiltInDocumentProperties(wdPropertyCharsWSpaces) List1.AddItem "Comments: " & .BuiltInDocumentProperties(wdPropertyComments) List1.AddItem "Company: " & .BuiltInDocumentProperties(wdPropertyCompany) List1.AddItem "Format: " & .BuiltInDocumentProperties(wdPropertyFormat) List1.AddItem "Format: " & .BuiltInDocumentProperties(wdPropertyFormat) List1.AddItem "HyperlinkBase: " & .BuiltInDocumentProperties(wdPropertyHyperlinkBase) List1.AddItem "Keywords: " & .BuiltInDocumentProperties(wdPropertyKeywords) List1.AddItem "LastAuthor: " & .BuiltInDocumentProperties(wdPropertyLastAuthor) List1.AddItem "Lines: " & .BuiltInDocumentProperties(wdPropertyLines) List1.AddItem "Manager: " & .BuiltInDocumentProperties(wdPropertyManager) List1.AddItem "MMClips: " & .BuiltInDocumentProperties(wdPropertyMMClips) List1.AddItem "Notes: " & .BuiltInDocumentProperties(wdPropertyNotes) List1.AddItem "Pages: " & .BuiltInDocumentProperties(wdPropertyPages) List1.AddItem "Paras: " & .BuiltInDocumentProperties(wdPropertyParas) List1.AddItem "Revision: " & .BuiltInDocumentProperties(wdPropertyRevision) List1.AddItem "Security: " & .BuiltInDocumentProperties(wdPropertySecurity) List1.AddItem "Slides: " & .BuiltInDocumentProperties(wdPropertySlides) List1.AddItem "Subject: " & .BuiltInDocumentProperties(wdPropertySubject) List1.AddItem "Template: " & .BuiltInDocumentProperties(wdPropertyTemplate) List1.AddItem "TimeCreated: " & .BuiltInDocumentProperties(wdPropertyTimeCreated) List1.AddItem "TimeLastPrinted:" & .BuiltInDocumentProperties(wdPropertyTimeLastPrinted) List1.AddItem "TimeLastSaved: " & .BuiltInDocumentProperties(wdPropertyTimeLastSaved) List1.AddItem "Title: " & .BuiltInDocumentProperties(wdPropertyTitle) List1.AddItem "VBATotalEdit: " & .BuiltInDocumentProperties(wdPropertyVBATotalEdit) List1.AddItem "Words: " & .BuiltInDocumentProperties(wdPropertyWords) End With oWord.ActiveDocument.Saved = True oWord.Quit Set oWord = Nothing End Sub shannon 发表于 04:01:06 | 引用Trackback(0) | 编辑 我真的很佩服你，多多向你学习 zn1314 ( ) 发表于 04:01:06 17:30