Hi GB,
Sub GetBuiltInDocumentPropertiesX()
Dim pDcm As DocumentProperty
Dim lNum As Long
' for ease of testing
ActiveDocument.Range.Delete
For Each pDcm In ActiveDocument.BuiltInDocumentProperties
lNum = lNum + 1
Selection.TypeText Format(lNum, "000 ") _
& pDcm.Name & vbCrLf
Selection.TypeText Format(lNum, "000 ") _
& ActiveDocument.BuiltInDocumentProperties(lNum).Name & vbCrLf
Next
End Sub
>but what is 'format' for example?
Good question.
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Vista Small Business, Office XP