マクロで変更履歴の文字列の削除のみを承認する方法

Question

変更履歴がたくさん入っている文章の変更履歴の一部を承認したいのです．

具体的には，追記と削除が両方ある文章で，タイトルの通り，文字列の削除のみを承認したいのですが，どのようなマクロを書けばよいでしょうか．

こちらのコミュニティのお知恵を拝借し，おかげさまで書式のみを承認する方法は実装できました．

Answer 1

> マクロで変更履歴の文字列の削除のみを承認

（標準モジュール）

Sub AcceptDeleteRevision()

    Dim docTarget As Word.Document
    Dim rngTarget As Word.Range
    
    Set docTarget = ActiveDocument
    Set rngTarget = docTarget.StoryRanges(wdMainTextStory)
    
    Dim revLoop As Word.Revision
     
    For Each revLoop In rngTarget.Revisions
        Select Case revLoop.Type
            Case wdRevisionDelete
                revLoop.Accept
            Case Else
                '何もしない
        End Select
    Next revLoop
    
    Set rngTarget = Nothing
    Set docTarget = Nothing
    
End Sub

---

以上のようなマクロを実行したい、ということでしょうか。

Answer 2

ありがとうございます．このマクロでうまくいきました．おかげさまで一つ一つチェックしなくて済みました．