The solution is to:
- Open your document in word
- Select all your text
- Copy all your text
- Create a new document
- Paste all your text
- Save the copy, and delete the original
Read the rest of the hint for the script.
on open (theItems) repeat with aFile in theItems tell application "Finder" set fileRef to (a reference to file aFile) set FileName to fileRef as string tell application "Microsoft Word" activate open fileRef set mic to select text of last document copy close last document tell application "Finder" move fileRef to trash end tell make new document paste save last document in FileName close last document end tell end tell end repeat end openTo use the script, open Script Editor, copy and paste the script, and save it as an application. Then drag and drop (onto the script icon) the Word documents you want to clean up (but nothing else!). I hope some will find it useful.
[robg adds: I haven't tested this script myself, but it looks quite straightforward.]

