如何删除包含了特定文字的句号到换行之间内容

laag111

如何删除包含了特定文字的句号到换行之间内容

例如

幕。[www.xxxxxx.xx 超多好看小说]

来。<strong>最新小说章节全文阅读www.xxxxxx.xx</strong>

情。<strong>XXXX小说网Http://www.xxxxxx.xx/</strong>

复。[XXXX网wwww.xxxxxx.xx想看的书几乎都有啊，比一般的小说网站要稳定很多更新还快，全文字的没有广告。]

腿。[XXX小说网www.xxxxxx.xx更新快，网站页面清爽，广告少，无弹窗，最喜欢这种网站了，一定要好评]

里面都包含有小说,如何写替换呢？求指点

laag111

这个要审核多久？

cuanju

仅供参考。
====================================================
Sub d3()
     ActiveDocument.Content.Find.Execute FindText:="(。)*小说*^13{1,}", ReplaceWith:="\1^p", Replace:=wdReplaceAll, MatchWildcards:=True
End Sub

laag111

cuanju 发表于 2020-5-9 16:09
仅供参考。
====================================================
Sub d3()

不对啊，运行后很多行都没有了，就拿1楼的那个例子，运行后第一行的幕。都没有了

laag111

请教下，能不能不用VB用替换呢？例如通用符来代替？

laag111

我试了试，关键就在 他无法判断是哪个句号是开头，把前面很长距离的句号当开头，结果直接一大段一大段的删除，

用(。)*小说*^13直接点击通用符也能达到VB得这个效果，但是还是一样有这个问题