WPS（word）批量給所有表格添加題注（標題）

我們在工作中經常會遇到需要給word中的所有表格添加 “表1-1” 這樣的題注，如果是我們自己寫的話，一開始我們就可以設置自動添加。但是如果這篇文章是別人已經寫好的我們該怎麼辦呢？以下就開始介紹利用宏批量給word中所有的表格添加題注:

第一步：打開要添加題注的word文件

第二步：點擊工具欄【開發工具】--【宏】，隨便輸入宏名稱 macro1，點擊創建。

              注意：如果【宏】顯示爲灰色，需參考https://mp.csdn.net/postedit/102366698開啓宏功能。

第三步：粘貼如下代碼（代碼來自網絡），並設置題注開始序號

Sub macro1()
'
'
If ActiveDocument.Tables.Count >= 1 Then
Set act_Doc = ActiveDocument
For Each otable In act_Doc.Tables
CaptionLabels.Add Name:="表4-"
With otable.Range.InsertCaption(Label:="表4-", Position:=wdCaptionPositionAbove)
'Position:=wdCaptionPositionBelow
End With
Next
End If

End Sub

注：該代碼生成的題注是指定的，不能根據標題自動識別，所以在使用前請只保留要生成指定標題下的內容。

第四步：點擊執行宏執行按鈕“▲”，執行成功後即可生成指定題注，我們只需要填寫標題名稱即可。

以上就是批量生成表格題注的方法，存在缺陷，有更好的請評論留言。謝謝！