Christian hat einen Ordner voller DOC-Dateien, die er in DOCX-Dateien konvertieren muss. Er fragt sich, ob es eine schnelle Möglichkeit gibt, sie zu konvertieren, ohne sie einzeln zu öffnen und zu speichern.

Microsoft bietet diese Funktionalität weder in Word noch ein Add-In für die Konvertierungen. Sie können jedoch ein eigenes Makro erstellen, um die Konvertierungen durchzuführen. Ein ziemlich einfacher Ansatz wird hier gezeigt:

Sub ConvertBatchToDOCX()

Dim sSourcePath As String     Dim sTargetPath As String     Dim sDocName As String     Dim docCurDoc As Document     Dim sNewDocName As String

' Looking in this path     sSourcePath = "c:\Users\Administrator\Desktop\Testing\"

sTargetPath = "c:\Users\Administrator\Desktop\Converted\"



' Look for first DOC file     sDocName = Dir(sSourcePath & "*.doc")

Do While sDocName <> ""

' Repeat as long as there are source files                  'Only work on files where right-most characters are ".doc"

If Right(sDocName, 4) = ".doc" Then             ' Open file             Set docCurDoc = Documents.Open(FileName:=sSourcePath & sDocName)



sNewDocName = Replace(sDocName, ".doc", ".docx")



With docCurDoc                 .SaveAs FileName:=sTargetPath & sNewDocName, _                   FileFormat:=wdFormatDocumentDefault                 .Close SaveChanges:=wdDoNotSaveChanges             End With         End If         ' Get next source file name         sDocName = Dir     Loop     MsgBox "Finished"

End Sub

Um das Makro verwenden zu können, müssen Sie zwei Änderungen vornehmen. Geben Sie zunächst in der Variablen sSourcePath den vollständigen Pfad (gefolgt von einem Backslash) zu dem Verzeichnis an, das die zu konvertierenden Dateien enthält.

Geben Sie dann in der Variablen sTargetPath den vollständigen Pfad (mit nachfolgendem Backslash) des Verzeichnisses an, in dem die konvertierten Dokumente gespeichert werden sollen.

Das Makro durchläuft dann alle im Quellverzeichnis gefundenen DOC-Dateien, öffnet sie und speichert sie als DOCX-Dateien im Zielverzeichnis.

Beachten Sie, dass ich erwähnt habe, dass dies ein einfacher Ansatz ist. Der Grund ist, dass es keine Fehlerprüfung bei seiner Arbeit macht. Wenn Sie dieses Makro beispielsweise zweimal hintereinander ausführen, werden Fehler angezeigt, da die im Zielverzeichnis gespeicherten Dateien bereits vorhanden sind. Außerdem sollten Sie verstehen, dass dadurch alle DOC-Dateien in DOCX-Dateien konvertiert werden. Mit anderen Worten, wenn die Originaldatei Makros enthält, werden diese Makros beim Konvertierungsprozess entfernt.

Beachten Sie schließlich, dass das Herz des Makros in einer If / Then-Struktur enthalten ist, die überprüft, ob die 4 Zeichen ganz rechts des Dateinamens tatsächlich „.doc“ sind. Dies geschieht aufgrund des ziemlich erschwerenden Verhaltens der Dir-Funktion auf einigen Systemen, bei denen die Suche nach dem Muster „* .doc“ als Übereinstimmung mit jedem Dateinamen zurückgegeben wird, der _doc enthält. Dies bedeutet, dass auch Dateien zurückgegeben werden, die auf .docx und .docm enden. Offensichtlich sollten diese nicht konvertiert werden, daher ist die If / Then-Struktur enthalten, um sie auszusortieren.

Wenn Sie kein eigenes Makro verwenden möchten, können Sie Lösungen von Drittanbietern verwenden. Auf der folgenden Seite der Website von Graham Mayor finden Sie ein kostenloses Add-In, mit dem unter anderem die Dokumentkonvertierung durchgeführt wird:

http://www.gmayor.com/document_batch_processes.htm

Möglicherweise können Sie andere ähnliche Konverter finden, indem Sie im Internet nach „doc docx converter“ suchen (ohne Anführungszeichen).

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (643) gilt für Microsoft Word 2007, 2010, 2013 und 2016.