Customize custftEAI_Advanced07.dot

System

It appears that this macro will copy over the page numbers in the documents footer.

Can someone assist me in customizing it to append the document# information?

TIA,

Steve

jny

It appears that this macro will copy over the page numbers in the documents footer. Can someone assist me in customizing it to append the document# information? TIA, Steve

Inside VBA of the maco, in the ModFootDocument, you can modify the code inside SetFooter subroutine (shown below) to position the strTextString which holds the footer text anyway you like.

Public Sub SetFooter(ByVal strTextString As String)
Dim objRange As Word.Range
Dim objFont As Word.Font

Set objRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
Set objFont = objRange.Font

objRange.Style = wdStyleFooter
objRange.Text = strTextString

' SET FONT SPECIFICATION

' With objFont
' .Name = "Arial"
' .Size = 8
' .Bold = False
' .Italic = False
' .Underline = wdUnderlineNone
' .UnderlineColor = wdColorAutomatic
' .StrikeThrough = False
' .DoubleStrikeThrough = False
' .Outline = False
' .Emboss = False
' .Shadow = False
' .Hidden = False
' .SmallCaps = False
' .AllCaps = False
' .Color = wdColorAutomatic
' .Engrave = False
' .Superscript = False
' .Subscript = False
' .Spacing = 0
' .Scaling = 100
' .Position = 0
' .Kerning = 0
' .Animation = wdAnimationNone
' End With

' ENDS FONT SPECIFICATION

If ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Exists = True Then
ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range.Text _
= strTextString
End If

Set objRange = Nothing
Set objFont = Nothing
End Sub