2 Mënyra të zgjuara për të riemërtuar dokumentin tuaj në Word

Në këtë postim, do të përqendrohemi në prezantimin e 2 mënyrave të zgjuara për të riemërtuar shpejt dokumentin tuaj në Word.

Herë pas here, gjatë hartimit në Word, ne do të ndryshojmë vazhdimisht emrin e skedarit. Megjithatë, çdo herë, ne duhet ta mbyllim dokumentin përpara se të jemi në gjendje ta riemërojmë atë. Kjo nuk është krejtësisht e përshtatshme. Si parazgjedhje, ne nuk mund të riemërtojmë një skedar të hapur. Por me ndihmën e një makro, mund të jetë e mundur.

Më poshtë janë 2 makro që mund të adresojnë një çështje të tillë.

Metoda 1: Riemërtoni një dokument në Word

1. Së pari dhe më kryesorja, shtypni skedën "Zhvillues" dhe më pas "Visual Basic" për të hapur redaktorin VBA të Word.
2. Pastaj klikoni në projektin "Normal".
3. Pastaj klikoni "Insert" dhe zgjidhni "Module".
4. Klikoni dy herë në modulin e ri për të hapur zonën e kodimit dhe ngjitni kodet e mëposhtme atje:

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. Tani klikoni "Run" ose shtypni "F5".
6. Do të shfaqet një kuti hyrëse. Thjesht vendosni një emër të ri në kutinë e tekstit dhe klikoni "OK".

Tani dokumenti do të ruhet në të njëjtin vend me një emër të ri. Dhe ekzekutimi i makros do të fshijë skedarin origjinal.

Metoda 2: Riemërtoni një dokument dhe shtoni informacionin e datës

Në shumë raste, një dokument do të riemërohet me datën kur është bërë rishikimi. Në rrethana të tilla, pjesa kryesore e emrit të skedarit mbetet e njëjtë vetëm me vargun e datës në vijim. Për shembull, këtu është një dokument pa një varg datash.

Për ta shtuar atë, ne mund të ekzekutojmë këtë 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

Mund të ndiqni hapat e saktë në metodën 1 për të instaluar dhe ekzekutuar makronë e mësipërme. Do të funksionojë bukur. Do të shihni se vargu aktual i datës po ndjek pas emrit origjinal, si më poshtë:

Zgjidhje për korrupsionin e dokumentit Word

Nuk mund ta parandalojmë dëmtimin e dokumenteve me një metodë një herë e mirë. Ajo që mund të bëjmë është të bëjmë kopje rezervë dhe të shmangim gabimet e përdoruesit sa më shumë që të jetë e mundur. Një nga pikat më të rëndësishme është të njihemi me atë që duhet bërë pasi një dokument dëmtohet. Përgjigja e saktë është të marrim një rikuperimi i dokumentit mjet sa më shpejt të jetë e mundur.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë Dëmtimi i Excel-it pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com