「このコメントに返信する」行を削除します。Word

Word文書の「このコメントに返信する」行をすべて自動的に削除するマクロを作成しようとしています。「このコメントに返信する」行を削除します。Word

私は、行全体（段落記号を含む）の検索置換方法を理解できません。

段落記号のASCIIコードは^ 013です。

ソーステキストは、通常、以下のようなブログポストからWordにコピーされます。

2017-03-26 Sean S

docという語のイメージを表示または共有できますか？ – 0m3r

"このコメントに返信する^ p'"その特殊文字はhttps://www.extendoffice.com/documents/word/661-replace-hard-returns-with-soft-returns.html#a1に記載されています – Slai

@ Slai - それが私が試した最初のもので、うまくいきませんでした。エラーダイアログボックスが表示され、「Wordで文書の検索が終了しました。検索項目が見つかりませんでした "^ pの使用はそれ自身では機能しますが、他のテキストとは併用しません。 –

ソリューションは以下の通りです。出現回数をカウントして、フレーズと段落記号を削除してテキストをループします。

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

出典

2017-03-29 02:33:31

「このコメントに返信する」行を削除します。Word

答えて

関連する問題