Note: The other languages of the website are Google-translated. Back to English
Einloggen Registrieren

Wie konvertiere ich Dateien im DOC-Format in Word in DOCX?

Angenommen, Sie haben Word-Dokumente im Format 97-2003 erhalten. Wie können Sie alle diese Dokumente im DOC-Format gleichzeitig in das DOCX-Format konvertieren? Dieser Artikel zeigt Ihnen zwei Methoden zur Lösung dieses Problems.

Batch-Konvertierung von Dateien im DOC-Format in DOCX mit VBA-Code
Batch-Konvertierung von Dateien im DOC-Format mit Kutools for Word in DOCX

Batch-Konvertierung von Dateien im DOC-Format in DOCX mit VBA-Code

In diesem Abschnitt wird der VBA-Code zum gleichzeitigen Konvertieren aller Dokumente im DOC-Format in einem angegebenen Ordner in DOCX-Dokumente angezeigt. Bitte gehen Sie wie folgt vor.

1. Bitte sammeln Sie alle Dokumente im DOC-Format, die Sie in DOCX konvertieren möchten, in einem bestimmten Ordner.

2. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen des Microsoft Visual Basic für Applikationen Fenster.

3. Klicken Sie im Fenster auf Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA-Code: Batch-Konvertierung aller Dokumente im DOC-Format in DOCX in einem bestimmten Ordner

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

4. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. In der Eröffnung Entdecken Wählen Sie im Fenster den Ordner mit den Dokumenten im DOC-Format aus und klicken Sie auf OK. Siehe Screenshot:

Anschließend werden alle Dokumente im DOC-Format sofort in DOCX-Dokumente konvertiert (siehe Abbildung unten).

Batch-Konvertierung von Dateien im DOC-Format mit Kutools for Word in DOCX

In diesem Abschnitt wird ein praktisches Dienstprogramm empfohlen. Mit dem Doc / Docx Nutzen von Kutools for Wordkönnen Sie problemlos alle Dokumente im DOC-Format in einem Ordner in DOCX-Dokumente konvertieren. Bitte versuchen Sie es wie folgt.

Kutools for Word : Mit mehr als 100 praktischen Word-Add-Ins, Kostenlos ohne Einschränkung in 60 Tagen zu versuchen.

1. Bitte sammeln Sie alle Dokumente im DOC-Format in einem bestimmten Ordner und klicken Sie dann auf Kutoolen Plus > Doc / Docx. Siehe Screenshot:

2. In dem Dokumentformatkonverter Dialogfeld müssen Sie wie folgt vorgehen:

2.1) Wählen Sie den Ordner aus, der Dokumente im DOC-Format enthält Quelldateiordner Sektion;
2.2) Wählen Sie Konvertieren Sie doc in docx von dem Format konvertieren Dropdown-Liste;
2.3) Standardmäßig ist die Zielpfad wie Quelle Kontrollkästchen ist aktiviert. Wenn Sie alle konvertierten DOCX-Dokumente in demselben Ordner ablegen möchten, lassen Sie diese Option einfach ausgewählt.
Wenn Sie die DOCX-Dokumente und die DOC-Quelldokumente trennen möchten, deaktivieren Sie bitte das Kontrollkästchen Zielpfad wie Quelle Wählen Sie einen neuen Ordner aus, um die DOCX-Dokumente im zu speichern Sparen Sie bis zu Box;
2.4) Klicken Sie auf Start Taste. Siehe Screenshot:

3. Anschließend wird ein Dialogfeld angezeigt, in dem Sie erfahren, wie viele Dokumente erfolgreich konvertiert wurden. Klicken Sie auf OK Taste und schließen Sie die Dokumentformatkonverter Fenster.

Jetzt werden alle Dokumente im DOC-Format in DOCX-Dateien konvertiert. Siehe Screenshot:

Wenn Sie dieses Dienstprogramm kostenlos testen möchten, gehen Sie zu Laden Sie die Software kostenlos herunter Wenden Sie zuerst die Operation gemäß den obigen Schritten an.

Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (17)
Noch keine Bewertungen. Bewerten Sie als Erster!
BigB7v1
BigB7v1
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hut ab! Danke für das Teilen. Dies war äußerst hilfreich. Ich hatte über 50 Dokumente, die konvertiert werden mussten. Es dauerte nur eine Berührung über 000 Stunden, um sie alle fertig zu stellen. Große Hilfe. Ich habe Variante 39 verwendet
antworten
0
0
Richard876
Richard876     BigB7v1
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Öffnen Sie das Word-Dokument, das Sie in eine PDF-Datei umwandeln möchten. Wenn Sie nur importieren möchten ... ConvertOnlineFree - Einzel- und Batch-Konversationen von Word-Dokumenten in PDF ... PDFOnline - kostenloser Word (doc, docx und txt) in PDF-Konverter.

