VBA在WORD中給表格外的字體設置為標題

使用VB可以將表外的字體設置標題字體實際操作如下：

VB代碼如下：

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

上面的代碼輸入到指定區域，然后按F5即可執行，也可以保存后打開EXCLE，ALT+F8，然后運行oliver_1.