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

注：该代码生成的题注是指定的，不能根据标题自动识别，所以在使用前请只保留要生成指定标题下的内容。

第四步：点击执行宏执行按钮“▲”，执行成功后即可生成指定题注，我们只需要填写标题名称即可。

以上就是批量生成表格题注的方法，存在缺陷，有更好的请评论留言。谢谢！