פקודת מקרו בוורד

[כהן גדול]

האם יש אפשרות בפקודת מקרו שהוא יזכור חיפוש של תכונה כגון גופן מודגש, או סוג גופן מסויים? פשוט אני לא מתמצא בענין של פקודות מקרו וניסיתי ולא עלתה בידי.

 

[Yisrael]

אם תקליט מאקרו כשאתה מחפש את המאפיינים שהזכרת הוא אמור לחפש אותם בכל פעם שתפעיל את המאקרו הזה, איפה אתה מסתבך?

 

[כהן גדול]

ניסיתי לעשות את מה שכתבו פה וזה לא הולך לי.
עשיתי שהוא יחפש הדגשה [בלי טקסט] ויחליף ללא מודגש.
זו התוצאה של המקרו:
Sub Macro1()
'
' Macro1 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
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
איך שזה נראה שהוא לא רשם את התכונות. בכל אופן הוא לא מבצע את זה בפעם הבאה.

 

[Yisrael]

With Selection.Find
    .ClearFormatting
    .Font.Bold = True
    .Font.BoldBi = True
    .Replacement.ClearFormatting
    .Replacement.Font.Bold = False
    .Replacement.Font.BoldBi = False
    .text = ""
    .Replacement.text = ""
    .Execute Replace:=wdReplaceAll
End With