2 smarta sätt att byta namn på ditt dokument i Word

I det här inlägget kommer vi att fokusera på att presentera två smarta sätt att snabbt byta namn på ditt dokument i Word.

Då och då, medan vi skriver i Word, kommer vi ständigt att ändra filnamnet. Men varje gång måste vi stänga dokumentet innan vi kan byta namn på det. Det här är inte bekvämt. Som standard kan vi inte byta namn på en öppen fil. Men med hjälp av ett makro kan det vara möjligt.

Följande är två makron som kan ta itu med ett sådant problem.

Metod 1: Byt namn på ett dokument i Word

1. Först och främst, tryck på fliken "Utvecklare" och sedan på "Visual Basic" för att öppna Word VBA-redigeraren.
2. Klicka sedan på “Normal” -projekt.
3. Klicka sedan på "Infoga" och välj "Modul".
4. Dubbelklicka på den nya modulen för att öppna kodningsområdet och klistra in bälgkoderna där:

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. Klicka nu på "Kör" eller tryck på "F5".
6. Det kommer att visas en inmatningsruta. Ange bara ett nytt namn i textrutan och klicka på “OK”.

Nu lagras dokumentet på samma plats med ett nytt namn. Och när du kör makrot raderas originalfilen.

Metod 2: Byt namn på ett dokument och bifoga datuminformation

I många fall kommer ett dokument att byta namn med det datum då revision görs. Under sådana omständigheter förblir huvuddelen av ett filnamn densamma endast med en datumsträng som följer. Här är till exempel ett dokument utan datumsträng.

För att lägga till det kan vi köra det här makrot:

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ölja de exakta stegen i metod 1 för att installera och köra ovanstående makro. Det ska fungera vackert. Du kommer att se den aktuella datumsträngen följer efter det ursprungliga namnet, till exempel nedan:

Lösning på korruption i Word-dokument

Vi kan inte förhindra att dokument blir skadade med en engångsmetod. Det vi kan göra är att säkerhetskopiera och undvika användarfel så mycket som möjligt. En av de viktigaste punkterna är att bekanta sig med vad man ska göra efter att ett dokument blir skadat. Det rätta svaret är att få en doc återhämtning verktyget så snart som möjligt.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Excel-skador och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com