Microsoft Word remove strikethrough text

Scripting Forums Code Exchange
#1

This is an AppleScript that removes from a text selection in World all text that has a single-strikethrough.


tell application "Microsoft Word"
	activate
	
	-- replace strikethrough text
	set findRange to find object of selection
	tell findRange
		clear formatting
		clear formatting replacement of it
		set strike through of font object to true
		execute find find text "" replace with "" replace replace all
		set strike through of font object to false
	end tell
end tell