可以尝试以下的宏。
Sub 更改页面设置为A4()
'
' 更改页面设置为A4
' 宏在 2007-11-18 由 wdwc 录制
'
    With ActiveDocument。Styles(wdStyleNormal)。Font
        If 。
  NameFarEast = 。NameAscii Then
            。NameAscii = ""
        End If
        。NameFarEast = ""
    End With
    With ActiveDocument。
  PageSetup
        。LineNumbering。Active = False
        。Orientation = wdOrientPortrait
        。TopMargin = CentimetersToPoints(2。
  54)
        。BottomMargin = CentimetersToPoints(2。54)
        。LeftMargin = CentimetersToPoints(3。17)
        。RightMargin = CentimetersToPoints(3。
  17)
        。Gutter = CentimetersToPoints(0)
        。HeaderDistance = CentimetersToPoints(1。5)
        。FooterDistance = CentimetersToPoints(1。
  75)
        。PageWidth = CentimetersToPoints(21)
        。PageHeight = CentimetersToPoints(29。7)
        。FirstPageTray = wdPrinterDefaultBin
        。
  OtherPagesTray = wdPrinterDefaultBin
        。SectionStart = wdSectionNewPage
        。OddAndEvenPagesHeaderFooter = False
        。
  DifferentFirstPageHeaderFooter = False
        。VerticalAlignment = wdAlignVerticalTop
        。SuppressEndnotes = False
        。
  MirrorMargins = False
        。TwoPagesOnOne = False
        。BookFoldPrinting = False
        。BookFoldRevPrinting = False
        。
  BookFoldPrintingSheets = 1
        。GutterPos = wdGutterPosLeft
        。LayoutMode = wdLayoutModeLineGrid
    End With
    ActiveDocument。
  Save
    ActiveWindow。Close
End Sub
用以上的宏，设置快捷键如alt+2。
首先文件——打开文档——找到文件，一齐打开多个，这里我们打开50多个就够了（最多可以打开约60个）——按住快捷键不放。
用不了半分钟就好了。
  再处理剩下的。
。