word的vba问题,批量删除文本,高手支招!

具体是这样的,有文本如下:●第一回张天师祈禳瘟疫洪太尉误走妖魔仁宗嘉右三年,瘟疫盛行,洪太尉奉皇帝命前往江西信州龙虎山,宣请嗣汉天师张真人来朝禳疫。洪太尉上山求见天师不成... 具体是这样的,有文本如下:
●第一回
张天师祈禳瘟疫
洪太尉误走妖魔
仁宗嘉右三年,瘟疫盛行,洪太尉奉皇帝命前往江西信州龙虎山,宣请嗣汉天师张真人来朝禳疫。
洪太尉上山求见天师不成。回至方丈,不顾众道士劝阻,打开“伏魔之殿”,放出妖魔,遂致大祸。他吩咐从人,隐瞒走妖魔一节,假报天师除尽瘟疫,得到仁宗赏赐。
●第二回
王教头私走延安府
九纹龙大闹史家村
高俅与端王(后来的徽宗)结识。被提拔为殿帅府太尉,对曾打翻他的王升的儿子八十万禁军教头王进施行报复。
王进出走延安府,在史家村给史进教枪棒。
史进因擒少华山陈达而和朱武、杨春相识往来。华阴县中秋夜来史家村捉拿赏月喝酒吃肉的史进并少华山三好汉。
●第三回
史太郎夜走华阴县
鲁提辖拳打镇关西
三头领杀退县衙之兵,去延安寻找师傅王进…………,
要求删除第*回后标题,
●第一回
张天师祈禳瘟疫
洪太尉误走妖魔
仁宗嘉右三年,瘟疫……
这里删除“张天师祈禳瘟疫 洪太尉误走妖魔”就可以了。
先谢谢了!
展开
 我来答
Albert_芐雨
2014-02-08 · TA获得超过224个赞
知道小有建树答主
回答量:139
采纳率:0%
帮助的人:157万
展开全部
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操作也能简单实现,附动画操作作参考。

zhl750501
2014-02-08 · TA获得超过650个赞
知道小有建树答主
回答量:698
采纳率:100%
帮助的人:452万
展开全部
用“编辑”菜单里的“替换”功能,把选择的文本(xxxxx)替换为(空白)就可以
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友bf0869e
2014-02-08 · TA获得超过141个赞
知道小有建树答主
回答量:144
采纳率:100%
帮助的人:47万
展开全部
你试一下可以不?
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
追问
先谢谢哈   我的意思 每一回的后面的标题都要删除,不只是第一回的,你再看看?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
风云格式助手
2021-01-24 · 百度认证:上海萌格电子商务官方账号
风云格式助手
一家专注软件研发的互联网科技公司,继承了研发与市场团队在海外共享软件 10 余年技术积累和市场经验,旗下有风云PDF转换器,风云CAD转换器,风云压缩等专业办公软件,也研发各类数字创意类软件
向TA提问
展开全部

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

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式