Converting TM file into Excel. Set tags disappearing.

Question

Hello, I was wondering if anyone knew a workaround to my problem. 
 
 So there are many TM files I have and I wanted to convert them into Excel. 
 Obviously when I Batch task to export a project's excel file the excel file will have the Tags show up on both the Source and Target side of the excel 
 However, I have some old TM files where I don't have (or don't know where) the original file is so I wanted to convert that TM file into Excel using the Glossary Converter. When I did, The tags whether they were color codings, or other variable codings (such as {0}) were removed on the exported excel. 
 I'm thinking that the tags were thought to be formatting tags so they were removed, but I need to be able to have them also converted and show up on Excel as if I was exporting the project file as stated first. 
 
 Does anyone know how I can go about this?

Paul · Answer

Keni Lee 
 Might be worth explaining why you want to do this? The Glossary Converter was designed for a different purpose... the purpose being to get at the text. So retaining the tags is normally undesirable. If you can explain what your usecase is perhaps there is a better solution to your problem.

Paul · Answer

Keni Lee ok - understood. Keni Lee said: So I wanted to convert the TM into Excel so we can use the Excel to use as a data and organize them. In this case your best bet is to export to TMX so the tag placeables will still be there and then bring the TMX into Excel so you retain the tags. They won't be useful in Excel because the TM doesn't know what to do with the tags.. they are just placeables, but at least you'd know they were there. So if I take your example: Translate in Studio: Export from my TM as TMX:

RecognizeAll True gaming DefaultFlags DefaultFlags

GLOBAL\pfilkin 0, 0 TM Translated Player will be kicked from the Der Spieler wird vom getreten GLOBAL\pfilkin -xxxxxxxxxxxxxxxxxx, -xxxxxxxxxxxxxxxxxx Player will be kicked from the | AgMHAwEBAQEwABkBAgIBATEAAAICAQExAA== | Der Spieler wird vom getreten | AgMMAwEBAQEwABMBAgIBATEAAAICAQExAA== TM Translated Would you like to purchase from the market? Möchten Sie auf dem Markt einkaufen ? Create a macro in Excel to bring it in with the tags included: Sub ImportTMX() Dim fd As FileDialog Dim tmxPath As String Dim xmlDoc As Object Dim xmlNodeList As Object Dim tuNode As Object Dim tuvNode As Object Dim segNode As Object Dim row As Integer ' Create a file dialog object to select the TMX file Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.Title = "Select a TMX File" fd.Filters.Add "TMX Files", "*.tmx" If fd.Show = -1 Then tmxPath = fd.SelectedItems(1) Else MsgBox "No file selected. Exiting macro." Exit Sub End If ' Create an XML DOM document Set xmlDoc = CreateObject("MSXML2.DOMDocument") xmlDoc.Async = False xmlDoc.Load tmxPath If xmlDoc.parseError.ErrorCode <> 0 Then MsgBox "Error loading TMX file: " & xmlDoc.parseError.Reason Exit Sub End If ' Clear existing content With Sheets("Sheet1") .Cells.ClearContents ' Add headers .Cells(1, 1).Value = "ID" .Cells(1, 2).Value = "Source language content" .Cells(1, 3).Value = "Target language content" ' Set column widths and alignment .Columns("B:C").ColumnWidth = 100 .Columns("B:C").WrapText = True .Cells.VerticalAlignment = xlTop .Cells.HorizontalAlignment = xlLeft End With ' Initialize row row = 2 ' Loop through each translation unit (tu) Set xmlNodeList = xmlDoc.SelectNodes("//tu") For Each tuNode In xmlNodeList Dim srcText As String, tgtText As String For Each tuvNode In tuNode.SelectNodes("tuv") Set segNode = tuvNode.SelectSingleNode("seg") If tuvNode.getAttribute("xml:lang") = "en-US" Then srcText = InnerXml(segNode) ElseIf tuvNode.getAttribute("xml:lang") = "de-DE" Then tgtText = InnerXml(segNode) End If Next ' Place values in the respective columns With Sheets("Sheet1") .Cells(row, 1).Value = row - 1 .Cells(row, 2).Value = srcText .Cells(row, 3).Value = tgtText End With row = row + 1 Next MsgBox "TMX file imported successfully." End Sub Function InnerXml(node As Object) As String ' This function strips the outer XML tags and returns the inner XML as a string InnerXml = node.XML InnerXml = Replace(InnerXml, "<" & node.BaseName & ">", "") InnerXml = Replace(InnerXml, "", "") End Function Run it and select the TMX: Now I have the tags too and not just the text. Is that what you wanted?

Trados Studio > 2. Trados Studio

Converting TM file into Excel. Set tags disappearing.