שאלה | מאקרו בוורד לא עובד על הדגשת האותיות של הערות שוליים

[מניין]

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

[מאקרו]

@מניין לא ממש הבנתי מה התכוונת לעשות ומה לא עובד, אבל תבדוק האם הקוד הבא יעבוד לך (עשיתי בו כמה שינויים שאולי יועילו).

Sub הערות()
'
'
    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End).FootnoteOptions
        .Location = wdBottomOfPage
        .NumberingRule = wdRestartContinuous
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleHebrewLetter1
        .LayoutColumns = 1
    End With
 
    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
        wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekFootnotes
    Else
        ActiveWindow.View.SplitSpecial = wdPaneFootnotes
    End If
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .BoldBi = True
    End With
    With Selection.Find
        .Text = "^f"
        .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
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ".."
        .Replacement.Text = "."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .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

[מניין]

@מאקרו כתב בשאלה | מאקרו בוורד לא עובד על הדגשת האותיות של הערות שוליים:

@מניין לא ממש הבנתי מה התכוונת לעשות ומה לא עובד, אבל תבדוק האם הקוד הבא יעבוד לך (עשיתי בו כמה שינויים שאולי יועילו).

אני יסביר את עצמי, הכנסתי המאקרו שיעוצב איך שאני אוהב, בלחיצה אחת 1. שיהיה למטה תמיד טור אחד. 2. אותיות לא עיליות. 3. אותיות עבריות. 4. נקודה לאחר האות. 5. שהאותיות של ההערות למטה יהיו מודגשות.
ועכשיו כל הפעולות עובדות מצויין, חוץ מפעולה 5 של ההדגשה, שבשעה שהקלטתי אותה זה כן עבד, ורק בהפעלת המקרו זה לא עובד, והדבר המעניין הוא שכשאני מחליף למספרים זה כן מודגש, וכשאני מחזיר שוב לאותיות נעלם ההדגשה.
ודרך אגב גם במאקרו שלך אין את ההדגשה, וגם משאיר אותיות עיליות.

[מאקרו]

@מניין תנסה להחליף בקוד שלך את זה Bold = True. ל BoldBi = True.

[מניין]

@מאקרו כתב בשאלה | מאקרו בוורד לא עובד על הדגשת האותיות של הערות שוליים:

@מניין תנסה להחליף בקוד שלך את זה Bold = True. ל BoldBi = True.

עובד מעולה, תודה רבה, רק אם אתה יכול להסביר לי למה זה ואיך תיקנת.

[מאקרו]

@מניין Bold זה לאנגלית ו BoldBi זה לעברית.

[מניין]

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

    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End).FootnoteOptions
        .Location = wdBottomOfPage
        .NumberingRule = wdRestartContinuous
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleHebrewLetter1
        .LayoutColumns = 1
    End With