עזרה בוורד הקטנת כל הסוגריים בוורד

[אמא של מטי]

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

 

[מרדכי קאר]

בהחלפה לכתוב
\(*\) - בשורת החיפוש
ובשורת ההחלפה להגדיר את הגודל הרצוי

 

[tkh]

ולא לשכוח לסמן תוים כלליים.

 

[תלמידים]

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

Sub round_brackets()
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
.Font.SizeBi = .Font.SizeBi - 1.5
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub