Change Font Size of Footer

[wiginprov]

Any tips on how to change the font size of the footer in a Word document? This macro captures the filename and places it in the footer, but I cannot get the fontsize reduced.

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

 

[jonscott8]

Either change it after-the-fact:

Selection.TypeText ThisFile
Selection.MoveRight Unit:=wdWord, Count:=-1, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 8

or before-the-fact:

Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 8
Selection.TypeText ThisFile Jon Hawkins

 

[wiginprov]

Thanks. Works great!!