درج خودکار براکت ها

Question

بسیاری از اسناد مختلف برای ساخت خود الزامات مختلفی دارند. به عنوان مثال، ممکن است سندی داشته باشید که در آن لازم است کلمات تکرار شونده خاصی را در داخل پرانتز قرار دهید تا برجسته شوند. (برخی از دستورالعمل های فنی از این قرارداد برای تعیین ضربه های کلید، مانند کلید [Enter] استفاده می کنند.)

اگر نیازی مانند این دارید، ممکن است مفید باشد که به سادگی متن خود را تایپ کنید و سپس به عقب برگردید و بعداً براکت ها را اضافه کنید. اینجاست که یک ماکرو می‌تواند به کمک شما بیاید. به عنوان مثال، می توانید کلمه را انتخاب کنید (روی آن دوبار کلیک کنید) و سپس یک ماکرو اجرا کنید که براکت ها را اضافه می کند. ماکرو زیر به راحتی این کار را انجام می دهد:

Sub AddBrackets()
    Dim iCount As Integer
    iCount = 1
    While Right(Selection.Text, 1) = " " Or _
      Right(Selection.Text, 1) = Chr(13)
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, _
          Extend:=wdExtend
        iCount = iCount + 1
    Wend

    Selection.InsertAfter "]"
    Selection.InsertBefore "["
    Selection.MoveRight Unit:=wdCharacter, Count:=iCount
End Sub

ماکرو هر فاصله یا علامت پاراگراف را در انتهای انتخاب شما جبران می کند. وقتی اجرای آن تمام شد، نقطه درج در انتهای انتخاب اصلی باقی می ماند. می توانید ماکرو خود را به میانبر صفحه کلید یا نوار ابزار دسترسی سریع اختصاص دهید.