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
|