מאקרו (WORD) לא מקליט הדגשה (BOLD) בחיפוש והחלפה

[מרכז שטרן להורות קלה]

יש למישהו מושג למה?

הקלטתי מאקרו שיעשה הדגשת מילים (BOLD)
והוא לא מבצע אותו בהרצת המאקרו.

אני מצרך כאן את שורות הקוד של המאקרו,
למי שיש פתרון, יעזור לי מאד.

זה גם די דחוף לי.

תודה!!


הקוד:

Sub BOLD()
'
' BOLD Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\{*\}"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[צ ב י]

זה מה שצריך להיות במקרו למודגש

Sub GRAS()
'
' GRAS Macro
'
'
Selection.Font.Bold = wdToggle
Selection.Font.BoldBi = wdToggle
End Sub​

 

[מרכז שטרן להורות קלה]

זה מה שצריך להיות במקרו למודגש

Sub GRAS()
'
' GRAS Macro
'
'
Selection.Font.Bold = wdToggle
Selection.Font.BoldBi = wdToggle
End Sub​

תודה,
אתה יכול לציין איפה בדיוק לשים כל שורה
בשורות כלפי הקוד שהבאתי למעלה?

 

[מרכז שטרן להורות קלה]

תודה,
הסתדרתי.