那位高手会在word中录制宏，批量更改表格格式用的★★★★★...

批量更改word中的表格格式，包括表格页边距，表格内字体大小等

我有很多文档的表格需要重新修改，一个一个改太麻烦了，还容易出错。上网查了，都说是录制宏，不过我不懂那个，那个高手会
帮帮忙！

页边距:
上边即上白边，又称天头，设定为30mm；
下边即下白边，又称地脚，设定为28mm；
左边即左白边，又称订口，设定为25mm；
右边即右白边，又称切口，设定为20mm。

楼主可以直接写VBA，因为录制的宏其实也是VBA代码。

比如，下面这几个步骤可以批量修改文档中所有表格的字体/字号为12磅黑体。
1、键入Alt+F11打开VBA编辑器，选择菜单“插入-模块”；
2、将下面代码粘贴进去：
Sub BatchChangeTableStyle()
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
oTable.Range.Font.Name = "黑体" ' 改变表格字体为“黑体”
oTable.Range.Font.Size = 12 ' 改变表格字号为12磅
Next
Set oTable = Nothing
MsgBox "完成！"
End Sub
可以根据需要修改上面代码中的字体和字号。
3、键入F5运行看到“完成！”结束；
4、切换回Word窗口检查效果。

此外，我不太明白楼主说的“表格页边距”具体是什么意思？是说表格属性窗口里面那个“左缩进”还是其它什么属性？能补充说明一下吗？

______
补充：
哦，抱歉原来我可能没有看仔细题目，楼主还有一个重要的要求是需要对“很多文档”批量处理。下面的代码可以完成完整的需求。注意需要把代码里面设置文件夹以及设置表格字体/字号和页面边距的那些地方根据你的实际情况修改一下。

Sub BatchChangeTableAndPageMargins()

On Error Resume Next

Const strRootPath = "D:\Temp\Docs\Tables" ' 存放所有需要调整的文件的目录

Dim arrDocFiles As New Collection
Dim fso, oFolder, oFile
Dim oDoc As Document
Dim oTable As Table

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(strRootPath)
For Each oFile In oFolder.Files
Set oDoc = Documents.Open(oFile.Path)
oDoc.PageSetup.TopMargin = CentimetersToPoints(3) ' 天头
oDoc.PageSetup.BottomMargin = CentimetersToPoints(2.8) ' 地脚
oDoc.PageSetup.LeftMargin = CentimetersToPoints(2.5) ' 切口
oDoc.PageSetup.RightMargin = CentimetersToPoints(2) ' 订口
For Each oTable In oDoc.Tables
oTable.Range.Font.Name = "黑体" ' 改变表格字体为“黑体”
oTable.Range.Font.Size = 12 ' 改变表格字号为12磅
Next
oDoc.Close True
Next

Set oTable = Nothing
Set oDoc = Nothing

MsgBox "完成！"

End Sub

“表格页边距”是指什么？页边距还是单元格边距？

录制宏在EXCEL里面用得比较多，但是你的WORD表格都是一样的格式的话还是可以。在工具-宏-录制新宏，然后命个名，把你的操作录制一遍。以后就可以用这个操作了。

你好！ 这个录制宏应该可以完成，录制宏的过程也较麻烦，不过就你的问题修改字体大小应该一步完成，CTRL+A选字号和字体就可以了。至于那个表格边界线问题你可以更改WORD的模板为你的样式后默认就可以了，不见得麻烦，试试！ 如有疑问，请追问。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息