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

[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) בתפריט "מפתחים".

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

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

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

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

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

[u88]

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

בכו"ז תודה על הטרחה ועל ההסבר המפורט

[דאנציג]

@u88
הכי פשוט בלי להסתבך זה להקליט להוריד את שם המאקרו, ואת הסוף שלו למשל את שורה 1 ושורה 3:

Sub החלפת_גודל_גופן()
 המאקרו - לא למחוק
End Sub

הכי טוב להוסיף גרש ['] בתחילת השורה הזו, כך שאם תרצה לחלק פשוט תמחק את הגרש.
https://mitmachim.top/post/777737

[u88]

@דאנציג אשמח להבין מה כוונת כבודו
מה להסיר את ההתחלה ואת הסוף של כל מאקרו ולצרף יחד?

[דאנציג]

@u88
למשל:

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

'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

'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

[u88]

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

[ע"ה דכו"ע]

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

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

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

אם התכוונת לשאול אם זה עובר על המסמך בכמה פעמים אז התשובה היא כן.

[u88]

@ע-ה-דכו-ע תודה רבה על ההסבר שגרש' עושה את החיבור

Spoiler

תודה על ההסברים שהם אליבא דכו"ע

[דאנציג]

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

שגרש' עושה את החיבור

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

אגב, תוכל לבחור גודל שונה לכל סוג של סוגריים, לפי השורה של הגודל שבאותו חיפוש...

[יאיר דניאל]

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

אגב, תוכל לבחור גודל שונה לכל סוג של סוגריים, לפי השורה של הגודל שבאותו חיפוש...

כלומר? אני יכול לעשות חיפוש של כמה גדלים באותה פקודת מאקרו, ע"י צירוף כמה מאקרואים יחד,
או שאפשר להכפיל רק את השורה של הגודל ולשנות אותה בהתאם לצורך?

[דאנציג]

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

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

אני התכוונתי לזה.
אבל אפשר גם

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

להכפיל רק את השורה של הגודל ולשנות אותה בהתאם לצורך

אבל אני לא יודע כיצד (צריך לכתוב את המאקרו בצורה שונה.

@menajemmendel ???