I tinkered with a macro posted previously on this forum and found a way of doing it (I tried to modify Chip's macro as well, but could not figure out how to do it):
Sub StrikethroughDeletions3()
' Based on
http://www.wordbanter.com/showthread.php?t=68482
' 1. Make sure Track Changes is turned *off* on the document you're working on.
' 2. Run the macro.
' 3. Start a new document, turn track changes on for that (blank) doc, paste all
' the contents of the working doc into the new (text comes in as a new, mega-
' insertion), then ACCEPT all changes in the new.
Number = ActiveDocument.Revisions.Count
For x = 1 To Number
Set myRev = ActiveDocument.Revisions(x).Range
This = ActiveDocument.Revisions(x).Type
If This = 2 Then
myRev.Select
Selection.InsertAfter "}"
Selection.InsertBefore "{"
End If
If This = 1 Then
myRev.Select
Selection.InsertAfter "]"
Selection.InsertBefore "["
End If
Next x
End Sub