写一个Word宏 遍历所有图片的下一个内容如果是正文，修改为无间隔样式

好的，以下是一个可能的实现：

Sub ModifyInlineImagesStyle()
    Dim img As InlineShape
    
    For Each img In ActiveDocument.InlineShapes
        If img.Type = wdInlineShapePicture Then '仅对图片进行操作
            If img.Range.Next(wdCharacter).Style.Name = "Normal" Then '如果下一个内容是正文
                img.Range.Next(wdCharacter).Style = ActiveDocument.Styles("No Spacing") '修改为无间隔样式（假设该样式已存在）
            End If
        End If
    Next img
End Sub

这个宏遍历了文档中的所有内联图片，如果下一个内容是正文，则将其样式修改为“无间隔”样式。请注意，这个宏假设“无间隔”样式已经在文档中定义了。如果该样式不存在，可以使用以下代码在运行时创建它：

Dim nsStyle As Style
Set nsStyle = ActiveDocument.Styles.Add(Name:="No Spacing", Type:=wdStyleTypeParagraph)
nsStyle.NoSpaceBetweenParagraphsOfSameStyle = True
nsStyle.NoSpaceBetweenParagraphsOfSameStyle = True '在段前后设置0个磅值
nsStyle.BaseStyle = ActiveDocument.Styles("Normal") '基于“正文”样式