به طور معمول، هنگام تایپ متن خود، پرانتزهایی را در اطراف اظهارات پرانتزی خود اضافه می کنید. با این حال ممکن است مواقعی پیش بیاید که بخواهید بعداً پرانتزها را اضافه کنید. به عنوان مثال، در حین ویرایش سند خود می توانید متنی را انتخاب کنید و سپس بخواهید پرانتزهایی در اطراف متن انتخاب شده اضافه شود. ماکرو زیر، AddParens، می تواند برای اضافه کردن پرانتز مورد نظر استفاده شود:
Sub AddParens()
If Len(Selection.Range) > 0 Then
Selection.InsertBefore "("
Selection.InsertAfter ")"
Else
MsgBox "No text was selected!"
End If
End Sub
ماکرو از متدهای InsertBefore و InsertAfter برای اضافه کردن پرانتز مناسب قبل و بعد از متن انتخاب شده استفاده می کند.
برای استفاده از ماکرو، آن را به یک کلید میانبر یا یک دکمه نوار ابزار اختصاص دهید. سپس متن مورد نظر را انتخاب کرده و ماکرو را فراخوانی می کنید. پرانتزهای مورد نظر به متن اضافه می شوند. (اگر هیچ متنی را قبل از فراخوانی ماکرو انتخاب نکنید، یک کادر پیغام به همین منظور خواهید دید.)
