Word宏 判断所有图片的下一个内容是否为标题，如果不是修改为无间隔

您可以使用下面的宏来遍历文档中的所有图片，并将图片下面的内容的样式更改为无间隔样式，但仅当下一个内容不是标题时才进行更改。

Sub ChangeImageCaptionStyle()
    Dim pic As InlineShape
    Dim para As Paragraph
    
    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            Set para = pic.Range.Paragraphs(1).Next()
            Do While Not para Is Nothing And para.Range.Characters.Count > 1
                If Not IsHeader(para) Then
                    para.Range.Style = "No Spacing"
                End If
                Set para = para.Next()
            Loop
        End If
    Next pic
End Sub

Function IsHeader(para As Paragraph) As Boolean
    IsHeader = False
    If para.Style Like "Heading*" Then
        IsHeader = True
    End If
End Function

该宏与前一个宏非常相似，但它使用了一个名为 `IsHeader` 的新函数来判断下一个内容是否为标题。如果下一个内容的样式名称以 "Heading" 开头，则函数返回 True，否则返回 False。如果函数返回 False，则将该段落的样式更改为无间隔样式。

请注意，该宏仅适用于 Word 中的默认标题样式（例如，“标题 1”、“标题 2”等）。如果您使用的是自定义标题样式，则需要相应地修改 `IsHeader` 函数中的样式名称匹配。