בירור | מאקרו להקטנת סוגריים

[ע"ה דכו"ע]

@u88 כתב בבירור | מאקרו להקטנת סוגריים:

@ע-ה-דכו-ע אני יודע אבל אני מחפש שיהיה לי משהוא מתומצת במחשב ללא צורך בכל התוסף המלא
ובכו"ז תודה רבה

תעשה מאקרו רגיל של חיפוש והחלפה, ואח"כ תחליף את הקודים לחיפוש בקודים ש @pcinfogmach כתב כאן

[u88]

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

[ע"ה דכו"ע]

@u88 כתב בבירור | מאקרו להקטנת סוגריים:

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

תכניס במאקרו בטקסט של החלף ב:

^&

[u88]

@ע-ה-דכו-ע לא לכתוב את הקוד של ההחלפה?

[ע"ה דכו"ע]

@u88 כתב בבירור | מאקרו להקטנת סוגריים:

@ע-ה-דכו-ע לא לכתוב את הקוד של ההחלפה?

ב"חפש את" תכתוב את הקוד של ההחלפה, וב"החלף ב" תכתוב חוץ מהעיצוב גם את הקוד "^&" שהמשמעות שלו היא "הטקסט שבתיבת "חפש את"

[איש גמזו]

@u88 אתה יכול להעתייק משם את הקוד הספציפי של זה, כמדומני שזה בקוד פתוח.

[u88]

@ע-ה-דכו-ע אשמח שתתקן את מה שעשיתי מכיון שהוא לא עשה כלום הנה הקוד שנעשה בהקלטת מאקרו

'
' Macro2 Macro
'
'
    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
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    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 = 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
End Sub

[דאנציג]

@u88
בהקלטת מאקרו מתפספס הגודל והעיצוב בדרך כלל, צריך לכתוב לבד:

.Font.Size = 10

כאשר הספרה מציינת את הגודל של הפונט.

עריכה: https://mitmachim.top/post/613032

[u88]

@דאנציג אשמח שתראה לי את זה בקוד
תודה רבה

[דאנציג]

@u88

משהו בסגנון הזה:

Sub החלפת_גודל_גופן()
 
 With Selection.Find
        .Text = "\(*\)"
        .Replacement.Text = "^&"
        .Forward = True
    End With
       Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.SizeBi = "12"
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

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

[ע"ה דכו"ע]

@דאנציג כתב בבירור | מאקרו להקטנת סוגריים:

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

הפקודה היא

.MatchWildcards = True

כלומר הקוד שהבאת צריך להיות כך:

Sub החלפת_גודל_גופן()
 
 With Selection.Find
        .Text = "\(*\)"
        .Replacement.Text = "^&"
        .Forward = True
        .MatchWildcards = True
    End With
       Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.SizeBi = "12"
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ולשנות את המספר בשורה 10 לגודל שרוצים.