VBA Word Footers - Enabling a Border

In that case Plan B, use the table for the bit with borders and text for the rest

    For Each oFooter In oSec.Footers
        If oFooter.Exists Then
            Set RngFooter = oFooter.Range
            With RngFooter
                .Style = "Footer"
                .Text = vbCr & vbCr & strCopyright & vbTab & vbTab & strClassification
                .Font.name = "Arial"
                .Font.Size = "10"
                .Font.Color = RGB(0, 0, 128)
                .Collapse wdCollapseStart
                Set oTable = RngFooter.Tables.Add(RngFooter, 1, 3)
                With oTable
                    .Range.Font.name = "Arial"
                    .Range.Font.Size = "10"
                    .Range.Font.Color = RGB(0, 0, 128)
                    .Cell(1, 1).Range.Text = strTitle
                    .Cell(1, 2).Range.Text = strVersion
                    .Cell(1, 2).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
                    .Cell(1, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
                    Set oCell = .Cell(1, 3).Range
                    With oCell
                        .End = .End - 1
                        .Text = "Page "
                        .Collapse wdCollapseEnd
                        .Fields.Add oCell, wdFieldPage, , False
                        .Start = oTable.Cell(1, 3).Range.End - 1
                        .Text = " of "
                        .Collapse wdCollapseEnd
                        .Fields.Add oCell, wdFieldNumPages, , False
                    End With
                    With .Rows(1)
                        With .Borders(wdBorderTop)
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .Color = RGB(0, 0, 128)
                        End With
                        With .Borders(wdBorderLeft)
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .Color = RGB(0, 0, 128)
                        End With
                        With .Borders(wdBorderBottom)
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .Color = RGB(0, 0, 128)
                        End With
                        With .Borders(wdBorderRight)
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .Color = RGB(0, 0, 128)
                        End With
                        With .Borders(wdBorderVertical)
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .Color = RGB(0, 0, 128)
                        End With
                    End With
                End With
            End With
        End If
    Next oFooter