Finding multiple characters in a Word document

Question

What code would I use in the Find dialogue box in Word to find all quotes (") and question marks (?) in a document and replace them with nothing (NULL)?

Thank you.

Answer 1

If you're using the dialog box, first click the More button and check the box for "Use wildcards".

In the Find What box, enter the expression

[^34^0147^0148?]

Leave the Replace With box empty, and click the Replace All button. (The three numeric codes are the ASCII values of the straight quote, opening curly quote, and closing curly quote, respectively.)

If you're doing this with a macro, use code like this:

    Dim rg As Range

    Set rg = ActiveDocument.Range

    With rg.Find

        .Text = "[^34^0147^0148?]"

        .Replacement.Text = ""

        .MatchWildcards = True

        .Execute Replace:=wdReplaceAll

    End With