Automatyczne dodawanie daty do nazwy dokumentu WORD

Question

Witam,

pytanie: jak można zrobić w MS Office Word (wersja 2016 i nowsze) żeby ten zapisując dokument dodawał automatycznie do nazwy pliku co najmniej datę jego utworzenia?

Standardowo to wygląda załóżmy tak:

C:\dokument.docx

Ja chce żeby mi zapisywał  (np. po kliknięciu CTRL+S)to przynajmniej tak:

C:\dokument 17.51 06.08.2020.docx

Albo coś podobnego.

Optymalnie byłoby żeby kodował jeszcze wersje pliku po kolejnych zapisach np tak:

C:\dokument 17.51 06.08.2020 v.1.0 albo coś w ten deseń ale wystarczy na początek sama godzina.

Dziękuje za pomoc.

Answer 1

A ja mam dla ciebie alternatywne rozwiązanie.

Dodatek do Excela, którym zmieniam nazwy plików (różnych), którym nadaje datę utworzenia: http://vbatools.pl/zmiana-nazwy-pliku-na-date-utworzenia/ i godziną albo na kolejne po podaniu liczby startowej w oryginalnych datach.

Mi głównie przydaje się do katalogowania zdjęć.

Cyk i na raz mam 300 zdjęć już ładnie pokatalogowanych.

Answer 2

Here is a macro. It is not able to use the colon as a divider because it is a reserved character. I substituted hyphens.

Sub FileSaveAs()
    ' Run as substitute for FileSave to add date to default document names
    ' This is currently in the 04 Phone Contact template for potential new clients
    ' Charles Kenyon 2017, 2019, 2020
    ' Written for Piotr
    ' Code appends date to Title Document property when saving
    On Error Resume Next
   
    If Len(ActiveDocument.Path) > 0 Then
      ' The document has already been saved at least once.
      ' Just save and exit the macro.
      ActiveDocument.Save
      Exit Sub
    End If
    '
    '
    Dim strName As String, dlgSave As Dialog
    Dim strPath As String   'Holder for current path
    Const strTEMPPATH As String = "" ' where document will be stored between quotation marks
    Let strPath = Application.Options.DefaultFilePath(wdDocumentsPath)
    Set dlgSave = Dialogs(wdDialogFileSaveAs)
    Let strName = ActiveDocument.BuiltInDocumentProperties("Title").Value 'get name in title
    '    ADD THE DATE IN FORMAT hh:mm dd.MM.yyyy
    Let strName = strName & " " & Format((Hour(Now()) Mod 100), Format:="0#-") '    Add hour
    Let strName = strName & Format((Minute(Now()) Mod 100), Format:="0#  ")     '   Add minutes
    Let strName = strName & Format((Day(Now()) Mod 100), Format:="0#-")         '   Add day
    Let strName = strName & Format((Month(Now()) Mod 100), Format:="0#-")       '   Add month
    Let strName = strName & Format((Year(Now()) Mod 100), Format:="2000")       '   Add year
    With dlgSave
        .Name = strTEMPPATH & strName
        .Show
    End With
    '   Reset save path
    If strPath <> "" Then Let Application.Options.DefaultFilePath(wdDocumentsPath) = strPath
    '   empty object
    Set dlgSave = Nothing
    On Error GoTo -1
End Sub

Sub FileSave()
    FileSaveAs
End Sub

These are to be saved in a template and govern documents based on the template.

There is a CONSTANT named strTEMPPATH which can be used to hold a designated folder for documents based on the template to be saved to. When it is empty it has no effect.

Here is a temporary link to a template with these macros.

https://www.dropbox.com/s/fb8crxf1r4xn0a8/delet...

Here's how to use a macro found in this forum or on another webpage:

For PC macro installation:

http://www.gmayor.com/installing_macro.htm (or)

http://gregmaxey.com/word_tip_pages/installing_...

For Mac macro installation & usage instructions, see:

https://wordmvp.com/Mac/InstallMacro.html

---

These are links to pages on one or more trusted Word MVP websites or blogs. Those pages contain accurate safe information that I think will help you.

---

Here are two articles by MVP Jay Freedman on using the vba Editor:

https://answers.microsoft.com/en-us/msoffice/fo...

https://answers.microsoft.com/en-us/msoffice/fo...

Answer 3

Oto makro. Nie jest w stanie użyć dwukropka jako dzielnika, ponieważ jest to znak zastrzeżony. Podstawiłem łączniki.

[kod] Podseszeń()

' Uruchom jako substytut FileSave, aby dodać datę do domyślnych nazw dokumentów

' Jest to obecnie w szablonie 04 Kontakt telefoniczny dla potencjalnych nowych klientów

' Charles Kenyon 2017, 2019, 2020

' Napisany dla Piotra

' Kod dołącza datę do właściwości Dokumentu tytułu podczas zapisywania

Na wznowienie błędu Dalej

Jeśli Len(ActiveDocument.Path) > 0 Następnie

  ' Dokument został już zapisany co najmniej raz.

  ' Wystarczy zapisać i wyjść z makra.

  ActiveDocument.Zapisz

  Wyjdź z Sub

Koniec, jeśli

'

'

Dim strName Jako Ciąg, dlgSave as Dialog

