[Arnica]

I'm trying to set up a macro (Word 2003) to do several replacements in a selection of my text with italics in the replacement field.

I.e. I have a certain number of words (non italic) that need to be replaced with another word in italic.

I recorded the sequence for one of the words (actually, these are names of notes that need to be translated and italicized, ALA, BSI, etc.), and then copied it for each word.

My problem is that the italics don't get inserted with the macro, though they appeared when I recorded it.

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

What do I need to add to get the italics?

Many thanks!

[Arnica]

Originally Posted by Arnica

I'm trying to set up a macro (Word 2003) to do several replacements in a selection of my text with italics in the replacement field.

I.e. I have a certain number of words (non italic) that need to be replaced with another word in italic.

I recorded the sequence for one of the words (actually, these are names of notes that need to be translated and italicized, ALA, BSI, etc.), and then copied it for each word.

My problem is that the italics don't get inserted with the macro, though they appeared when I recorded it.

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

What do I need to add to get the italics?

Many thanks!

After further tries recording a macro with font attributes (italics), and seeing them disappear when I edit the macro itself, I just tried the same thing in Word 2000 and didn't have this problem. So I can solve the problem myself by adding the missing line. But is this a known bug in Word 2003? Or is there something that should be done differently?

Thanks!

[JWeissmn]

Try removing this line:

Selection.Find.Replacement.ClearFormatting

which removes the italic formatting from your replacement text.

[Arnica]

Originally Posted by JWeissmn

Try removing this line:

Selection.Find.Replacement.ClearFormatting

which removes the italic formatting from your replacement text.

Thank you. Indeed, that's what I was suspecting. But I nevertheless need to add the italics, since they aren't there to begin with:

Selection.Find.Replacement.Font.Italic = True

I got this line by recording the same macro in Word 2000. The mystery is why it doesn't appear when I record exactly the same thing in Word 2003, where I get this line instead:

Selection.Find.Replacement.ClearFormatting

Any explanation for this behavior?

Thanks.