Word宏怎么获取下一各内容样式

您可以使用以下代码来获取下一个内容的样式名称：

Sub GetNextStyleName()
    Dim NextStyleName As String
    
    NextStyleName = Selection.Next.Style
    
    MsgBox NextStyleName
End Sub

该代码将获取当前选定内容后面的内容的样式名称，并将其作为消息框显示。您可以根据需要修改此代码来满足您的要求。

相关问题

写一个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") '基于“正文”样式

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 IsPunctuation(para.Range.Characters(1)) Then
                    para.Range.Style = "No Spacing"
                End If
                Set para = para.Next()
            Loop
        End If
    Next pic
End Sub

Function IsPunctuation(ch As Variant) As Boolean
    If ch Like "[,.;:!?]" Or Asc(ch) = 8212 Then
        IsPunctuation = True
    Else
        IsPunctuation = False
    End If
End Function

该宏首先遍历文档中的所有内联形状，如果形状是图片，则找到该图片下面的第一个段落，并逐个遍历它们，如果第一个字符不是标点符号，则将该段落的样式更改为无间隔样式。

请注意，该宏假定标点符号是逗号、句号、分号、冒号、感叹号和问号，以及短划线。如果您需要考虑其他标点符号，请相应地修改 `IsPunctuation` 函数。