استفاده از بخشی از نام فایل یک سند در سربرگ

Question

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

تنها راه برای انجام این کار استفاده از ماکرو است. هیچ عملکرد داخلی در Word برای انجام کار وجود ندارد. ماکرو باید نام فایل را تعیین کند، کاراکترهای مورد نظر را بگیرد و سپس در هدر قرار دهد. هر چند با چیزی که ممکن است بسیار ساده به نظر برسد، عوارض بالقوه ای وجود دارد. به عنوان مثال، اگر سند ذخیره نشده باشد و بنابراین هنوز نام فایلی نداشته باشد، چه می شود؟ اگر سند ذخیره شده باشد، اما کمتر از پنج کاراکتر در نام فایل وجود داشته باشد، چه می شود؟ اگر قبلاً چیزی در فایل وجود داشته باشد، ماکرو چه کاری باید انجام دهد. اگر کاربر به سند در نمایی نگاه می کند که سرصفحه نمایش نمی دهد، چه کاری باید انجام دهد؟

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

Sub PartFilenameInHeader()
    Dim sName As String
    Dim J As Long

    sName = ActiveDocument.Name
    J = InStrRev(sName, ".")
    If J > 0 Then
        sName = Left(sName, J - 1)
        If Len(sName) > 5 Then
            sName = Right(sName, 5)
        End If

        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.WholeStory
        Selection.Delete
        Selection.TypeText Text:=sName
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Else
        MsgBox "Document has no filename extension."
    End If
End Sub

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

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