In diesem Beitrag konzentrieren wir uns darauf, Ihnen 2 clevere Möglichkeiten vorzustellen, wie Sie Ihr Dokument in Word schnell umbenennen können.
Ab und zu ändern wir beim Zeichnen in Word ständig den Dateinamen. Jedes Mal müssen wir das Dokument schließen, bevor wir es umbenennen können. Das ist absolut unpraktisch. Standardmäßig können wir eine geöffnete Datei nicht umbenennen. Aber mit Hilfe eines Makros kann es möglich sein.
Im Folgenden finden Sie zwei Makros, mit denen ein solches Problem behoben werden kann.
Methode 1: Benennen Sie ein Dokument in Word um
- Als Erstes klicken Sie auf die Registerkarte „Entwicklertools“ und anschließend auf „Visual Basic“, um den Word VBA-Editor zu öffnen.
- Klicken Sie anschließend auf "Normal".
- Klicken Sie dann auf "Einfügen" und wählen Sie "Modul".
- Doppelklicken Sie auf das neue Modul, um den Codierungsbereich zu öffnen und die folgenden Codes dort einzufügen:
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
- Klicken Sie nun auf "Ausführen" oder drücken Sie "F5".
- Es erscheint ein Eingabefeld. Geben Sie einfach einen neuen Namen in das Textfeld ein und klicken Sie auf "OK".
Jetzt wird das Dokument mit einem neuen Namen am selben Ort gespeichert. Durch Ausführen des Makros wird die Originaldatei gelöscht.
Methode 2: Benennen Sie ein Dokument um und fügen Sie Datumsinformationen hinzu
In vielen Fällen wird ein Dokument mit dem Datum der Überarbeitung umbenannt. Unter solchen Umständen bleibt der Hauptteil eines Dateinamens nur mit einer folgenden Datumszeichenfolge gleich. Hier ist beispielsweise ein Dokument ohne Datumszeichenfolge.
Um es hinzuzufügen, können wir dieses Makro ausführen:
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
Sie können die genauen Schritte in Methode 1 ausführen, um das obige Makro zu installieren und auszuführen. Es soll schön funktionieren. Sie sehen, dass die aktuelle Datumszeichenfolge nach dem ursprünglichen Namen folgt, z. B. unten:
Lösung für die Beschädigung von Word-Dokumenten
Dokumentenbeschädigung lässt sich nicht mit einer einmaligen Methode verhindern. Wir können jedoch Backups erstellen und Benutzerfehler so weit wie möglich vermeiden. Besonders wichtig ist es, sich mit dem Vorgehen bei einer Dokumentenbeschädigung vertraut zu machen. Die richtige Vorgehensweise ist, ein Backup zu erstellen. doc Wiederherstellung Werkzeug so schnell wie möglich.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel-Schaden und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX