Font Size of Filename in Footer

[wiginprov]

Any tips on how to get the font size of the filename to be a smaller font? When I run the macro below, the font size is still 10 pt.

Dim ThisFile As String
ActiveWindow.ActivePane.View.Type = wdPageView
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
ThisFile = ActiveDocument.Name
Selection.TypeText ThisFile
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 8
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveWindow.View.Type = wdPageView
End Sub

 

[donna6197]

How about moving left instead of right.

 

[Dreamboat]

Try putting your font name/size BEFORE the TypeText This File line.

Or realize that if you already have the text in, you need to select it FIRST and THEN change the font...
techsupportgirl@home.com

http://www.PiersonTech.com

Brainbench MVP for Microsoft Word

 

[wiginprov]

Thanks for the tips. The tip to MoveLeft worked. I added that bit using the macro recorder, which is why is read Move Right to select the text. Many thanks.