View Single Post
 
Old 09-15-2013, 07:44 AM
sleake sleake is offline Windows XP Office 2007
Advanced Beginner
 
Join Date: Jul 2011
Posts: 60
sleake is on a distinguished road
Default Error in Macro to Add 2 Spaces After Closing Parenthesis

Upper management on my project has directed us to use two spaces after periods (next they'll be re-issuing IBM Selectrics!).

I've created a macro to add 2 spaces after periods and colons. But now need to create one that adds 2 spaces after a closing parenthesis within a paragraph. For example, if there is a (See Section X.) within a paragraph -- not at the end.

I recorded a macro using Replace, which worked when I recorded it, but gives a "The Find What text contains a Pattern Match expression which is not valid." I'm sure it's the ), but don't know what to do to omake the macro do what I want. Here's the recorded code:

'Places 2 spaces after a closing parenthesis ")" within lines of text
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ") "
.Replacement.Text = ") "
.Forward = True
.Wrap = wdFindContinue

End With
Selection.Find.Execute Replace:=wdReplaceAll

I'd appreciate suggestions.
Reply With Quote