楼主可以直接写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
温馨提示:答案为网友推荐,仅供参考