批量更改页面设置，如何操作？
可以尝试以下的宏。 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 。LineNumb...全部
可以尝试以下的宏。 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个）——按住快捷键不放。
用不了半分钟就好了。再处理剩下的。收起
