אופיס 365 וורד - איך מקליטים מאקרו שמשנה גודל פונט?

[נירוש]

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

אשמח לדעת איך עושים זאת.

 

[Rרחמים]

הקלטתם חיפוש והחלפה?
איזה קוד קיבלתם?

 

[נירוש]

הקלטתם חיפוש והחלפה?
איזה קוד קיבלתם?

 ActiveWindow.ActivePane.VerticalPercentScrolled = 7
    ActiveWindow.ActivePane.VerticalPercentScrolled = 8
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "תרגום יונתן"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

 

[Rרחמים]

שימו לב לשורות המודגשות
הראשונה להדגשה, והשניה להגדרת גודל הגופן

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find[I]
  [B]      .Replacement.Font.BoldBi = 1
        .Replacement.Font.SizeBi = 15[/B][/I]
        .text = "תרגום יונתן"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

 

[נירוש]

שימו לב לשורות המודגשות
הראשונה להדגשה, והשניה להגדרת גודל הגופן

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find[I]
  [B]      .Replacement.Font.BoldBi = 1
        .Replacement.Font.SizeBi = 15[/B][/I]
        .text = "תרגום יונתן"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

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

 

[Rרחמים]

אצלי זה עובד מצויין, תצרפו את הקוד המלא.

 

[נירוש]

אצלי זה עובד מצויין, תצרפו את הקוד המלא.

Sub About()
'
' About Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Replacement.Font.BoldBi = 1
        .Replacement.Font.SizeBi = 15
        .Text = "תרגום יונתן"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub

 

[Rרחמים]

חסרה שורה אחת

Sub About()

 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Replacement.Font.BoldBi = 1
        .Replacement.Font.SizeBi = 15
        .text = "תרגום יונתן"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
       [B][U] .Execute Replace:=wdReplaceAll[/U][/B]
    End With
    
End Sub

 

[נירוש]

תודה ויישר כח! עובד מצוין.

עוד שאלה אחת - איך אני מוסיפה לדוגמא "רשב"א" - שיעשה את אותה הפעולה, האם יש לכתוב את כל הקוד מתחילה ובמקום תרגום יונתן - לכתוב רשב"א, או שיש דרך להוסיף לקוד הזה שמות נוספים?

 

[Rרחמים]

אפשר עם מערך ולולאה

 

[נירוש]

אפשר עם מערך ולולאה

בשבילי זה אידיש...