מנסה ליצור מאקרו בוורד להוספת סוגריים לטקסט מסומן

[מעלה ומוריד]

אני מעוניין ליצור מאקרו שאוכל להוסיף סוגריים (ושאר סימונים) לפני ואחרי טקסט מסומן.

אפשרות א: ניסיתי באופן זה, אבל הבעיה היא שההעתקה באופן הזה בעייתית והוא לא מוצא את מה להדביק
המעניין הוא שלפעמים פתאום המאקרו עובד, אבל ב99.9% מהמקרים יש באג שהמאקרו לא מוצא את מה להדביק

Sub סוגריים_עגולים_לטקסט_נבחר()
'
' סוגריים_עגולים_לטקסט_נבחר Macro
'
'
    Selection.Copy
    Selection.TypeText Text:="("
    Selection.Paste
    Selection.TypeText Text:=")"
End Sub

אפשרות ב: האם יש דרך לסמן ב"חיפוש והחלפה" את המילה הראשונה והאחרונה בטקסט נבחר? כי כך אוכל להכניס להם את התווים..

אפשרות ג: ?

[mekev]

@מעלה-ומוריד

Sub AddParens()
    If Len(Selection.Range) > 0 Then
        Selection.InsertBefore "("
        Selection.InsertAfter ")"
    Else
        MsgBox "לא נבחר טקסט"
    End If
End Sub

קרדיט