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

Sub oliver_1()
Selection.EndKey Unit:=wdStory ‘光标移到文末
For i = 1 To ActiveDocument.Tables.Count  ‘有几个表格，下面操作就循环几次
     With Application.Browser
        .Target = wdBrowseTable ‘插入点在表格中
      .Previous  ‘插入点移至前一张表格之前
      End With
    Selection.MoveUp Unit:=wdLine, Count:=1 ‘将光标移到表格上一行
    Selection.Style = ActiveDocument.Styles("标题 3") ‘设置为标题1
 
Next
End Sub