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

[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 לגודל שרוצים.

[pcinfogmach]

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

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

יהיה לך הרבה תועלת במקרים כאלו להתשמש בהקלטת מאקרו

[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 אאל"ט זה אמור לעבוד כך:
במקום

(\[*\])

תכתוב -

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

הסבר:

\

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

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

[pcinfogmach]

@u88
אתה צריך להתמש עם תווים כלליים ואז פשוט תשתמש עם קבוצות
קבוצות בחיפוש והחלפה בוורד נותן לך להגדיר מספר תווים חילופיים בו זמנית
כך שאם תכתוב [שנב] וורד יחפש או ש' או נ' או ב'

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

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

\([!(]@)\)

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

שלב ב'

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

\(*\(*\)*\)

[u88]

@pcinfogmach שאלתי ובקשתי אם מצאתי חן רציתי לשאול איך נעשה את זה בפקודת מאקרו

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

[ע"ה דכו"ע]

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

@pcinfogmach שאלתי ובקשתי אם מצאתי חן רציתי לשאול איך נעשה את זה בפקודת מאקרו

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

תכניס את הקודים שהוא הביא בשורה TEXT במקום הקודים הקודמים.

[pcinfogmach]

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

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

כדאי מאוד מאוד שתלמד על הקלטת מאקרו

Spoiler

כדי להקליט מאקרו ב-Microsoft Word, פעל לפי השלבים הבאים:

פתח את תפריט המפתחים:

אם לשונית "מפתחים" אינה מופיעה, הפעל אותה:

לחץ על "קובץ" > "אפשרויות" > "התאמה אישית של רצועת הכלים".

סמן את התיבה ליד "מפתחים" ולחץ "אישור".

התחל הקלטת מאקרו:

עבור ללשונית "מפתחים".

לחץ על "הקלט מאקרו" (Record Macro).

הגדרות המאקרו:

תן שם למאקרו בשדה "שם המאקרו" (לדוגמה: MyMacro).

בחר היכן לשמור את המאקרו:

"כל המסמכים החדשים" (Normal.dotm) כדי לשמור אותו באופן גלובלי.

"מסמך זה" אם המאקרו נועד רק למסמך הנוכחי.

ניתן להוסיף תיאור קצר (אופציונלי).

בצע את הפעולות הרצויות:

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

עצור את ההקלטה:

לחץ על "עצור הקלטה" (Stop Recording) בתפריט "מפתחים".

הפעלת המאקרו:

עבור ללשונית "מפתחים" > "מאקרו".

בחר את המאקרו מהרשימה ולחץ על "הפעל".

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

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