2 modi intelligenti per rinominare il tuo documento in Word

In questo articolo, ci concentreremo nel presentarvi 2 metodi intelligenti per rinominare rapidamente un documento in Word.

Di tanto in tanto, durante la stesura in Word, cambieremo costantemente il nome del file. Tuttavia, ogni volta, dobbiamo chiudere il documento prima di poterlo rinominare. Questo non è assolutamente conveniente. Per impostazione predefinita, non possiamo rinominare un file aperto. Ma con l'aiuto di una macro, può essere possibile.

Di seguito sono riportate 2 macro che possono risolvere tale problema.

Metodo 1: rinominare un documento in Word

1. Innanzitutto, fai clic sulla scheda "Sviluppatore" e poi su "Visual Basic" per aprire l'editor VBA di Word.
2. Quindi fai clic sul progetto "Normale".
3. Quindi fare clic su "Inserisci" e scegliere "Modulo".
4. Fare doppio clic sul nuovo modulo per aprire l'area di codifica e incollarvi i seguenti codici:

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. Ora fai clic su "Esegui" o premi "F5".
6. Apparirà una casella di input. Basta inserire un nuovo nome nella casella di testo e fare clic su "OK".

Ora il documento verrà memorizzato nello stesso posto con un nuovo nome. E l'esecuzione della macro eliminerà il file originale.

Metodo 2: Rinominare un documento e aggiungere informazioni sulla data

In molti casi, un documento verrà rinominato con la data in cui è stata effettuata la revisione. In tali circostanze, la parte principale di un nome di file rimane la stessa solo con una stringa di data che segue. Ad esempio, ecco un documento senza una stringa di data.

Per aggiungerlo, possiamo eseguire questa macro:

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

È possibile seguire i passaggi esatti nel metodo 1 per installare ed eseguire la macro precedente. Funzionerà magnificamente. Vedrai che la stringa della data corrente segue il nome originale, ad esempio:

Soluzione alla corruzione dei documenti di Word

Non possiamo impedire che si verifichi un danneggiamento dei documenti con un metodo definitivo. Quello che possiamo fare è effettuare backup ed evitare il più possibile gli errori dell'utente. Uno dei punti più importanti è familiarizzare con cosa fare dopo che un documento si è danneggiato. La risposta giusta è ottenere un recupero documenti strumento il prima possibile.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui Eccellente danno and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com