我是个工作狂

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://ch21st.blogbus.com/logs/67374.html

引用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