The following VBA can be copied into a VBA module in Word to create a macro that does text replacements on the document. This particular case replaces a set of HTML entities that cluttered a web-based form. The pollution was caused by users pasting from Word to a textarea, which did not understand the multi-byte character set. This does not solve the problem, but it did convert the bad characters to readable characters that were nearly equivalent. Regardless, it is a template that can be used for basic, repetitive replacements.
Sorry about the bad character display. I'll try to make time to work on the FCK-Drupal interaction that shredded them.
Dim mintCount As Integer
mintCount = 0
' Reset the find/replace options.
ReplaceString "â€¢", vbCrLf & "-"
ReplaceString "â€™", "'"
ReplaceString "Â®", "(r)"
ReplaceString "â€“", "-"
ReplaceString "â€œ", """"
ReplaceString "â€�", """"
MsgBox "A total of " & mintCount & " replacements were made."
Private Sub ReplaceString(strFind As String, strReplace As String)
.Text = strFind
.Wrap = wdFindContinue
Do While Selection.Find.Execute = True
mintCount = mintCount + 1
Selection.Text = strReplace
If mintCount > 10000 Then Exit Sub