A VBA macro for Word that instantly removes all text marked with strikethrough. Occasionally when I've been writing or editing a text that needs to go through multiple people, some of them use unusual setups that don't have Track Changes functionality and their deletion suggestions are rendered as strikethrough text instead; I coded this to give me a one-button way to instantly clean that up without having to either manually check for it or search through the document. I personally always use it with Track Changes on, but it's not necessarily the case that it'll always be desireable for that to be used so I did not code the macro to force that.
The macro:
- Searches through all story ranges in the active Word document (main body, headers, footers, comments, footnotes, etc.)
- Uses Word’s Find object to locate text where the font property
StrikeThrough = True - Repeats the search in a loop until no more strikethrough text remains
- Deletes each found range immediately
This ensures that every piece of strikethrough text is removed, no matter where it appears.