VBA - footer

[j4ymf]

Hello

We use this VBA code in our footer where it exports to a word document, but is there a way i can add a page number aswell?

    ' Add text to footer in left-aligned
    footerText = " Company info "

    ' Add footer to the document
    With wddoc.Sections(1).Footers(1).Range ' wdHeaderFooterPrimary = 1
        .Text = footerText
        .ParagraphFormat.Alignment = wdAlignParagraphLeft ' Left-align the footer
        .Font.Name = "Century Gothic"
        .Font.Size = 10
        .Font.Color = RGB(56, 56, 56) ' Dark grey/black color
        ' Removed the left indent for no spacing
        .ParagraphFormat.SpaceAfter = 1 ' No space after the footer
        .ParagraphFormat.SpaceBefore = 0 ' No space before the footer
    End With

 

[j4ymf]

I would like to say a big thank to you both Tetra201 / Macropod for your support over the festive period both replys worked fantastic.

keep up the good work, your support helps us all.

 

[smozgur]

@j4ymf - I have removed the solution mark from your feedback post.
Please either mark the most useful answer as the solution, or if you formed your own solution by using multiple answers, then post it and and mark your own final solution. This way, it will help future readers to get to the answer quickly.