نام فایل خودکار

Question

یکی از ویژگی هایی که Word به شما اجازه می دهد با یک سند ذخیره کنید، عنوانی برای سند است. اگر به طور منظم از این ویژگی با اسناد جدید خود استفاده می کنید، می توانید با نگاه کردن به عنوانی که ارائه کرده اید، راهی برای Word ایجاد کنید تا به طور خودکار سند شما را نامگذاری کند.

این ماکرو خاص برای استفاده با حروف مناسب است، اگرچه می توان آن را به راحتی برای انواع دیگر اسناد تغییر داد. ماکرو FileSaveAs نام دارد، بنابراین جایگزین دستور ذخیره سازی داخلی می شود. بهترین مکان برای ذخیره این ماکرو در قالبی است که برای حروف خود استفاده می کنید:

Sub FileSaveAs()
    Dim MyDocTitle As String
    MyDocTitle = Format(Date, "yymmdd") + " letter"

    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^pDear "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute

    If Selection.Find.Found Then
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        If Len(Selection.Text) > 1 Then
            MyDocTitle = MyDocTitle + " to " + Selection.Text
        End If
    End If

    With Dialogs(wdDialogFileSummaryInfo)
        .Title = MyDocTitle
        .Execute
    End With

    Dialogs(wdDialogFileSaveAs).Show
End Sub

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

ماکرو را می توان به نوار ابزار دسترسی سریع یا یک کلید میانبر اختصاص داد تا بتوانید اسناد خود را ذخیره کرده و آنها را به طور خودکار نامگذاری کنید.