Dim strPath jako ciąg 'Holder dla bieżącej ścieżki

Const strTEMPPATH As String = "" ' gdzie dokument będzie przechowywany między cudzysłowami

Let strPath = Application.Options.DefaultFilePath(wdDocumentsPath)

Ustaw dlgSave = Dialogi(wdDialogFileSaveAs)

Let strName = ActiveDocument.BuiltInDocumentProperties("Title"). Wartość 'get name w tytule

' DODAJ DATĘ W FORMACIE hh:mm dd. MM.yyyy

Let strName = strName & " " & Format((Hour(Now()) Mod 100), Format:="0#-") ' Dodaj godzinę

Let strName = strName & Format((Minute(Now()) Mod 100), Format:="0# ") ' Dodaj minuty

Let strName = strName & Format((Day(Now()) Mod 100), Format:="0#-") ' Dodaj dzień

Let strName = strName & Format((Month(Now()) Mod 100), Format:="0#-") ' Dodaj miesiąc

Let strName = strName & Format((Year(Now(Now)) Mod 100), Format:="2000") ' Dodaj rok

Z dlgSave

    . Nazwa = strTEMPPATH & strName

    . Pokaż

Zakończ z

' Resetowanie ścieżki zapisywania

Jeśli strPath <> "" Następnie let Application.Options.DefaultFilePath(wdDocumentsPath) = strPath

' pusty obiekt

Set dlgSave = Nic

Przy błędzie GoTo -1

Koniec sub

Podsłania plików()

FileSaveAs (FileSaveAs)

Koniec sub

[/kod]

Mają one zostać zapisane w szablonie i zarządzać dokumentami na podstawie szablonu.

Istnieje CONSTANT o nazwie strTEMPPATH, który może służyć do przechowywania wyznaczonego folderu dla dokumentów opartych na szablonie, który ma zostać zapisany. Gdy jest pusty, nie ma wpływu.

Oto tymczasowe łącze do szablonu z tymi makrami.

https://www.dropbox.com/s/fb8crxf1r4xn0a8/delet...

Oto jak użyć makra znalezionego na tym forum lub na innej stronie internetowej:

W przypadku instalacji makr komputera:

http://www.gmayor.com/installing_macro.htm (lub)

http://gregmaxey.com/word_tip_pages/installing_...

Aby zapoznać się z instrukcjami instalacji makr mac & instrukcjami użytkowania, zobacz:

https://wordmvp.com/Mac/InstallMacro.html

---

Są to łącza do stron w co najmniej jednej zaufanej witrynie lub blogach programu Word MVP. Te strony zawierają dokładne bezpieczne informacje, które myślę, że pomogą Ci.

---

Oto dwa artykuły MVP Jay Freedman na temat korzystania z edytora vba:

https://answers.microsoft.com/en-us/msoffice/fo...

https://answers.microsoft.com/en-us/msoffice/fo...

Answer 4

Hi Piotr,

I am using an automatic translator for this in which I have little confidence. I will post the original in English as well in the hope that it may help.

I understand the format you want to be hh:mm dd.MM.yyyy

17.51 06.08.2020

This will take a macro. While I work on it, see my responses in this thread.

https://answers.microsoft.com/en-us/msoffice/fo...

That had code for saving in the format yyyy-MM-dd.

For the versioning, I would recommend Graham Mayor's free Add-In.

http://www.gmayor.com/SaveVersionsAdd-In.htm

---

This is a link to a trusted Word MVP website or blog. It contains accurate safe information that I think will help you.

---

I will work on putting the macro in your preferred format and post it here.

This forum is a user-to-user support forum. I am a fellow user.

I hope this information helps.

Please let me know if you have any more questions or require further help.

You can ask for more help by replying to this post (Reply button below).

Regards

Answer 5

Korzystamy z usług tłumaczeniowych, by wesprzeć naszych użytkowników. Przepraszamy za wszelkie błędy gramatyczne.

Cześć Piotr,

Używam do tego automatycznego tłumacza, w którym nie mam zaufania. Wyślę oryginał w języku angielskim, jak również w nadziei, że może pomóc.

Rozumiem format, który chcesz być hh:mm dd. MM.yyyy

17.51 06.08.2020

Zajmie to makro. Podczas pracy nad nim, zobacz moje odpowiedzi w tym wątku.

https://answers.microsoft.com/en-us/msoffice/fo...

To miał kod do zapisywania w formacie yyyy-MM-dd.

Dla wersji, polecam Graham Mayor's free Add-In.

http://www.gmayor.com/SaveVersionsAdd-In.htm

---

Jest to link do zaufanej witryny lub bloga programu Word MVP. Zawiera dokładne bezpieczne informacje, które myślę, że pomogą Ci.

---

Będę pracować nad wprowadzeniem makro w preferowanym formacie i po to tutaj.

To forum jest forum pomocy technicznej dla użytkowników. Jestem innym użytkownikiem.

Mam nadzieję, że ta informacja pomaga.

Proszę dać mi znać, jeśli masz więcej pytań lub wymagają dalszej pomocy.

Możesz poprosić o pomoc, odpowiadając na ten post (przycisk Odpowiedz poniżej).

Pozdrawiam