选择某个样式的所有内容？（图片或文字）

海亚

文档中多个样式，如附件WORD有：1级，2级，两个样式
现在需要选中某个样式的所有内容，然后再做操作，如复制、删除等。
比如：

我现在想选中2级样式里面的每个人的身份证，批量删除。只留下每个人的：毕业证和个人介绍
同理，比如想一次性删除掉，所有人的个人介绍，只留下，毕业证和身份证。要如何操作？

现在用选择相似文本功能，只能选择标题，将标题全选后删除，但无法删除标题下的内容！

duquancai

既然你开新帖，我写个小宏》》》》》

Sub 删除标题样式及其该样式下的正文内容()
    Dim doc As Document, x&
    Set doc = ActiveDocument
    With doc.Content.Find
        .Style = doc.Styles("2级") '设置需要删除的标题样式
        Do While .Execute
            With .Parent
                x = .Start: .Collapse 0
                Do While .Style = "正文"
                    If .Start = doc.Content.End - 1 Then Exit Do
                    .Move , 1
                Loop
                .SetRange x, .Start: .Text = Empty
            End With
        Loop
    End With
End Sub

海亚

duquancai 发表于 2017-5-19 00:16
既然你开新帖，我写个小宏》》》》》

Sub 删除标题样式及其该样式下的正文内容()

已测试，完全满足需求。万分感谢！！！