הקטנת טקסט בתוך סוגריים

[ישא ברכה]

איך אני עושה בוורד הקטנה אוטמטית של כל הטקסט שבתוך סוגריים.
תודה מראש!

[מעט דבש]

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

וראה עוד כאן.

[לכשיבקע]

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

דוגמה.PNG (9.18 KiB) נצפה 3223 פעמים

דוגמה 2.PNG (22.03 KiB) נצפה 3223 פעמים

[לבי במערב]

אגב, 'כל ישראל' היא משנה בסנהדרין י, א...

[יואל שילה]

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

[לכשיבקע]

אגב, 'כל ישראל' היא משנה בסנהדרין י, א...

תודה...

[יואל שילה]

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

Sub סוגרים_מרובעות_טהומה()
'
' סוגרים_מרובעות_טהומה מאקרו
' מאקרו הוקלט ב- ‏31/מרץ/07 על-ידי יואל שילה
'
Selection.TypeText Text:="[] "
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
Selection.Style = ActiveDocument.Styles("טהומה 8")
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

[יואל שילה]

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

Sub סוגרים_מרובעות_טהומה()
'
' סוגרים_מרובעות_טהומה מאקרו
' מאקרו הוקלט ב- ‏31/מרץ/07 על-ידי יואל שילה
'
Selection.TypeText Text:="[] "
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
Selection.Style = ActiveDocument.Styles("טהומה 8")
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

[בלום]

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