בעיה | באג בהקטנת סוגריים בחיפוש והחלפה

[יאיר דניאל]

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

'
' הקטנת_סוגריים_מרובעות Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = -704610049
    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 Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = -704610049
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = -587137025
    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
        .Replacement.Font.SizeBi = 11
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

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

יש לזה פתרון?

[menajemmendel]

@יאיר-דניאל כתב בבעיה | באג בהקטנת סוגריים בחיפוש והחלפה:

    .Replacement.Font.SizeBi = 11

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

.Replacement.Font.Size = 11

אבל תבדוק את זה קודם, אני לא בדקתי את זה, אז אני לא בטוח,

[יאיר דניאל]

@menajemmendel תודה על התגובה,
אבל זה לא עזר

[menajemmendel]

@יאיר-דניאל כתב בבעיה | באג בהקטנת סוגריים בחיפוש והחלפה:

@menajemmendel תודה על התגובה,
אבל זה לא עזר

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

[יאיר דניאל]

@menajemmendel הבאתי רק דוגמה, יש לי אותו פקודת מאקרו לסוגריים עגולות