עזרה בוורד מאקרו לא מקליט הדגשה (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
 

moishy

משתמש סופר מקצוען
מנוי פרימיום
קוד:
Sub Bold()
    With ActiveDocument.Range
      With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "\{*\}"
        .Replacement.Text = ""
        .Forward = True
        .Format = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        .Execute
      End With
      Do While .Find.Found
        .Select
        .Font.BoldBi = True
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
End Sub
 
קוד:
Sub Bold()
    With ActiveDocument.Range
      With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "\{*\}"
        .Replacement.Text = ""
        .Forward = True
        .Format = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        .Execute
      End With
      Do While .Find.Found
        .Select
        .Font.BoldBi = True
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
End Sub
תודה!

אני מבין שעלי להעתיק את זה כך לקוד.
אנסה.
שוב תודה.
 
קוד:
Sub Bold()
    With ActiveDocument.Range
      With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "\{*\}"
        .Replacement.Text = ""
        .Forward = True
        .Format = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        .Execute
      End With
      Do While .Find.Found
        .Select
        .Font.BoldBi = True
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
End Sub

הצליח!
ב"ה!!

אין מילים להודות.
 

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  5  פעמים

לוח מודעות

למעלה