word的vba问题，批量删除文本，高手支招！

Question

具体是这样的，有文本如下：
●第一回
张天师祈禳瘟疫
洪太尉误走妖魔
仁宗嘉右三年，瘟疫盛行，洪太尉奉皇帝命前往江西信州龙虎山，宣请嗣汉天师张真人来朝禳疫。
洪太尉上山求见天师不成。回至方丈，不顾众道士劝阻，打开“伏魔之殿”，放出妖魔，遂致大祸。他吩咐从人，隐瞒走妖魔一节，假报天师除尽瘟疫，得到仁宗赏赐。
●第二回
王教头私走延安府
九纹龙大闹史家村
高俅与端王（后来的徽宗）结识。被提拔为殿帅府太尉，对曾打翻他的王升的儿子八十万禁军教头王进施行报复。
王进出走延安府，在史家村给史进教枪棒。
史进因擒少华山陈达而和朱武、杨春相识往来。华阴县中秋夜来史家村捉拿赏月喝酒吃肉的史进并少华山三好汉。
●第三回
史太郎夜走华阴县
鲁提辖拳打镇关西
三头领杀退县衙之兵，去延安寻找师傅王进…………，
要求删除第*回后标题，
●第一回
张天师祈禳瘟疫
洪太尉误走妖魔
仁宗嘉右三年，瘟疫……
这里删除“张天师祈禳瘟疫 洪太尉误走妖魔”就可以了。
先谢谢了！

Answer 1

Sub 删除每回下的标题_芐雨()
    Dim i As Paragraph, n As Long
    Application.ScreenUpdating = False    '关闭屏幕刷新
    On Error Resume Next
    For Each i In ActiveDocument.Paragraphs    '在活动文档的段落集合中循环

        i.Range.Characters(1).Select    '选择段落第一个字符，目的是为了光标的跳转

        '判断第一个字符是否等于“●”,第二个字符是否等于“第”
        
        If i.Range.Characters(1) = "●" And i.Range.Characters(2) = "第" Then
            Selection.MoveDown unit:=wdLine, Count:=1  '下移一行
            Selection.HomeKey unit:=wdLine             '光标到行首
            Selection.EndKey unit:=wdLine, Extend:=wdExtend  '选择光标到行尾
            Selection.Delete                                 '删除
            Selection.HomeKey unit:=wdLine             '光标到行首
            Selection.EndKey unit:=wdLine, Extend:=wdExtend  '选择光标到行尾
            Selection.Delete
        End If
    Next
    Application.ScreenUpdating = True    '恢复屏幕刷新
End Sub

代码如上，不过是以每段来查找第一个和第二个字符，如果原文不是以段落符号分隔每段，代码无效，所以最好上传附件。还有，用EXCEL操作也能简单实现，附动画操作作参考。

Answer 2

用“编辑”菜单里的“替换”功能，把选择的文本（xxxxx）替换为（空白）就可以

Answer 3

你试一下可以不？
Sub 宏3()
'
' 宏3 宏
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "张天师祈禳瘟疫 洪太尉误走妖魔"
.Replacement.Text = ""

.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub追问

先谢谢哈 我的意思 每一回的后面的标题都要删除，不只是第一回的，你再看看？

Answer 4

在我们日常工作和日常学习中，有时候需要将一些Word 文件进行压缩，如何做到呢？我们可以使用[风云压缩]完成。一起来看下具体步骤吧！