Conas doiciméad Word a shábháil leis an dáta reatha in ainm an chomhaid?

Más gá duit an dáta reatha in ainm comhaid a chur leis go huathoibríoch agus doiciméad Word á shábháil agat, conas a d’fhéadfá déileáil leis an tasc seo i gcomhad Word?

Sábháil doiciméad Word leis an dáta reatha in ainm comhaid le cód VBA

---

Sábháil doiciméad Word leis an dáta reatha in ainm comhaid le cód VBA

Chun an dáta reatha a chur go huathoibríoch le hainm an chomhaid agus an doiciméad Word á shábháil, déan na céimeanna seo a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte:

Cód VBA: Sábháil doiciméad Word leis an dáta reatha in ainm an chomhaid

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. Tar éis duit an cód a ghreamú isteach sa mhodúl, brúigh F5 eochair chun an cód seo a rith, agus a Sábháil Mar taispeántar an fhuinneog leis an dáta reatha go huathoibríoch isteach sa Ainm comhaid bosca téacs, féach an pictiúr:

4. Agus ansin, níl le déanamh agat ach d’ainm comhaid féin a chlóscríobh de réir mar a theastaíonn uait, féach an scáileán: