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

[ע"ה דכו"ע]

@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 כתב בבירור | מאקרו להקטנת סוגריים:

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

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

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