2 façons intelligentes de renommer votre document dans Word

Dans cet article, nous allons nous concentrer sur la présentation de deux méthodes astucieuses pour renommer rapidement votre document dans Word.

De temps en temps, lors de la rédaction dans Word, nous changerons constamment le nom du fichier. Or à chaque fois, il faut fermer le document avant de pouvoir le renommer. Ce n'est absolument pas pratique. Par défaut, nous ne pouvons pas renommer un fichier ouvert. Mais avec l'aide d'une macro, cela peut être possible.

Voici 2 macros qui peuvent résoudre un tel problème.

Méthode 1 : renommer un document dans Word

1. Avant toute chose, cliquez sur l'onglet « Développeur », puis sur « Visual Basic » pour ouvrir l'éditeur VBA de Word.
2. Cliquez ensuite sur le projet "Normal".
3. Cliquez ensuite sur "Insérer" et choisissez "Module".
4. Double-cliquez sur le nouveau module pour ouvrir la zone de codage et collez-y les codes suivants :

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. Cliquez maintenant sur "Exécuter" ou appuyez sur "F5".
6. Une boîte de saisie apparaîtra. Entrez simplement un nouveau nom dans la zone de texte et cliquez sur "OK".

Maintenant, le document sera stocké au même endroit avec un nouveau nom. Et l'exécution de la macro supprimera le fichier d'origine.

Méthode 2 : renommer un document et ajouter les informations de date

Dans de nombreux cas, un document sera renommé avec la date à laquelle la révision est effectuée. Dans de telles circonstances, la partie principale d'un nom de fichier reste la même uniquement avec une chaîne de date à la suite. Par exemple, voici un document sans chaîne de date.

Pour l'ajouter, nous pouvons exécuter cette 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

Vous pouvez suivre les étapes exactes de la méthode 1 pour installer et exécuter la macro ci-dessus. Cela fonctionnera à merveille. Vous verrez que la chaîne de date actuelle suit le nom d'origine, comme ci-dessous :

Solution à la corruption de documents Word

Il est impossible d'empêcher définitivement la corruption de documents. En revanche, nous pouvons effectuer des sauvegardes et limiter au maximum les erreurs humaines. Il est essentiel de savoir comment réagir en cas de corruption d'un document. La solution consiste à obtenir une copie conforme. récupération de documents outil dès que possible.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Excel dommage et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com