不知道你要修改什么格式。不过，批量修改多个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
温馨提示：答案为网友推荐，仅供参考