几百个word表格多一个空白页，如何批量编辑现在有几百个word表格，准备打印的时候才发现当初

发布网友发布时间：2022-04-22 13:24

共2个回答

热心网友时间：2023-11-06 07:21

新建一个文件夹，把所有要处理的文档复制进去，然后打开其中一个文档，添加VBA代码，实现遍历当前文件夹里所有的文档，并适当修改页面的下边框，即可。

VBA代码如下：

Application.ScreenUpdating = False '禁止显示刷新
cpath = ActiveDocument.Path '当前文档所在的文件夹

FName = Dir(cpath & "\*.doc")
Do While FName <> ""'遍历当前文件夹
Documents.Open FileName:=cpath & "\" & FName
FName = Dir
ActiveDocument.PageSetup.BottomMargin = CentimetersToPoints(2) '2为页面下边距的值，自己根据需要调整
Loop
Application.ScreenUpdating = True

热心网友时间：2023-11-06 07:22

应该没有这样子的批量编辑。你可以试下将所有的表格选中然后设置好表格的长宽为一页的长宽。
批量打印在打印的时候直接选择只打第一页即可。

几百个word表格多一个空白页，如何批量编辑 现在有几百个word表格，准备打印的时候才发现当初

几百个word表格多一个空白页，如何批量编辑现在有几百个word表格，准备打印的时候才发现当初