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

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

העורכים בוורד נתקלים הרבה פעמים בהצורך להשתיל קוד מסוים לפני ואחרי הסוגריים, ומה שאפשרי בעצם לעשות ע"י חיפוש והחלפה סטנדרטי היא חפש (\(*\)) החלף ב@1\1@2 וכדומה, [אפשר גם כך \(*\) החלף ב @1^&@2 וכו' וכו' ]אבל הרבה פעמים נתקלים למצב שיש סוגריים בתוך סוגריים ...
ובעצם למצב חד פעמי אפשר פשוט להחליף קודם את הסוגר הפנימי ע"י חיפוש (\([!\)]@)\( (קרדיט ל @YOSSIZ ) ולהחליף את הסוגריים השניים לכל תו אחרת ואז להשתיל את הקודים ולהחליף בחזרה, דהיינו החלף ב\1{.
מאחר דאני נצרך לזה הרבה ואני סובר שיהיה מזה תועלת לעוד הרבה אביא לכאן מאקרו שיעזור בנושא דידן, + אפשרות של שינוי צבע הטקסט שבסוגריים והיינו ע"י הורדת הגרש בשורה המסומנת, + וכן אפשרות להקטנת גודל הגופן ב2 (אפשר להחליף לגודל הרצוי) נקודות ע"י הסרת הגרש בתחילת השורה המתאימה כמסומן.

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"
' שורת הקטנת גודל הגופן (ב-2)
'.Font.SizeBi = .Font.SizeBi - 2
'שורת הצבע
'.Font.Color = wdColorBlue
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub

קרדיט ל @צורת-הדף (פרוג) .
ול @מגדלים .
בהצלחה.