În această postare, ne vom concentra pe prezentarea a 2 modalități inteligente de a redenumi rapid documentul în Word.
Din când în când, în timpul redactării în Word, vom schimba constant numele fișierului. Cu toate acestea, de fiecare dată, trebuie să închidem documentul înainte de a-l redenumi. Acest lucru nu este deloc convenabil. În mod implicit, nu putem redenumi un fișier deschis. Dar cu ajutorul unui macro, poate fi posibil.
Mai jos sunt 2 macrocomenzi care pot rezolva o astfel de problemă.
Metoda 1: Redenumiți un document în Word
- În primul rând, apăsați fila „Dezvoltator”, apoi „Visual Basic” pentru a deschide editorul VBA din Word.
- Apoi faceți clic pe proiect „Normal”.
- Apoi faceți clic pe „Inserare” și alegeți „Modul”.
- Faceți dublu clic pe noul modul pentru a deschide zona de codare și lipiți codurile de mai jos acolo:
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
- Acum faceți clic pe „Run” sau apăsați pe „F5”.
- Va apărea o casetă de introducere. Doar introduceți un nume nou în caseta de text și faceți clic pe „OK”.
Acum documentul va fi stocat în același loc cu un nume nou. Și rularea macro-ului va șterge fișierul original.
Metoda 2: Redenumiți un document și adăugați informații despre data
În multe cazuri, un document va fi redenumit cu data la care se face revizuirea. În astfel de circumstanțe, partea principală a unui nume de fișier rămâne aceeași doar după un șir de dată. De exemplu, aici este un document fără șir de dată.
Pentru a o adăuga, putem rula această macrocomandă:
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
Puteți urma pașii exacti din metoda 1 pentru a instala și rula macrocomanda de mai sus. Va funcționa frumos. Veți vedea că șirul de dată curent urmează după numele original, cum ar fi mai jos:
Soluție pentru corupția documentelor Word
Nu putem preveni coruperea documentelor cu o metodă unică. Ceea ce putem face este să facem copii de rezervă și să evităm pe cât posibil erorile utilizatorilor. Unul dintre cele mai importante aspecte este să ne familiarizăm cu ce trebuie făcut după ce un document este corupt. Răspunsul corect este să obținem un... recuperare doc instrument cât mai curând posibil.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv deteriorarea Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com