2 chytré způsoby, jak přejmenovat dokument v aplikaci Word

V této strostse zaměříme na to, abychom vám představili 2 chytré způsoby, jak rychle přejmenovat dokument v aplikaci Word.

Občas budeme během psaní v aplikaci Word neustále měnit název souboru. Přesto musíme dokument pokaždé zavřít, než jej budeme moci přejmenovat. To rozhodně není pohodlné. Ve výchozím nastavení nemůžeme přejmenovat otevřený soubor. Ale s pomocí makra je to možné.

Následuje 2 makra, která mohou takový problém řešit.

Metoda 1: Přejmenování dokumentu v aplikaci Word

1. Předevšímost, stiskněte kartu „Vývojář“ a poté „Visual Basic“, abyste otevřeli editor Word VBA.
2. Dále klikněte na „Normální“ projekt.
3. Poté klikněte na „Vložit“ a vyberte „Modul“.
4. Dvojitým kliknutím na nový modul otevřete oblast kódování a vložte do ní následující kódy:

Sub RenameDocument()
  Dim strDocName As String, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String

  '  Get the current doc name.
  strDocName = ActiveDocument.FullName
  strDocPath = ActiveDocument.Path
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Pop up an input box for new name.
  strNewDocName = InputBox("Enter a new name for this document:", "Rename document", strDocName)

  '  Save the doc with newly entered name.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strNewDocName

  '  Delete the doc with original name.
  KillFile = strDocName
  Kill KillFile
End Sub

5. Nyní klikněte na „Spustit“ nebo stiskněte „F5“.
6. Objeví se vstupní pole. Jednoduše zadejte nový název do textového pole a klikněte na „OK“.

Nyní bude dokument uložen na stejném místě s novým názvem. Při spuštění makra se odstraní původní soubor.

Metoda 2: Přejmenujte dokument a připojte informace o datu

V mnoha případech bude dokument přejmenován s datem provedení revize. Za takových okolností zůstane hlavní část názvu souboru stejná, pouze pokud bude následovat datový řetězec. Zde je například dokument bez datového řetězce.

Abychom jej mohli přidat, můžeme spustit toto makro:

Sub RenameDocumentWithDate()
  Dim strDocName, strDocNameNoExten, strDocFullName, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String
  Dim strDate As String

  '  Get the current doc name.
  strDocName = ActiveDocument.Name
  strDocFullName = ActiveDocument.FullName
  strDocNameNoExten = Left(strDocName.Name, Len(strDocName.Name) - 5)
  strDocPath = ActiveDocument.Path
  strDate = Format(Date, "mm - dd - yyyy")
 
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Save the doc in new name with date.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strDocNameNoExten & " " & strDate
  KillFile = strDocFullName
  Kill KillFile
End Sub

Podle pokynů v metodě 1 můžete nainstalovat a spustit výše uvedené makro. Bude to fungovat krásně. Po původním názvu uvidíte řetězec aktuálního data, například níže:

Řešení poškození dokumentu aplikace Word

Nemůžeme zabránit poškození dokumentu pomocí metody jednou provždy. Můžeme udělat zálohy a vyhnout se chybám uživatelů, jak je to jen možné. Jeden z most důležité je seznámit se s tím, co dělat, když dojde k poškození dokumentu. Správnou odpovědí je získání a obnovení dokumentu nástroj co nejdříve.

Ú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ě Excel poškození a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com