WPS（单词）为所有表格批量添加标题（标题）

在我们的工作中，我们经常遇到需要在Word中的所有表中添加“表1-1”之类的标题的需求. 如果我们自己编写，则可以在开始时设置自动加法. 但是，如果这篇文章是别人写的，我们该怎么办？下面将介绍使用宏将标题批量添加到所有单词表中的用法:

第一步: 打开word文件添加字幕

第2步: 单击工具栏上的[开发工具]-[宏]，输入宏名称macro1，然后单击创建.

注意: 如果[微距]变灰，请参阅打开宏功能.

第3步: 粘贴以下代码（该代码来自Internet）并设置字幕的起始编号

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

注意: 此代码生成的标题是指定的，不能根据标题自动识别，因此请仅在指定标题下使用内容.

步骤4: 点击宏执行按钮“▲”，成功执行后将生成指定的字幕，我们只需填写标题名称即可.

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/shumachanpin/article-299112-1.html