VBA Word Footer Page xx of yy

Graphics in the header/footer are often problematic because floating shapes are located in the first section (in VBA terms) whilst they may appear further down the document.

  For Each aShape In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
    aShape.Delete
  Next aShape

You might need similar code for the the other headers in Section 1 if they appear later in the document.

I would be approaching this project by adding content controls to the header and footers of one document and getting the formatting correct. Then save these items to Building Blocks. Then the macro needs to write the UserForm data to the document properties and insert the relevant building blocks to each header and footer in the document.

The following may help clarify. You had some missing variable declarations and I have added a couple. Use Option Explicit at the top of the module to force the declaration of variables - see http://www.gmayor.com/installing_macro.htm   

The following sets the default footer tabs at centre and right margin and addresses all header footers and not just the primary. If you want to change only the primary header footer then change

If oHeader.Exists Then

to

If oHeader.Index = wdHeaderFooterPrimary Then

and

If oFooter.Exists Then

to

If oFooter.Index = wdHeaderFooterPrimary Then

Landscape pages may be an issue - see http://word.mvps.org/FAQs/Formatting/LandscapeSection.htm    Much depends on what you wish to do with them

Private Sub CommandButton1_Click()
Dim oApp As Word.Application
Dim oDoc As Word.Document
Dim oSec As Word.Section
Dim oHeader As Word.HeaderFooter
Dim oFooter As Word.HeaderFooter

Dim strTitle As String
Dim strVersion As String
Dim strClassification As String
Dim strCopyright As String
Dim strPath As String
Dim strPageInfo As String
Dim oRng As Range
Dim xx As Long
Dim yy As Long

    strTitle = Me.TextBox1.Text
    strVersion = Me.TextBox2.Text
    strCopyright = Me.TextBox3.Text
    strPath = Me.TextBox4.Text
    strClassification = Me.ComboBox1.Text

    ActiveDocument.Repaginate
    yy = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    MsgBox yy        ' For testing

    For Each oSec In ActiveDocument.Sections
        For Each oHeader In oSec.Headers
            If oHeader.Exists Then
                Set oRng = oHeader.Range
                With oRng
                    .Font.name = "Arial"
                    .Font.Size = "20"
                    .Font.Color = wdColorDarkBlue
                    .ParagraphFormat.Alignment = wdAlignParagraphRight
                    .Text = strPath
                End With
            End If
        Next oHeader
        For Each oFooter In oSec.Footers
            If oFooter.Exists Then
                Set oRng = oFooter.Range
                With oRng
                    With .ParagraphFormat.TabStops
                        .ClearAll
                        .Add CentimetersToPoints(7.96), wdAlignTabCenter
                        .Add CentimetersToPoints(15.92), wdAlignTabRight
                    End With
                    .Font.name = "Arial"
                    .Font.Size = "10"
                    .Font.Color = wdColorDarkBlue
                    .Text = strTitle & vbTab & strVersion & vbTab & "Page "
                    .Collapse wdCollapseEnd
                    .Fields.Add oRng, wdFieldPage, , False
                    .Start = oFooter.Range.End
                    .Text = " of "
                    .Collapse wdCollapseEnd
                    .Fields.Add oRng, wdFieldNumPages, , False
                    .Start = oFooter.Range.End
                    .Text = vbCr & strCopyright & vbTab & vbTab & strClassification
                    .Borders.Enable = True
                End With
            End If
        Next oFooter
    Next oSec
End Sub