משהו בסגנון הזה:
Sub החלפת_גודל_גופן()
With Selection.Find
.Text = "\(*\)"
.Replacement.Text = "^&"
.Forward = True
End With
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.SizeBi = "12"
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
אבל צריך שיהיה מוגדר חיפוש בתווים כללים (חיפוש אחרון בחיפוש), ואני לא יודע איך עושים את זה במאקרו, אולי @pcinfogmach יוכל לתת את הפקודה להפעלת תווים כללים במאקרו... או שיש לו דרך יותר טובה.