قالب بندی سریع پاورقی ها در اسناد با بخش های متعدد

Question

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

با انجام مراحل زیر می توانید تغییرات لازم را به صورت دستی انجام دهید:

1. Ctrl+Home را فشار دهید تا به ابتدای سند خود بروید.
2. زبانه Insert روبان را نمایش دهید.
3. در گروه Header & Footer، بسته به اینکه کدام یک را می خواهید تغییر دهید، روی Header یا Footer کلیک کنید. Word یک لیست کشویی از گزینه ها را نمایش می دهد.
4. روی Edit Header یا Edit Footer، بسته به ابزاری که در مرحله 3 کلیک کرده اید، کلیک کنید. Word سربرگ یا پاورقی را همراه با زبانه Design روبان نمایش می دهد.
5. بر روی ابزار Next کلیک کنید. Word سرصفحه یا پاورقی بخش دوم سند را نمایش می دهد.
6. تغییراتی در سرصفحه یا پاورقی ایجاد کنید تا به نظر برسد که می خواهید به نظر برسد.
7. بر روی ابزار Next کلیک کنید. این هدر بخش بعدی (سومین) سند را نمایش می دهد.
8. روی ابزار Link to Previous کلیک کنید. یک کادر محاوره ای خواهید دید که از شما می پرسد آیا می خواهید این هدر را حذف کنید و به بخش قبلی پیوند دهید. روی Yes کلیک کنید.
9. مراحل 7 و 8 را تا زمانی که تمام هدرهای سند را کار کنید تکرار کنید.
10. در تب Design نوار روی Close Header and Footer کلیک کنید.

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

راه حل مشکل این است که یک ماکرو ایجاد کنید که تغییرات لازم را برای شما انجام دهد. ماکرو زیر را در نظر بگیرید:

Sub MakeSame() Dim J As Integer Dim K As Integer If ActiveDocument.Sections.Count > 2 Then For J = 3 To ActiveDocument.Sections.Count For K = 1 To ActiveDocument.Sections(J).Headers.Count ActiveDocument.Sections(J).Headers(K).LinkToPrevious = True Next K For K = 1 To ActiveDocument.Sections(J).Footers.Count ActiveDocument.Sections(J).Footers(K).LinkToPrevious = True Next K Next J End If End Sub

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

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