microsoft.public.word.vba.general

Hi Elizabeth,

how about that one:#

Sub Test6009()
Selection.EndKey Unit:=wdStory
Selection.TypeText Text:=" " 'whatever
Selection.Font.Size = 7
Selection.Fields.Add Range:=Selection.Range, _
Type:=wdFieldEmpty, _
Text:="FILENAME ", _
PreserveFormatting:=True
Selection.Font.Reset
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP