Dim oProps As Object For Each oProps In ActiveDocument.CustomDocumentProperties If oProps.Name = "Version" Then Debug.Print "Version : "; oProps.Value Exit For End If Next
For Each propCustom In WordDoc.CustomDocumentProperties
Sub test() Dim WordApp As Word.Application Set WordApp = CreateObject("Word.Application") WordApp.Visible = False Dim WordDoc As Word.Document Set WordDoc = WordApp.Documents.Open("f:\test.doc", , True) Dim propCustom As Word.CustomProperty Debug.Print WordDoc.CustomDocumentProperties.Count & " variables found" For Each propCustom In WordDoc.CustomDocumentProperties If propCustom.Name = "VersionRI" Then Debug.Print "VersionRI = " & propCustom.Value Exit For End If Next WordDoc.Close (False) WordApp.Quit End Sub
Sub test() Dim WordApp As Word.Application Set WordApp = CreateObject("Word.Application") WordApp.Visible = False Dim WordDoc As Word.Document Set WordDoc = WordApp.Documents.Open("f:\test.doc", , True) Dim propCustom As Object Debug.Print WordDoc.CustomDocumentProperties.Count & " variables found" For Each propCustom In WordDoc.CustomDocumentProperties If propCustom.Name = "VersionRI" Then Debug.Print "VersionRI = " & propCustom.Value Exit For End If Next WordDoc.Close (False) WordApp.Quit End Sub