چاپ فقط ردیف های انتخاب شده از جدول

Question

مایکل یک میز بسیار طولانی دارد. یک ستون از جدول شامل کاراکترهای کدگذاری مانند حروف c، b، x و غیره است. او فکر می کند که آیا راهی وجود دارد که وقتی جدول را چاپ می کند فقط ردیف هایی را چاپ کند که یک کاراکتر کدگذاری خاص در ستون دارند. به عنوان مثال، او ممکن است بخواهد فقط ردیف هایی را چاپ کند که حاوی کد "c" در ستون کدگذاری هستند.

چند روش وجود دارد که می توانید برای مقابله با این مشکل از آنها استفاده کنید. شاید ساده ترین روش کپی کردن جدول در یک کاربرگ اکسل و سپس فیلتر کردن داده ها بر اساس کاراکترهای ستون کدنویسی باشد. سپس می توانید کاربرگ فیلتر شده را چاپ کنید و همان چیزی را که می خواهید داشته باشید.

البته ممکن است مواقعی پیش بیاید که کار در اکسل به جای Word عملی یا مطلوب نباشد. به عنوان مثال، ممکن است اکسل نداشته باشید یا ممکن است نیازهای قالب بندی بیشتر از آنچه اکسل می تواند ارائه دهد داشته باشید. در این صورت، به سادگی می توانید جدول خود را در Word بر اساس محتویات ستون کدگذاری مرتب کنید. سپس، ردیف‌های جدولی را انتخاب کنید که حاوی کدی است که می‌خواهید چاپ شود (از زمانی که جدول را مرتب کرده‌اید، همه باید به هم پیوسته باشند) و چاپ را انتخاب کنید. با این حال، هنگام تعیین اینکه چه چیزی چاپ شود، فقط انتخاب را چاپ کنید.

روش ممکن دیگر استفاده از جدول خود به عنوان منبع داده برای ادغام نامه است. من به مراحل دقیقی که در طراحی ادغام نامه استفاده می شود نمی پردازم (این ادغام در سایر WordTips پوشش داده شده اند )، اما می توانید مشخص کنید که ادغام فقط شامل مواردی باشد که دارای کاراکتر مورد نظر در ستون کدگذاری هستند.

در نهایت، اگر نیاز دارید این چاپ انتخابی را اغلب انجام دهید، ممکن است بخواهید یک ماکرو برای انجام کار ایجاد کنید. ساده ترین راه برای انجام این کار این است که ماکرو یک سند جدید ایجاد کند و ردیف های مورد نظر را در آن سند کپی کند.

Sub CopyTableRows()
    Dim SourceDoc As Document
    Dim r As Row
    Dim iCol As Integer
    Dim sPCode As String
    Dim sTemp As String

    iCol = 3        " Set the coding column
    sPCode = "C"    " Set code to select (must be uppercase)

    ScreenRefresh = False

    Set SourceDoc = ActiveDocument      " Get active document"s name
    Documents.Add       " Create a new document

    " Find all rows that have correct code in the coding column
    For Each r In SourceDoc.Tables(1).Rows
        sTemp = UCase(r.Cells(iCol).Range)
        sTemp = Left(sTemp, Len(sTemp) - 2)     " Remove cell overhead
        
        If sTemp = sPCode Then
            r.Range.Copy
            Selection.PasteAndFormat wdFormatOriginalFormatting
        End If
    Next r

    ScreenRefresh = True
End Sub

برای استفاده از ماکرو، باید مطمئن شوید که iCol روی ستونی تنظیم شده است که به عنوان ستون کدنویسی شما استفاده می شود و sPCode حاوی کدی است که می خواهید انتخاب کنید. (این همه باید با حروف بزرگ باشد.) وقتی ماکرو تمام شد، سندی خواهید داشت که فقط شامل ردیف هایی است که می خواهید چاپ کنید و سپس می توانید آن سند را چاپ کنید.