2 smarte måter å endre navn på dokumentet ditt i Word

I dette innlegget skal vi fokusere på å presentere deg to smarte måter å raskt gi nytt navn til dokumentet ditt i Word.

Nå og da, mens vi utarbeider i Word, vil vi stadig endre filnavnet. Men hver gang må vi lukke dokumentet før vi kan gi det nytt navn. Dette er absolutt ikke praktisk. Som standard kan vi ikke gi nytt navn til en åpen fil. Men ved hjelp av en makro kan det være mulig.

Følgende er 2 makroer som kan løse et slikt problem.

Metode 1: Gi nytt navn til et dokument i Word

1. Først og fremst, trykk på "Utvikler"-fanen og deretter "Visual Basic" for å åpne Word VBA-editoren.
2. Klikk deretter på "Normal" prosjekt.
3. Klikk deretter "Sett inn" og velg "Modul".
4. Dobbeltklikk på den nye modulen for å åpne kodeområdet og lim inn kodene nedenfor der:

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. Klikk nå på "Kjør" eller trykk på "F5".
6. Det vil dukke opp en inndataboks. Bare skriv inn et nytt navn i tekstboksen og klikk "OK".

Nå vil dokumentet lagres på samme sted med nytt navn. Og å kjøre makroen vil slette den opprinnelige filen.

Metode 2: Gi nytt navn til et dokument og legg til datoinformasjon

I mange tilfeller vil et dokument få nytt navn med datoen når revisjonen er foretatt. Under slike omstendigheter forblir hoveddelen av et filnavn den samme bare med en datostreng etter. Her er for eksempel et dokument uten datostreng.

For å legge den til, kan vi kjøre denne makroen:

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

Du kan følge de nøyaktige trinnene i metode 1 for å installere og kjøre makroen ovenfor. Det skal fungere vakkert. Du vil se at gjeldende datostreng følger etter det opprinnelige navnet, for eksempel nedenfor:

Løsning på korrupsjon av Word-dokumenter

Vi kan ikke forhindre at dokumentkorrupsjon skjer med en engangsmetode. Det vi kan gjøre er å ta sikkerhetskopier og unngå brukerfeil så mye som mulig. Et av de viktigste punktene er å bli kjent med hva man skal gjøre etter at et dokument blir ødelagt. Det riktige svaret er å skaffe en doc gjenoppretting verktøyet så snart som mulig.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel skade og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med