Ինչպե՞ս պահպանել Word փաստաթուղթը ընթացիկ ամսաթվով ֆայլի անվան մեջ:

Եթե ​​Word փաստաթուղթը պահպանելիս անհրաժեշտ է ավտոմատ կերպով ավելացնել ֆայլի անունը ներկայիս ամսաթիվը, ինչպե՞ս կարող եք գործ ունենալ այս ֆայլի հետ Word ֆայլում:

Պահպանեք Word փաստաթուղթը ընթացիկ ամսաթվով `VBA կոդով ֆայլի անվան մեջ

Պահպանեք Word փաստաթուղթը ընթացիկ ամսաթվով `VBA կոդով ֆայլի անվան մեջ

Word փաստաթուղթը պահպանելիս ընթացիկ ամսաթիվը ֆայլի անվանման մեջ ավտոմատ կերպով ավելացնելու համար կատարեք հետևյալ քայլերը.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ.

VBA կոդ. Ֆայլի անվան մեջ պահեք Word փաստաթուղթը ընթացիկ ամսաթվով

Public Sub FileSave1()
    Dim xDlg As Dialog
    Dim xTitle As String
    On Error Resume Next
    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
        Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
        Format((Day(Now()) Mod 100), "0#")
    Set xDlg = Dialogs(wdDialogFileSaveAs)
    xDlg.Name = xTitle
    xDlg.Show
End Sub

3, Կոդը մոդուլի մեջ մտցնելուց հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ա Պահել As պատուհանը ցուցադրվում է ընթացիկ ամսաթվով ավտոմատ կերպով դեպի Ֆայլի անուն տեքստային տուփ, տես նկարի նկարը.

4, Եվ ապա, պարզապես անհրաժեշտ է մուտքագրել ձեր սեփական ֆայլի անունը, ինչպես ձեզ հարկավոր է, տես նկարի նկարը.

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools for Word - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

Սուզվեք ստորև նշված ընդգծված հատկանիշների մեջ կամ սեղմեք այստեղ՝ ուսումնասիրելու ամբողջ ուժը Kutools for Word.

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/XLSX)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք ...

✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով   /  Չափափոխել բոլոր նկարները   /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել ...

🧹 Անհեշտ մաքրություն: Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /   Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  /  Հեռացման լրացուցիչ գործիքների համար այցելեք մեր Հեռացնել խումբը

➕ Ստեղծագործական ներդիրներ: Տեղադրել Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  /  Բացահայտեք ավելին մեր Insert Group-ում

🔍 Ճշգրիտ ընտրանքներ: Նշեք կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  /  Հեշտությամբ նավարկեք՝ օգտագործելով մեր Ընտրել խումբը

⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ ...

Փոխակերպեք ձեր Word-ի առաջադրանքները Kutools-ով: 👉 Ներբեռնեք հիմա 30-օրյա փորձաշրջանով 🚀.

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել