Attribute VB_Name = "TradosMem_Cleaning"
Option Explicit
Sub TradosMem_GeneralReplacement()

'Clean codes, styles, fonts, and replaces codes with characters
'in a Trados TXT or TMX memory, leaving it ready
'to import into a DV memory

Call TradosMem_CleanPreamble
Call TradosMem_rquote_to_quote
Call TradosMem_lquote
Call TradosMem_endash
Call TradosMem_emdash
Call TradosMem_insidecurlybrackets
Call TradosMem_nonbreakinghyphen
Call TradosMem_line
Call TradosMem_nonbreakingspace
Call TradosMem_tab
Call TradosMem_reg
Call TradosMem_tm


End Sub
Sub TradosMem_CleanPreamble()
'
' TradosMem_CleanPreamble Macro
' Clean all fonts and styles in a Trados TXT memory
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(\<FontTable\>)(*)(\<\/RTF Preamble\>)"
        .Replacement.Text = "\1^p\3"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub


Sub TradosMem_rquote_to_quote()
Attribute TradosMem_rquote_to_quote.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_rquote_to_quote.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_rquote_to_quote"
'
' TradosMem_rquote_to_quote Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\rquote "
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub
Sub TradosMem_endash()
Attribute TradosMem_endash.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_endash.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_endash"
'
' TradosMem_endash Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\endash "
        .Replacement.Text = "-"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\endash "
        .Replacement.Text = "-"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
Sub TradosMem_emdash()
Attribute TradosMem_emdash.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_emdash.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_emdash"
'
' TradosMem_emdash Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\emdash "
        .Replacement.Text = "-"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub TradosMem_insidecurlybrackets()
Attribute TradosMem_insidecurlybrackets.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_insidecurlybrackets.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_insidecurlybrackets"
'
' TradosMem_insidecurlybrackets Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\{*\}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " (r)"
        .Replacement.Text = "(r)"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
Sub TradosMem_lquote()
Attribute TradosMem_lquote.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_lquote.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_lquote"
'
' TradosMem_lquote Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\lquote "
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\lquote "
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
Sub TradosMem_nonbreakinghyphen()
Attribute TradosMem_nonbreakinghyphen.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_nonbreakinghyphen.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_nonbreakinghyphen"
'
' TradosMem_nonbreakinghyphen Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\-"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
Sub TradosMem_line()
Attribute TradosMem_line.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_line.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_line"
'
' TradosMem_line Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\line "
        .Replacement.Text = " - "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
Sub TradosMem_nonbreakingspace()
Attribute TradosMem_nonbreakingspace.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_nonbreakingspace.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_nonbreakingspace"
'
' TradosMem_nonbreakingspace Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\~"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
Sub TradosMem_tab()
Attribute TradosMem_tab.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_tab.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_tab"
'
' TradosMem_tab Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\tab"
        .Replacement.Text = "^t"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
Sub TradosMem_tm()
Attribute TradosMem_tm.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_tm.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_tm"
'
' TradosMem_tm Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " (tm)"
        .Replacement.Text = "(tm)"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
Sub TradosMem_reg()
Attribute TradosMem_reg.VB_Description = "Macro recorded 18/Feb/05 by //"
Attribute TradosMem_reg.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.TradosMem_reg"
'
' TradosMem_reg Macro
' Macro recorded 18/Feb/05 by //
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " (tm)"
        .Replacement.Text = "(tm)"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub