Mehrere Doc-Dateien in DocM per VBA umwandeln.

Diskutiere Mehrere Doc-Dateien in DocM per VBA umwandeln. im Office Forum im Bereich Microsoft Community Fragen; Hallo, ich habe einen Ordner mit mehr als 200 Doc-Dateien. Einige davon enthalten VBA Code. Ich muss diese jetzt in Docx umwandeln. Da Docx...
M

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo,


ich habe einen Ordner mit mehr als 200 Doc-Dateien. Einige davon enthalten VBA Code. Ich muss diese jetzt in Docx umwandeln. Da Docx jedoch keine Makros enthalten kann, möchte stattdessen Docm nutzen. Ich habe einen Code gefunden, mit welchem man die Dateien in Docx umwandeln kann:

Sub TranslateDocIntoDocx()
Dim objWordApplication As New Word.Application
Dim objWordDocument As Word.Document
Dim strFile As String
Dim strFolder As String
strFolder = "E:\Temp\"
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

Allerdings wüsste ich nicht, welches FileFormat man bei Docm anwenden soll. Ich hatte an 13 gedacht, aber das Problem ist, dass das Script die Dateien öffnet, dadurch Debug-Fehler erzeugt, da einige Platzhalter nicht gefüllt sind, welche erst durch die Fachsoftware generiert werden, aus welcher ich heraus die Dokumente öffne.
Eine Lösung wäre halt gut, dass die Dateien einfach nur umgeschrieben werden oder eine Möglichkeit zu prüfen, welche Datei VBA enthält, diese dann nicht umschreibt, so dass ich sie händisch in Word konvertieren kann.

Viele Grüße

Patrick
 
Thema:

Mehrere Doc-Dateien in DocM per VBA umwandeln.

Mehrere Doc-Dateien in DocM per VBA umwandeln. - Ähnliche Themen

Outlook VBA - Kategorien in spezifisches Postfach importieren: Hallo zusammen: Ich habe folgende Quelltexte zu diesem Thema gefunden: 1. Liste aller vorhandenen Kategorien im Standardpostfach erzeugen...
Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln?: Hallo liebe Forums-User! Ich versuche einen Makro zu erstellen, der in einem längeren Dokument mehrere beliebige unterschiedliche Webadressen...
Automatische out-of- office-Antwort funktioniert nicht mehr: Hallo zusammen, ich habe in Outlook ein VBA-Makro erstellt, welches beim Beenden von Outlook automatisch die out-of-office-Antwort aktiviert und...
Kopieren Dateien von einem Ordner in einen anderen Ordner: Hallo Leute, Ich bin in der VBA Programierung leider kein Experte. Ich möchte von einem Laufwerk C:\Daten\ ausgewählte Dateien in einen Ordner...
Loop erstellen: Hallo Community, Ich Habe ein Arbeitsblatt in dem in Spalte A eine unbestimmte Anzahl an Werten sind die aus anderen Arbeitsblättern gezogen...

Sucheingaben

nearby cAasino

,

royal ncasino

,

poker angle shooting

,
virgin river casino
, poker night 2, pokoer night 2, poker set walmart, pokesr set walmart, swiss casino, pure play pBoker, casino joy, pokemr rpg, poker rpg, the outcasts of poker flats, the outcasts of po9ker flats, paragon casino, paragon Ccasino, riverboat casinjo, poker online gratis, *poker online gratis, resorts world Jcasino new york city, michigan casinos, michigan (casinos, how does a pokVer run work
Oben