בקשת מידע | שני רעיונות לוורד בהשראת vscode

[hartkhartk]

יש לי שני רעיונות לוורד בהשראת vscode

שימו לב שאני כמעט לא משתמש בוורד כך שאני לא יודע אם זה רעיון טוב או לא

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

Spoiler

אם הקלדת " זה יקליד "" כשהסמן אטומטית בין השניים
ואם הקלדת ( זה יקליד () כשהסמן אטומטית בין השניים

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

Spoiler

אם סימנת הרב ואז לחצת " כשזה עוד מסומן במקום להחליף את הרב ב-" זה יחליף ב-"הרב"
ואם סימנת הרב ואז לחצת ( כשזה עוד מסומן במקום להחליף את הרב ב-( זה יחליף ב-(הרב)

אז זה רעיון טוב או מיותר ומפריע?

[דאנציג]

@hartkhartk כתב:

רעיון טוב

איך תעשה את זה?

[hartkhartk]

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

[דאנציג]

@hartkhartk כתב:

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

לזה יש כבר מאקרו, אבל שצריך להפעיל אותו, ולא שכאשר לוחצים על " המילים שנבחרו מוקפים.
https://mitmachim.top/post/555114
לכאורה אפשר לעשות את זה די בקלות @menajemmendel @pcinfogmach ?

[אם לא עכשיו]

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

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

[bar123bar]

1. קוד עבור גרשיים (")
   קוד זה בודק אם יש טקסט מסומן. אם יש – הוא עוטף אותו. אם אין – הוא מזין זוג גרשיים ומחזיר את הסמן צעד אחד אחורה.

VBA
Sub HandleQuotes()
Dim sel As Selection
Set sel = Application.Selection

' אם יש טקסט מסומן - עטיפת הטקסט בגרשיים
If sel.Type = wdSelectionNormal Then
    Dim txt As String
    txt = sel.Text
    sel.Text = """" & txt & """"
    ' השארת הטקסט מסומן כולל הגרשיים (אופציונלי)
    sel.MoveRight Unit:=wdCharacter, Count:=1
Else
    ' אם אין טקסט מסומן - יצירת זוג והזזת הסמן ביניהם
    sel.TypeText Text:="""" & """"
    sel.MoveLeft Unit:=wdCharacter, Count:=1
End If

End Sub
2. קוד עבור סוגריים עגולים ( ) )
הערה: המאקרו מופעל בעת לחיצה על הסוגר הפותח (במקלדת עברית תקנית מדובר במקש Shift + 0 המייצר את הסוגר הפותח החזותי ().

VBA
Sub HandleParentheses()
Dim sel As Selection
Set sel = Application.Selection

' אם יש טקסט מסומן - עטיפת הטקסט בסוגריים
If sel.Type = wdSelectionNormal Then
    Dim txt As String
    txt = sel.Text
    sel.Text = "(" & txt & ")"
    sel.MoveRight Unit:=wdCharacter, Count:=1
Else
    ' אם אין טקסט מסומן - יצירת זוג והזזת הסמן ביניהם
    sel.TypeText Text:="()"
    sel.MoveLeft Unit:=wdCharacter, Count:=1
End If

End Sub
כיצד להגדיר זאת ב-Word כדי שיעבוד אוטומטית בלחיצה?
לאחר העתקת הקוד לעורך ה-VBA (Alt + F11), יש לשייך את הרצת המאקרו למקשים הנכונים:

היכנס לקובץ (File) > אפשרויות (Options) > התאמה אישית של רצועת הכלים (Customize Ribbon).

בתחתית החלון, ליד Keyboard shortcuts, לחץ על התאם אישית... (Customize...).

בגלילה השמאלית (Categories), רד עד הסוף ובחר ב-Macros.

בגלילה הימנית, בחר ב-HandleQuotes.

לחץ על תיבת "Press new shortcut key", והקש על מקש הגרשיים במקלדת שלך. לחץ על Assign.

חזור על הפעולה עבור HandleParentheses ושייך אותו למקש הסוגר הפותח שלך במקלדת.