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

[חכם וזקן]

רציתי לשאול את המומחים @es0583292679 @נוכחות @מאקרו @NykUser האם יש אפשרות לעשות פקודה שעושה שאחרי שאני סוגר סוגריים ולוחץ על מקש רווח אוטומטי הסוגריים יתקטנו [כמו שקורה אחרי שעושים נקודתיים וסגירת סוגריים שניהיה חיוך].

[es0583292679]

@חכם-וזקן
עובר לי בראש איך לעשות כזה דבר, אך זו עבודה.
תיקון טעויות אוטומטי לא יודע אם יעבוד.

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

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

[צדיק וטוב לו 0]

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

[רפרם בר בר פפא]

@es0583292679
ניתן להגדיר בתחילת המאקרו שישמור את מיקום הסמן הנוכחי בשם ובסוף המאקרו יחזור לטווח המוגדר
דוגמא

Public Sub חדש()

Dim A, Ignore As Double
' שומר מיקום נכוחי כ MY
Set My = Selection.range
'בוחר כל העמוד
Set MyRange = ActiveDocument.Bookmarks("\page").range
MyRange.SetRange Start:=MyRange.Start, End:=MyRange.End
MyRange.Select
'סופר שורות
  A = ActiveDocument.Bookmarks("\page").range.ComputeStatistics(wdStatisticLines)
   MsgBox A
   'חוזר למיקום הראשון
My.SetRange Start:=My.End, End:=My.End
My.Select

End Sub

[נוכחות]

פוסט זה נמחק!

[מאקרו]

@חכם-וזקן ישנה אפשרות פשוטה לעשות מאקרו של הפעולה הנ"ל שביקשת ולהקצות עבורו קיצור מקשים דומה להקלדת סוגריים, דהיינו Ctrl+9 (במקום Shift+9) וכך בכל פעם שתרצה לסגור סוגריים פשוט תלחץ על הקיצור הנ"ל.