WPS(word)批量给所有表格添加题注(标题) 您所在的位置:网站首页 wps设置题注 WPS(word)批量给所有表格添加题注(标题)

WPS(word)批量给所有表格添加题注(标题)

2023-08-12 20:21| 来源: 网络整理| 查看: 265

我们在工作中经常会遇到需要给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

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

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

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



【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有