Prev: Styles: Applying a style to one paragraph changes whole document
Next: normal style???
From: GG on 30 Mar 2010 09:21
I want to print out all the fields in custom properties as a page. Is there a
way?
Thanks, GG
From: Graham Mayor on 30 Mar 2010 09:44
You can do so with a macro

Sub PrintCustomProperties()
Dim oProperty As DocumentProperty
Dim oDoc As Document
Dim PropDoc As Document
Dim oRng As Range
Set oDoc = ActiveDocument
Set PropDoc = Documents.Add
PropDoc.Range.ParagraphFormat.TabStops.Add InchesToPoints(2)
For Each oProperty In oDoc.CustomDocumentProperties
Set oRng = PropDoc.Range
oRng.Collapse wdCollapseEnd
oRng.Text = oProperty.Name & vbTab & oProperty.Value & vbCr
Next oProperty
PropDoc.PrintOut
PropDoc.Close
End Sub

http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


"GG" <GG(a)discussions.microsoft.com> wrote in message
news:C209E00F-A040-4041-A2C5-6B214B58DCCD(a)microsoft.com...
>I want to print out all the fields in custom properties as a page. Is there
>a
> way?
> Thanks, GG


 | 
Pages: 1
Prev: Styles: Applying a style to one paragraph changes whole document
Next: normal style???