word中图编号跟随自定样式，每个样式重新编序号

您好！您的需求可以通过使用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”打开宏对话框，选择并运行刚才创建的宏。

该宏将会按照您自定义的图表样式重新编序号图表。注意，该宏只会对当前文档中的图表进行重新编序号，如果您需要对多个文档进行操作，请在每个文档中分别运行该宏。