How do I combine 2 similar macros into one?

[marcia]

I have 2 macros that I use when working on documents to standardize
formatting of a particular phrase. Is there a way to combine them into one
macro?

Here are the 2:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Q Clearance"
.Replacement.Text = """Q"" Clearance"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

AND

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "'Q' Clearance"
.Replacement.Text = """Q"" Clearance"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Thanks for any help you can give me.
marcia

 

[DaveLett]

Hi Marcia,

You can use something like the following:

With Selection.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Text = "Q Clearance"
With .Replacement
.Text = """Q"" Clearance"
.ClearFormatting
End With
.Execute Replace:=wdReplaceAll

.Text = "'Q' Clearance"
.Execute Replace:=wdReplaceAll
End With

 

[marcia]

Dave, Thanks for the help.
Is there a way for the macro to put in quotation marks and not inch marks?

 

[DaveLett]

Hi Marcia,
I assume that you mean straight quotes. You can use something like the
following:

Dim bReplace As Boolean
'''store the current user setting
bReplace = Options.AutoFormatAsYouTypeReplaceQuotes
'''change the user setting
Options.AutoFormatAsYouTypeReplaceQuotes = True

With Selection.Find
..ClearFormatting
..Forward = True
..Wrap = wdFindContinue
..Format = False
..MatchCase = True
..MatchWholeWord = False
..MatchWildcards = False
..MatchSoundsLike = False
..MatchAllWordForms = False
..Text = "Q Clearance"
With .Replacement
..Text = """Q"" Clearance"
..ClearFormatting
End With
..Execute Replace:=wdReplaceAll

..Text = "'Q' Clearance"
..Execute Replace:=wdReplaceAll
End With

'''restore the user's original setting
Options.AutoFormatAsYouTypeReplaceQuotes = False

HTH,
Dave

 

[marcia]

That is exactly what I needed. THANK YOU!!!