How do I create a macro that uses the Replace command?

G

Guest

I am trying to create a macro that will delete all bold text using Edit and
Replace. I create the Macro, but it does not work. I think it may have
something to do with the dialog boxes that pop up after the replacements.
Any advice?
 
G

Graham Mayor

It has more to do with the inability of the macro recorder to record all the
replace functions. You will have to add the extra lines:

eg to remove all emboldened text (as opposed to removing the bold attribute)

Sub ReplaceExample()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
'**********************
.Text = ""
.Font.Bold = True
.Replacement.Text = ""
'**********************
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
End With
Selection.Find.Execute replace:=wdReplaceAll
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

how can I use Word find and Replace to search inside a stringvariable (in a macro) 1
Macro: Search and replace but retain certain information in result 3
Find and Replace Macro 5
Macro to find and replace paragraph markers with tabs 3
Macro / replace (wildcards) 1
How do I create Macro Button using Word 2003 5
How to find and replace text in a document with changing variables 2
How can I create a macro to find and replace text attributes? 3

Top