2 pametna načina da preimenujete svoj dokument u Wordu

U ovom postu ćemo se fokusirati na predstavljanje dva pametna načina za brzo preimenovanje dokumenta u Wordu.

S vremena na vrijeme, dok crtamo u Wordu, stalno ćemo mijenjati naziv datoteke. Ipak, svaki put moramo zatvoriti dokument prije nego što ga možemo preimenovati. Ovo apsolutno nije zgodno. Podrazumevano, ne možemo preimenovati otvorenu datoteku. Ali uz pomoć makroa to je moguće.

Slijede 2 makroa koji mogu riješiti takav problem.

Metoda 1: Preimenujte dokument u Wordu

1. Prvo i najvažnije, pritisnite karticu "Programer", a zatim "Visual Basic" da biste otvorili Word VBA editor.
2. Zatim kliknite na "Normalni" projekat.
3. Zatim kliknite na “Insert” i odaberite “Module”.
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 na “Run” ili pritisnite “F5”.
6. Pojavit će se okvir za unos. Samo unesite novo ime u okvir za tekst i kliknite na “OK”.

Sada će dokument biti pohranjen na istom mjestu pod novim imenom. A pokretanje makroa će izbrisati originalni fajl.

Metoda 2: Preimenujte dokument i dodajte informacije o datumu

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

Da 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 pratiti tačne korake u metodi 1 da biste instalirali i pokrenuli gornji makro. Radiće prelepo. Vidjet ćete da trenutni niz datuma slijedi nakon originalnog imena, kao što je ispod:

Rješenje za oštećenje Word dokumenta

Ne možemo spriječiti oštećenje dokumenata jednom zauvijek. Ono što možemo učiniti jeste da napravimo sigurnosne kopije i izbjegnemo korisničke greške koliko god je to moguće. Jedna od najvažnijih stvari je upoznati se sa tim šta učiniti nakon što se dokument ošteti. Pravi odgovor je nabaviti... doc recovery alat što je pre moguće.

Uvod za autora:

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