让Word中每一节的图片题注序号重新从1开始编号

首先,题注的编号是域,在编号上点击鼠标右键,再点击编辑域
在这里插入图片描述
在域代码中添加\r1 \r
在这里插入图片描述
点击确定即可。

  • 12
    点赞
  • 22
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 1
    评论
您好!您的需求可以通过使用Word VBA宏来实现。下面是一个示例代码,它可以跟随您自定的样式来重新为每个样式的图编号: ``` Sub ResetCaptionNumbering() '定义变量 Dim objStyle As Style Dim objRange As Range Dim objCaption As CaptionLabel Dim iCount As Integer Dim iNumbering As Integer '获取所有的图表样式 For Each objStyle In ActiveDocument.Styles '如果样式是图表样式 If objStyle.Type = wdStyleTypeCaption Then '将图表样式的计数器重置 objStyle.AutomaticallyUpdate = False objStyle.LinkToListTemplate ListTemplate:=Nothing objStyle.ListParagraphs(1).Range.ListFormat.ApplyListTemplate _ ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(1), _ ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList objStyle.AutomaticallyUpdate = True '为每个图表样式重新序号 iCount = 1 iNumbering = 1 For Each objRange In ActiveDocument.StoryRanges Do '查找下一个图表样式 Set objCaption = objRange.NextField If objCaption Is Nothing Then Exit Do End If If objCaption.Type = wdFieldCaption Then If objCaption.Result.Style = objStyle.Name Then '设置图表编号 objCaption.Result.Text = iNumbering & "." iCount = iCount + 1 iNumbering = iNumbering + 1 End If End If Set objRange = objCaption.Result Loop Next objRange End If Next objStyle End Sub ``` 请按照以下步骤执行该宏: 1. 打开 Word 文档,按下“Alt + F11”打开 VBA 编辑器; 2. 在 VBA 编辑器,点击“插入” -> “模块”,在新建的模块,复制上述代码; 3. 保存宏,返回到 Word 文档; 4. 按下“Alt + F8”打开宏对话框,选择并运行刚才创建的宏。 该宏将会按照您自定义的图表样式重新序号图表。注意,该宏只会对当前文档的图表进行重新序号,如果您需要对多个文档进行操作,请在每个文档分别运行该宏。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

半个女码农

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值