2 inteligentné spôsoby premenovania dokumentu v programe Word

V tejto strostsa zameriame na to, aby sme vám predstavili 2 inteligentné spôsoby rýchleho premenovania dokumentu v programe Word.

Tu a tam, počas písania textu v programe Word, budeme neustále meniť názov súboru. Dokument však musíme zakaždým zavrieť, aby sme ho mohli premenovať. To nie je celkom vhodné. V predvolenom nastavení nemôžeme premenovať otvorený súbor. Ale pomocou makra je to možné.

Nasledujú 2 makrá, ktoré môžu takýto problém vyriešiť.

Metóda 1: Premenovanie dokumentu v programe Word

1. V prvom radeost, stlačte záložku „Vývojár“ a potom „Visual Basic“, čím otvoríte editor Word VBA.
2. Ďalej kliknite na „Normálny“ projekt.
3. Potom kliknite na „Vložiť“ a zvoľte „Modul“.
4. Dvojitým kliknutím na nový modul otvorte oblasť kódovania a vložte do nej nasledujúce 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. Teraz kliknite na „Spustiť“ alebo stlačte „F5“.
6. Zobrazí sa vyskakovacie vstupné pole. Stačí zadať nový názov do textového poľa a kliknúť na „OK“.

Teraz bude dokument uložený na rovnakom mieste s novým názvom. Spustením makra sa odstráni pôvodný súbor.

Metóda 2: Premenovanie dokumentu a pripojenie informácií o dátume

V mnohých prípadoch bude dokument premenovaný s dátumom vykonania revízie. Za takýchto okolností zostáva hlavná časť názvu súboru rovnaká, iba ak bude nasledovať dátumový reťazec. Napríklad tu je dokument bez reťazca dátumu.

Aby sme to mohli pridať, môžeme spustiť 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

Podľa pokynov v metóde 1 môžete nainštalovať a spustiť vyššie uvedené makro. Bude to fungovať nádherne. Uvidíte, že nasledujúci reťazec aktuálneho dátumu nasleduje za pôvodným názvom, napríklad nižšie:

Riešenie korupcie dokumentu Word

Nemôžeme zabrániť tomu, aby k poškodeniu dokumentu došlo jednou metódou navždy. Môžeme urobiť zálohy a vyhnúť sa chybám používateľov, ako to len pôjde. Jeden z nichost dôležité je oboznámiť sa s tým, čo robiť po poškodení dokumentu. Správnou odpoveďou je získanie a obnova dokumentu nástroj čo najskôr.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Excel poškodenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S