Thanks for your help! All fixed! :)
--
Elizabeth A. Bañuelos
MOS Master
Microsoft Office Specialist - XP (Word, Excel, Powerpoint and Access)
Hamilton, Ontario, Canada
"Helmut Weber" wrote:
> 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
>