Accept All Non-Deletion Changes

accept-alltcbutdeletes.vba

Sub Macro1()
  ' 挿入/変更/削除以外の変更履歴を一括承諾する
  ' https://docs.microsoft.com/ja-jp/office/vba/api/word.wdrevisiontype
  For Each myRev In ActiveDocument.Revisions
    myType = myRev.Type
    Select Case myType
      Case _
           wdRevisionDisplayField, _
           wdRevisionParagraphNumber, _
           wdRevisionParagraphProperty, _
           wdRevisionProperty, _
           wdRevisionSectionProperty, _
           wdRevisionStyle, _
           wdRevisionStyleDefinition, _
           wdRevisionTableProperty
        myRev.Accept
    End Select
  Next
 
End Sub