מרכז שטרן להורות קלה
משתמש מקצוען
יש למישהו מושג למה?
הקלטתי מאקרו שיעשה הדגשת מילים (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