Group: microsoft.public.word.vba.general
From: Helmut Weber
Date: Wednesday, February 20, 2008 11:10 AM
Subject: Re: Built-in properties

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

Safety Articles | Usenet Groups | Usenet News | Bluegrass