Sub FilePrint()
If Application.Dialogs(wdDialogFilePrint).Show = -1 Then Call ChkPageNoFormat
End Sub
 
Sub ChkPageNoFormat()
Dim Sctn As Section, oHdFt As HeaderFooter, oShp As Shape
With ActiveDocument
  For Each Sctn In .Sections
    For Each oHdFt In Sctn.Footers
      With oHdFt
        If .LinkToPrevious = False Then
          On Error Resume Next
          For Each oShp In .Range.ShapeRange
            With oShp.TextFrame
              If .HasText Then
                .WordWrap = False
                .AutoSize = True
                .MarginBottom = 1
                .MarginLeft = 1
                .MarginRight = 1
                .MarginTop = 1
              End If
            End With
          Next
        End If
      End With
    Next
  Next
End With
End Sub