Vba 删除“；对这一评论的答复；行：字

我正试图编写一个宏来自动删除Word文档中的所有“回复此评论”行

我不知道如何找到替换整行（包括段落标记）

段落标记的ASCII代码为^013

源文本通常从博客文章复制到Word中，如下所示

---

解决方案如下。它统计出现次数，然后在文本中循环删除短语和段落标记：

Sub DeleteReplyComments()
  ' loop through lines to count Replies
    Selection.Find.ClearFormatting
    MyDoc = ActiveDocument.Range.Text
    txt = "Reply to this comment"
    t = Replace(MyDoc, txt, "")
    nCount = (Len(MyDoc) - Len(t)) / Len(txt)
  ' delete Replies and ^p's
    For i = 1 To nCount
        With Selection.Find
            .Text = "Reply to this comment"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute
        Selection.MoveEnd Unit:=wdParagraph
        Selection.Delete Unit:=wdCharacter, Count:=1
    Next i
End Sub

---

您可以显示或共享word文档的图像吗？

回复此评论^p

“它在特殊字符@Slai中列出-这是我第一次尝试，但没有成功。错误对话框弹出并显示：“word已完成对文档的搜索。”。找不到搜索项。使用^p单独起作用，但不能与其他文本一起使用。@SeanS听起来好像在

^p

之前有一些不可打印的字符。您可以尝试使用通配符

comment*^p

@Slai-我也无法使用允许通配符，但我找到了一个解决方法，替换了“回复此注释”，然后删除了一个字符，即^p。上面列出了VBA代码。