کشیدن سرصفحه ها و پاورقی ها از فایل های دیگر

Question

استیو پرسید که آیا راهی در Word وجود دارد که بتوان سرصفحه یا پاورقی مشترک را در یک یا چند فایل جداگانه تنظیم کرد و سپس آنها را در قالب سند گنجاند.

روش سنتی مدیریت این نوع موقعیت ها از طریق استفاده از فیلد INCLUDETEXT است. این فیلد اطلاعات را از یک فایل واکشی می کند و آن را در جای خود فیلد قرار می دهد. برای استفاده از این فیلد مراحل زیر را دنبال کنید:

     { INCLUDETEXT "C:\My Documents\MyHeader.docx" }

1. متنی را برای سرصفحه یا پاورقی که می خواهید ایجاد کنید، اما آن را به عنوان بدنه سند در یک سند قرار دهید. هیچ چیز دیگری به جز متن سرصفحه یا پاورقی در سند نباید وجود داشته باشد.
2. سند را ذخیره کنید. در این مورد، فرض می کنیم که شما نام سند را MyHeader.docx گذاشته اید.
3. در فایل قالب، قسمت هدر یا پاورقی را نمایش دهید و مطمئن شوید که نقطه درج در سرصفحه یا پاورقی قرار دارد.
4. Ctrl+F9 را فشار دهید . Word مجموعه ای از مهاربندهای فیلد را درج می کند و نقطه درج بین آنها قرار دارد.
5. کد فیلد INCLUDETEXT و نام سند را در پرانتزهای فیلد تایپ کنید، مشابه آنچه در اینجا نشان داده شده است:
6. Shift+F9 را فشار دهید تا فیلد به روز شود. Word کد فیلد را با محتوای MyHeader.docx جایگزین می کند.
7. قالب خود را ذخیره کنید

به یاد داشته باشید که Word کد فیلد را در فایل الگو حفظ می کند، به طوری که هر زمان که سندی را بر اساس الگو ایجاد می کنید، محتویات MyHeader.docx واکشی شده و در هدر سند جدید گنجانده می شود. به همین ترتیب، سند جدید شما شامل فیلد INCLUDETEXT است (دقیقاً مانند الگو)، و هر زمان که فیلد را در سند جدید به‌روزرسانی می‌کنید، Word با وظیفه‌شناسی MyHeader.docx را برای جایگزینی فیلد واکشی می‌کند.

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

Sub AutoNew()
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or _
      ActiveWindow.ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Fields.Update
    Selection.Fields.Unlink
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub