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

[מלאכת מחשבת]

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

[מגדלים]

פוסט זה נמחק!

[מגדלים]

@מלאכת-מחשבת
הקוד הוא:

Sub הוספת_קודים()
Application.ScreenUpdating = False
again:
If Selection.Find.Execute(findText:="\(*\)", MatchWildcards:=True, Wrap:=wdFindStop) = True Then
    strt = 2: lent = Len(Selection.Text)
re:
     For i = strt To lent
        If Mid(Selection.Text, i, 1) = Chr(40) Then
        Selection.Extend Character:=Chr(41)
        strt = i + 1: lent = Len(Selection.Text)
        GoTo re
        End If
     Next
With Selection
 .InsertBefore "@00": .InsertAfter "@01"

 
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub

ויש להתאימו לפי הצורך. אשמח לשמוע על שיפורים או אם יהיו באגים...