Batch-konvertieren.doc zu.docx (und equivilent für andere Office-Formate)?

Das folgende vba-Makro konvertiert alle Dokumente in einem ausgewählten Ordner

Sub SaveAllAsDOCX()
Dim strFileName As String
Dim strDocName As String
Dim strPath As String
Dim oDoc As Document

With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
strPath = .Directory
Else
MsgBox "Cancelled by User"
Exit Sub
End If
End With

If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
If Left(strPath, 1) = Chr(34) Then
strPath = Mid(strPath, 2, Len(strPath) - 2)
End If
strFileName = Dir$(strPath & "*.doc")

While Len(strFileName) <> 0
Set oDoc = Documents.Open(strPath & strFileName)

strDocName = ActiveDocument.FullName
intPos = InStrRev(strDocName, ".")
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".docx"
oDoc.SaveAs FileName:=strDocName, _
FileFormat:=wdFormatDocumentDefault
oDoc.Close SaveChanges:=wdDoNotSaveChanges
strFileName = Dir$()
Wend
End Sub

Kredit Graham Bürgermeister - Word MVP -

Bulk Konvertieren DOC zu DOCX -

Microsoft verfügt über ein Bulk-Konvertierungsprogramm, mit dem mehrere DOC-Dateien in DOCX-Dateien konvertiert werden können. Dieser Blogbeitrag enthält sehr grundlegende Informationen zu seiner Verwendung.

Ich habe eine Batch-Datei für die Verwendung mit Office 2010 erstellt. Es ist kostenlos, aber Büro nicht. Dadurch wird die Originaldatei gelöscht. Wenn Sie es nicht wollen, entfernen Sie die zweite Zeile. Fügen Sie den Code in eine Batch-Datei ein.

for /r "SOME PATH TO TRAVERSE" %%a in ("*.doc") do (
"YOUR PATH MIGHT BE DIFFERENT C:\Program Files\Microsoft Office\Office14\Wordconv.exe" -oics -nme "%%a" "%%ax"
del "%%a"

)

Kann ich nicht nehmen Kredit für diese Lösung, wie ich es von Microsoft Foren - . Umbuchung hier für die Bequemlichkeit:

1. Setzen Sie alle .doc-Dateien in einen Ordner, z.B. **D:\doc**.

2. Öffnen Sie Word und drücken Sie Alt+F11 zum Öffnen des VBA-Editors.

3. Klicken Sie nun auf" Normal "Projekt und klicken Sie auf" Einfügen" > "Modul " um ein neues Modul in das Projekt einzufügen.

4. Doppelklicken Sie auf das Modul öffnen Sie den Bearbeitungsbereich und fügen Sie den folgenden Code ein:

    Sub TranslateDocIntoDocx()
      Dim objWordApplication As New Word.Application
      Dim objWordDocument As Word.Document
      Dim strFile As String
      Dim strFolder As String
   
      strFolder = "D:\doc\"
      strFile = Dir(strFolder & "*.doc", vbNormal)
   
      While strFile <> ""
        With objWordApplication      
          Set objWordDocument = .Documents.Open(FileName:=strFolder &strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False)
   
          With objWordDocument
            .SaveAs FileName:=strFolder & Replace(strFile, "doc", "docx"), FileFormat:=16
            .Close
          End With
        End With
        strFile = Dir()
      Wend   
   
      Set objWordDocument = Nothing
      Set objWordApplication = Nothing
    End Sub
   

5. Klicken Sie auf" Run ". Sekunden später werden Sie alle finden .doc Dateien wurden konvertiert .docx-Dateien. Original .doc-Dateien bleiben.