Need Short Macro-Find and Replace

rsrasc · #1 11-10-2014, 04:10 PM

Can the below code be summarized with a short code?

Thanks!

PHP Code:


			
Sub AnswerLetterChange()








'

' AnswerLetterChange Macro

'

'

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "A:"

        .Replacement.Text = "A."

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "B:"

        .Replacement.Text = "B."

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "C:"

        .Replacement.Text = "C."

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find

        .Text = "D:"

        .Replacement.Text = "D."

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

macropod · #2 11-10-2014, 04:26 PM

Code:

Sub AnswerLetterChange()
With ActiveDocument.Content.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchWildcards = True
  .Text = "<([A-D]):"
  .Replacement.Text = "\1."
  .Execute Replace:=wdReplaceAll
End With
End Sub

rsrasc · #3 11-10-2014, 05:03 PM

Thanks! Working great!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and Replace Macro	amparete13	PowerPoint	3	03-11-2014 05:29 AM
Is the following too complex for find/replace macro?	bertietheblue	Word VBA	12	11-04-2013 05:35 PM
Find - Replace Macro using a table list	mdw	Word	0	08-01-2013 04:36 PM
macro or find/replace	JamesVenhaus	Word	2	02-27-2012 03:34 PM
Find and Replace Macro - A Better Way	Tribos	Word VBA	0	10-08-2008 03:22 AM