使用VB可以将表外的字体设置标题字体实际操作如下：
VB代码如下：
Sub oliver_1()
Selection.EndKey Unit:=wdStory '光标移到文末
For i = To ActiveDocument.Tables.Count '有几个表格，下面操作就循环几次
With Application.Browser
.Target = wdBrowseTable '插入点在表格中
.Previous '插入点移至前一张表格之前
End With
Selection.MoveUp Unit:=wdLine, Count:= '将光标移到表格上一行
Selection.Style = ActiveDocument.Styles("标题 3") '设置为标题1 Next
End Sub
上面的代码输入到指定区域，然后按F5即可执行，也可以保存后打开EXCLE，ALT+F8，然后运行oliver_1.