VBA在WORD中给表格外的字体设置为标题

使用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.