Schöner Blog, der Artikel, den Sie geteilt haben, ist gut. Dieser Artikel ist sehr nützlich. Mein Freund schlägt mir vor, diesen Blog zu verwenden.

https://customersurveyinfo.com
antworten
Report
0
0
Radha
Radha     Richard876
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, danke fürs Teilen.
antworten
0
0
George56
George56
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Interessantes zu lesen. Mach weiter.
antworten
0
0
Massey-Traktor
Massey-Traktor
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Ich freue mich, diese nützlichen Informationen zu finden. Danke, dass Sie diesen erstaunlichen Artikel geteilt haben.
antworten
0
0
Lipika
Lipika
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo .... Hallo, Dieser Blog enthält sehr technische Informationen, er ist einer der besten Blogs, die ich habe. Sehr interessant und sehr einfach beschrieben.
antworten
0
0
Radha
Radha
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Herr,
Ich liebe diesen Beitrag. Ich schätze diese Website sehr. Ihre Informationen sind so gut und wertvoll. Liebenswerte Idee und Konzept zum Teilen dieser Website.
Dies ist eine erstaunliche Website. Dieser Beitrag ist schön.
Danke für das Teilen
antworten
0
0
shriya gupta
shriya gupta
Dieser Kommentar wurde vom Moderator auf der Website minimiert
HalloNetter Beitrag.. Weiter teilen.Danke
antworten
0
0
uevisaonline
uevisaonline
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies ist ein wirklich aufschlussreicher Artikel, ich fand ihn sehr hilfreich und informativ
antworten
Report
0
0
ajumas
ajumas
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für das Teilen dieser nützlichen Informationen.
antworten
Report
0
0
narendra
narendra
Dieser Kommentar wurde vom Moderator auf der Website minimiert
beste grafikdesignfirma in indien
Entwerfen ist ein Handwerk, Worte als Artikulationen zu kommunizieren. Im fortgeschrittenen Bereich zählen Bilder mehr als Worte.
Die Experten in der Designbranche empfehlen, dass Illustrationen einfacher zu merken sind als Worte,
und das ist der Grund, warum Website-Design und Grafiken eine zwingende Rolle spielen.

antworten
Report
0
0
diefrisur
diefrisur
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für das Teilen
antworten
0
0
Safe
Safe
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Großartige Informationen Sehr nützlich, danke fürs Teilen.

Farmtrac 60
antworten
0
0
Marco
Marco
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Nettes Tool, aber ich habe das Problem, dass ich DOC-Dateien (in Großbuchstaben geschrieben!) nicht in docx-Dateien konvertieren kann.
Es funktioniert mit doc-Dateien.
antworten
0
0
Kristall
Kristall     Marco
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Der folgende Code kann helfen, beide doc. und DOC. Dateien in docx-Dateien. Bitte versuchen Sie es. Vielen Dank für Ihr Feedback.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
antworten
Report
0
0
Daniel Benes
Daniel Benes
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
já bych potřeboval, ale VBA script který von fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Guten Tag,
Ich würde ein VBA-Skript benötigen, das einschließlich Unterordnern funktioniert. Kann bitte jemand dieses Skript auch bearbeiten? Vielen Dank.
antworten
0
0
Kristall
Kristall     Daniel Benes
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Daniel Benes,
Um Unterordner einzuschließen, versuchen Sie bitte den folgenden VBA-Code.
Nachdem Sie den Code hinzugefügt haben, gehen Sie zu Tools Tab, klicken Sie auf Referenzen, in der Eröffnung Referenzen - Projekt Wählen Sie im Dialogfeld Microsoft Scripting-Laufzeit Feld, und klicken Sie dann auf OK Schaltfläche, um die Änderungen zu speichern. Siehe folgenden Screenshot:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Drücken Sie danach die F5 Schlüssel zum Ausführen des Codes.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function
antworten
Report
0
0
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
GUEST
Als Gast posten
Einloggen
×
Bewerte diese Nachricht:
Zurücksetzen
0   Figuren
Vorgeschlagene Standorte