کپی کردن آسان قالب بندی سلول

Question

برای باری اغلب اسنادی با سایه‌زنی دستی در برخی از ردیف‌های جدول ارسال می‌شود و او باید سایه دقیق را در جای دیگری اعمال کند. برای قالب‌بندی‌های دیگر او احتمالاً از Format Painter استفاده می‌کند، اما افسوس که فقط قالب‌بندی متن را کپی می‌کند، نه سلول. باری در مورد ساده ترین راه برای کپی قالب بندی سلول از یک مکان به مکان دیگر شگفت زده می شود.

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

1. سلولی را که می خواهید قالب بندی کنید انتخاب کنید.
2. قالب بندی را روی سلول اعمال کنید.
3. یک یا چند سلول دیگر را انتخاب کنید.
4. F4 را فشار دهید .

این کار به این دلیل کار می کند که فشار دادن F4 عمل قبلی را که در سند انجام داده اید تکرار می کند. از آنجایی که اقدام قبلی اعمال قالب بندی به یک سلول بود (مرحله 2)، فشار دادن F4 همان قالب بندی را برای سلول های دیگری که در مرحله 3 انتخاب کرده اید اعمال می کند.

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

Dim lbgc As Long

Sub SetColor()
    If Selection.Information(wdWithInTable) Then
        lbgc = Selection.Cells(1).Shading.BackgroundPatternColor
    Else
        MsgBox "Insertion point is not in a table."
    End If
End Sub

Sub ApplyColor()
    Dim c As Cell

    If Selection.Information(wdWithInTable) Then
        For Each c In Selection.Cells
            c.Shading.BackgroundPatternColor = lbgc
        Next c
    End If
End Sub

به چند نکته در مورد این ماکروها توجه کنید. ابتدا، می بینید که یک متغیر (lbgc) خارج از هر یک از ماکروها تعریف شده است. این به این دلیل است که این متغیر در هر دو ماکرو SetColor و ApplyColor استفاده می شود.

ماکرو SetColor برای تعیین رنگ پس‌زمینه‌ای که می‌خواهید در جای دیگری جای‌گذاری کنید، استفاده می‌شود. تنها کاری که باید انجام دهید این است که نقطه درج را در یک سلول جدول قرار دهید و سپس ماکرو را اجرا کنید. رنگ پس زمینه را می گیرد و در متغیر lbgc قرار می دهد. اگر قبل از اجرای ماکرو چندین سلول را انتخاب کنید، آنگاه فقط از رنگ پس زمینه سلول اول در انتخاب شما استفاده می کند.

حالا می توانید هر سلول دیگری را که می خواهید انتخاب کنید و ماکرو ApplyColor را اجرا کنید. مقدار ذخیره شده در lbgc را می گیرد و آن را در پس زمینه هر سلولی که انتخاب کرده اید اعمال می کند.

اگر کلیدهای میانبر را به این ماکروها اختصاص دهید (یا آنها را به نوار ابزار دسترسی سریع خود اضافه کنید)، می توانید به راحتی سایه پس زمینه را از یک سلول به هر تعداد سلول دیگر که می خواهید کپی کنید.

همانطور که گفتم، این ماکروها فقط با رنگ پس‌زمینه سروکار دارند، زیرا این مشکلی بود که بری با آن مواجه بود. عناصر قالب‌بندی سلول جدول دیگری نیز وجود دارد که می‌توان با استفاده از همین تکنیک ذخیره و کپی کرد - فقط متغیرهای ذخیره‌سازی را خارج از ماکروها تعریف کنید، مقادیر را در ماکرو SetColor ذخیره کنید و سپس مقادیر را در ماکرو ApplyColor اعمال کنید.