如何批量更改多个word文档格式

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

共1个回答

热心网友时间：2022-06-19 04:27

不知道你要修改什么格式。不过，批量修改多个word文档的格式，你可以把这些文档放到一个文件夹里，然后在其中一个文档里添加vba代码，遍历当前文件夹的所有word文档，并修改它们的格式。
遍历当前文件夹的所有doc文档可以用以下代码：
Application.ScreenUpdating = False '禁止显示刷新

cPath = ActiveDocument.Path '当前文档所在的文件夹
FName = Dir(cPath & "\*.doc")
Do While FName <> ""'循环当前文件夹里所有的doc文档
Documents.Open FileName:=cpath & "\" & FName
FName = Dir'获取下一个文档
'......这里修改格式的代码
'如：ActiveDocument.PageSetup.BottomMargin = CentimetersToPoints(2) '2为页面下边距的值，自己根据需要调整
Loop

Application.ScreenUpdating = True