تنظیم عرض ستون استاندارد

Question

لیز چندین سند دارد که هر کدام دارای چندین جدول حاوی محتوا هستند. این جداول جداول دو ستونی ساده با تعداد سطرهای متفاوت هستند. در حال حاضر، عرض ستون جداول بسته به محتوا متفاوت است. لیز می خواهد همه جداول دارای عرض ستون یکسان باشند (مثلاً 5.25 اینچ برای ستون اول و 1.25 اینچ برای ستون دوم). او فکر می کند که آیا راهی برای انجام این کار به جز تنظیم عرض ستون ها برای هر جدول در یک زمان وجود دارد.

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

https://wordribbon.PCcloob.ir/T011693

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

Sub SetTableWidths()
    Dim t As Table
    Dim iFixed As Integer
    Dim iSkipped As Integer
    Dim sTemp As String

    iFixed = 0
    iSkipped = 0
    For Each t In ActiveDocument.Tables
        If t.Columns.Count = 2 Then
            t.Columns(1).Width = InchesToPoints(5.25)
            t.Columns(2).Width = InchesToPoints(1.25)
            iFixed = iFixed + 1
        Else
            iSkipped = iSkipped + 1
        End If
    Next t
    sTemp = "Tables Fixed: " & iFixed & vbCr
    sTemp = sTemp & "Tables Skipped: " & iSkipped
    MsgBox sTemp
End Sub

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

این رویکرد مبتنی بر کلان برای اسنادی که از قبل جداول در آنها وجود دارد عالی عمل می کند. اگر اسناد جدیدی ایجاد می کنید، باید یک جدول "استاندارد" ایجاد کنید و آن را به عنوان یک بلوک ساختمانی ذخیره کنید. این باعث می‌شود که هنگام توسعه آن، چنین جدولی را در سند خود قرار دهید. روشی که شما این کار را انجام می دهید در یک WordTip متفاوت پوشش داده شده است :

https://wordribbon.PCcloob.ir/T006076