2 pametna načina za preimenovanje vašeg dokumenta u Wordu

U ovom strost, usredotočit ćemo se na predstavljanje 2 pametna načina za brzo preimenovanje vašeg dokumenta u Wordu.

Tu i tamo, dok crtamo u Wordu, stalno ćemo mijenjati naziv datoteke. Ipak, svaki put moramo zatvoriti dokument prije nego što ga možemo preimenovati. Ovo nikako nije zgodno. Prema zadanim postavkama ne možemo promijeniti naziv otvorene datoteke. Ali uz pomoć makronaredbe to može biti moguće.

Slijede 2 makronaredbe koje mogu riješiti takav problem.

Metoda 1: Preimenujte dokument u Wordu

1. Prvi i prviost, pritisnite karticu “Developer” zatim “Visual Basic” da biste otvorili Word VBA editor.
2. Zatim kliknite "Normalni" projekt.
3. Zatim kliknite "Umetni" i odaberite "Modul".
4. Dvaput kliknite na novi modul da otvorite područje kodiranja i tamo zalijepite sljedeće kodove:

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. Sada kliknite "Pokreni" ili pritisnite "F5".
6. Pojavit će se okvir za unos. Samo unesite novo ime u tekstualni okvir i kliknite "U redu".

Sada će dokument biti pohranjen na istom mjestu s novim imenom. A pokretanje makronaredbe izbrisat će izvornu datoteku.

Metoda 2: Preimenujte dokument i dodajte informacije o datumu

U mnogim slučajevima, dokument će biti preimenovan s datumom revizije. U takvim okolnostima, glavni dio naziva datoteke ostaje isti samo s nizom datuma koji slijedi. Na primjer, ovdje je dokument bez niza datuma.

Kako bismo ga dodali, možemo pokrenuti ovaj 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

Možete slijediti točne korake u metodi 1 da biste instalirali i pokrenuli gornju makronaredbu. Djelovat će prekrasno. Vidjet ćete da trenutni niz datuma slijedi nakon izvornog naziva, kao što je dolje:

Rješenje za oštećenje Word dokumenta

Jednom zauvijek metodom ne možemo spriječiti oštećenje dokumenta. Ono što možemo učiniti je napraviti sigurnosne kopije i izbjeći pogreške korisnika što je više moguće. Jedan od njihost važno je upoznati se s onim što učiniti nakon što se dokument ošteti. Pravi odgovor je dobiti a oporavak dokumenta alat što je prije moguće.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel šteta i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com