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

[u88]

@ע-ה-דכו-ע @דאנציג רק אשמח איך אני עושה החלף הכל ולא אחד אחד
בכו"ז תודה רבה ועצומה לכל הטורחים במלאכה

[דאנציג]

@pcinfogmach

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

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

[ע"ה דכו"ע]

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

@ע-ה-דכו-ע @דאנציג רק אשמח איך אני עושה החלף הכל ולא אחד אחד
בכו"ז תודה רבה ועצומה לכל הטורחים במלאכה

תנסה את זה

Sub החלפת_גודל_גופן()
    Dim rng As Range 
    Set rng = ActiveDocument.Content 
 With rng.Find
        .ClearFormatting 
        .Text = "\(*\)"
        .Replacement.Text = "^&"
        .Forward = True
        .MatchWildcards = True
    End With
        Do While rng.Find.Execute 
            rng.Font.SizeBi = 10 
            rng.Collapse wdCollapseEnd 
        Loop b
end sub

[דאנציג]

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

רק אשמח איך אני עושה החלף הכל ולא אחד אחד

ניסית?
וזה החליף לך רק אחד???

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

תנסה את זה

למה?

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

Selection.Find.Execute Replace:=wdReplaceAll

מחליף את כל המופעים!!!

[ע"ה דכו"ע]

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

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

רק אשמח איך אני עושה החלף הכל ולא אחד אחד

ניסית?
וזה החליף לך רק אחד???

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

תנסה את זה

למה?

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

Selection.Find.Execute Replace:=wdReplaceAll

מחליף את כל המופעים!!!

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

[דאנציג]

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

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

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

[u88]

@דאנציג אצלי זה החליף כל פעם אחד ולא יותר

[דאנציג]

@u88
מוזר
@pcinfogmach איך יכול להיות שהקוד הזה:

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

אצלי מחליף את כל המופעיל, ואילו אצל @u88 רק אחד?

[pcinfogmach]

@דאנציג
אתה צריך להוסיף wrap

[pcinfogmach]

@דאנציג

Spoiler

הניסוח של gpt אני רק אמרתי לו מה להגיד

ב־VBA של Word, כאשר אתה מבצע Selection.Find.Execute Replace:=wdReplaceAll, יש לו התנהגות שונה אם לא הגדרת את פרמטר Wrap.

ברירת המחדל של Wrap היא wdFindStop, מה שאומר שהחיפוש יפסיק בסוף המסמך ולא ימשיך להתחלה. לכן, ייתכן שאצלך זה עובד כי אתה מתחיל מראש המסמך, ואצל @u88 לא — כי הוא לא ממוקם בתחילת המסמך.

כדי לוודא שהחיפוש מתבצע על כל המסמך, הוסף את השורה:

.Selection.Find.Wrap = wdFindContinue

הקוד המלא שלך עם התיקון יהיה כך:

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

שים לב גם ש־.SizeBi צריך לקבל מספר, לא מחרוזת — כלומר, בלי גרשיים סביב 12.

[u88]

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

תודה רבה לכל הטורחים והמסייעים!!!!

[יאיר דניאל]

@u88 אאל"ט זה אמור לעבוד כך:
במקום

(\[*\])

תכתוב -

(\[\{\(*\]\}\))

הסבר:

\

תו שלילה (בכדי שיתייחס לסוגריים לסוגריים ולא כפקודה אחרת, ואז כל סוגי הסוגריים הפותחים, ואז * - שמסמן מספר תוים בלתי מוגבל בחיפוש והחלפה בתווים כלליים, ואז \ עם כל הסוגריים הסוגרים.

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