Hallo allerseits,

Das nachfolgende Makro stammt aus Word 2003 und dient zum Konvertieren von Translation Memories. Es durchsucht das Verzeichnis D:\_Workdir nach Translation Memories ("*.TMW") und übergibt diese der Reihe nach an SDL Trados 2007 („Workbench“), von wo sie jeweils im Format TMX im gleichen Verzeichnis gespeichert werden. Zum Schluss wird eine Liste der konvertierten Memories erstellt und die alten Dateien werden gelöscht, sodass nur noch Dateien im Format TMX im Verzeichnis stehen.

Das Makro funktioniert nicht mehr in späteren Word Versionen, da es „Set fs = Application.FileSearch“ nicht mehr gibt.

Ich wäre sehr dankbar, wenn mir jemand das Makro so umbauen könnte, dass es unter Office 2019 lauffähig ist. Leider sind meine VBA Kenntnisse zu schwach, um das selbst zu machen. Habt schon mal vielen Dank im Voraus!

Andreas

Sub TMexports()

Dim oWorkbench As TW4Win.Application
Dim oTM As TW4Win.TranslationMemory
Dim oOptionsGeneral As TW4Win.OptionsGeneral
Dim oProperties As TW4Win.Properties
Set oWorkbench = GetObject(, "TW4Win.Application")
Set oTM = oWorkbench.TranslationMemory
Set oOptionsGeneral = oWorkbench.OptionsGeneral
SaveOptionsMode = oOptionsGeneral.ShowProjectSettings
oOptionsGeneral.ShowProjectSettings = False
Open "D:\_Workdir\Exports_TM-List.txt" For Output As #2
Count = 1
Set fs = Application.FileSearch

With fs
    .NewSearch
    .LookIn = "D:\_WorkDir"
    .FileName = "*.tmw"
    .SearchSubFolders = True
    .FileType = msoFileTypeAllFiles
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
    Debug.Print "There were " & .FoundFiles.Count & " file(s) found."
    For i = 1 To .FoundFiles.Count
    If InStr(1, .FoundFiles(i), "_TMs_TW1") = 0 Then
    oTM.Open .FoundFiles(i), "AP" 'Set Username here
    Set oProperties = oTM.Properties
    ExportFile = "D:\_Workdir\TMexport-" + CStr(Count) + ".tmx"
    Debug.Print Count, ExportFile, oTM.FileName
    With oProperties
    Print #2, CStr(Count) + Chr(9) + .Name
    End With
    oTM.Export ExportFile, twbFormatTMX
 
        oTM.Close
        Count = Count + 1
        Else
        Debug.Print "Skipped"
        End If
    Next i
    Else
    MsgBox "There were no files found."
    End If
End With

Close #2

oOptionsGeneral.ShowProjectSettings = SaveOptionsMode

Kill "D:\_Workdir\*.iix"
Kill "D:\_Workdir\*.mdf"
Kill "D:\_Workdir\*.mtf"
Kill "D:\_Workdir\*.mwf"
Kill "D:\_Workdir\*.tmw"

End Sub