Sub Changing_Trados_Codes()
'
'
' Macro developed based on Judy Ann Schoen's Trados100
' For Trados files:
' replaces <}0{> with <}10{>
' to have all segments imported into DV
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
   With Selection.Find
	.Text = "<}0{>"
	.Replacement.Text = "<}10{>"
	.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