V tomto příspěvku se zaměříme na 3 rychlé způsoby, jak vložit datum vytvoření nebo poslední úpravy do dokumentu Word.
Pokaždé, když vytvoříme dokument, obsahuje mnoho informací, například datum vytvoření a datum poslední změny. Tyto podrobnosti nám umožňují dobře sledovat, jak jsme v dokumentu upravovali. Dnes vám tedy ukážeme metody, které vám umožní vložit vytvořené nebo naposledy upravené datum do dokumentu.
Hodnocení:
Jakmile skončíte se zpracováním dokumentu, nejprve jej uložte. Takže budete mít nejaktuálnější verzi. Poté můžete do dokumentu vložit příslušná data podle následujících pokynů.
Metoda 1: Ruční vložení data
Ve Wordu můžete zobrazit vytvořená a naposledy upravená data, pokud přepnete na pozadí. Tyto informace však nemůžete kopírovat přímo. Místo toho postupujte podle těchto kroků.
- Nejprve v aplikaci Word klikněte na kartu „Soubor“.
- Dále klikněte na možnost „Informace“ a v pravém sloupci klikněte na „Vlastnosti“.
- Poté v rozevírací nabídce vyberte možnost „Pokročilé vlastnosti“.
- A v otevřeném okně klikněte na kartu „Obecné“.
- Nyní můžete příslušné informace zkopírovat a vložit do dokumentu.
Metoda 2: Vložení pole
- Nejprve umístěte ukazatel vložení správně a klikněte na záložku „Vložit“.
- Poté klikněte na „Rychlé díly“ a vyberte „Pole“.
- V poli „Pole“ vyberte kategorii „Datum a čas“.
- Dále pro vložení vytvořeného data vyberte název pole „CreateDate“. Chcete-li vložit datum poslední změny, vyberte místo toho možnost „Uložit datum“.
- Pokud je to nutné, zvolte formát data.
- Nakonec klikněte na „OK“. Ve výběru bude uvedeno datum.
Metoda 3: Spuštěním kódů VBA vložte datum vytvoření i poslední změny
- V první řadě umístěte kurzor na pozici, kam se vkládají data.
- Poté stiskněte „Alt + F11“ a otevřete editor VBA.
- Na panelu „Projekt“ klikněte na „Normální“.
- Dále klikněte na kartu „Vložit“.
- Vyberte „Modul“.
- Dvojitým kliknutím modul otevřete.
- Vložte následující kódy:
Function GetDocDates(strDocPath) As String
Dim objFileSystem As Object
Dim objFile As Object
Dim strDates As String
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(strDocPath)
strDates = "Created Date: " & objFile.DateCreated & vbNewLine & _
"Last Modified Date: " & objFile.DateLastModified
GetDocDates = strDates
Set objFile = Nothing
Set objFileSystem = Nothing
End Function
' Call Function GetDocDates
Sub InsertDocDates()
' Insert dates at selection point.
Selection.InsertAfter GetDocDates(ActiveDocument.FullName)
End Sub
- Vložte kurzor do makra „InsertDocDates“ a spusťte jej kliknutím na tlačítko „Spustit“.
Získáte data vložená do dokumentu takto:
Řešení problému ztráty dat
Ztráta dat se dnes stala docela tématem. Všechny druhy informací nyní přecházejí do digitální podoby. To znamená, že musíme být na katastrofu dat předem plně připraveni. A poškození dokumentů aplikace Word je problém, na který se můžeme snadno setkat. Navrhujeme tedy, abyste získali Oprava slov nástroj v ruce.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com






