Macro for Character Formatting

[e125]

Version of Word 2003:

I would like to know if someone can help me write a macro to do the following:

1) Find all instances of italicized text in a document
2) Replace it with Word's Emphasis Character formatting Style.

Any assistance would be much appreciated.

 

[Greg Maxey]

You don't need a macro to do this, but here it is:

Sub ScratchMacro()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Content
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Font.Italic = True
.Replacement.Text = ""
.Replacement.Style = ActiveDocument.Styles("Emphasis")
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Execute Replace:=wdReplaceAll
End With
End Sub

 

[e125]

Thank you for the response. I tried running this macro and the following
error message came up: "Sub or Function not defined." I perform this
operation often, so any help would go a long way.

I originally requested help for this macro because my recorder button goes
dim the minute I call up the search and find dialog box. Otherwise I would go
about it this way.

Any help on both of these questions would be much appreciated.

e125

 

[e125]

I tinkered with the VBA a bit and found where the problem was. Thank you so
much for your help. this will save me tons of time.

Gratefully,
e125