تنظیم خودکار برگه‌های رهبر راست

Question

خیلی وقت‌ها پیش می‌آید که قالب‌بندی شما نیاز به تنظیم یک برگه سمت راست در حاشیه سمت راست دارد، و مطمئن شوید که روی آن زیرخط یا نقطه رهبر وجود دارد. اگر فرم‌های چیدمان‌شده «دستی» ایجاد کنید، اغلب این کار انجام می‌شود. با این حال، تنظیم چنین برگه‌هایی می‌تواند دردسرساز باشد، زیرا شامل استفاده از کادرهای محاوره‌ای یا نوار و اقدامات تکراری است.

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

Sub RightTab()
    Dim MarPos As Integer, NewPos As Integer
    Dim ThisPar As Paragraph

    MarPos = Selection.PageSetup.PageWidth - _
      Selection.PageSetup.LeftMargin - _
      Selection.PageSetup.RightMargin - _
      Selection.PageSetup.Gutter

    Set myrange = Selection.Range
    For Each ThisPar In myrange.Paragraphs
        NewPos = MarPos - ThisPar.RightIndent
        ThisPar.TabStops.ClearAll
        ThisPar.TabStops.Add Position:=NewPos, _
          Alignment:=wdAlignTabRight, _
          Leader:=wdTabLeaderLines
    Next ThisPar
End Sub

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

اگر نمی‌خواهید ماکرو تمام tab stop‌هایی را که قبلاً در پاراگراف‌های انتخاب شده تنظیم شده‌اند حذف کند، خطی را که از روش ClearAll استفاده می‌کند حذف کنید. اگر می‌خواهید به جای زیرخط، از خطوط راهنما در برگه استفاده کنید، نام ثابت wdTabLeaderLines را تغییر دهید. به wdTabLeaderDots.