Returns the first translation unit.

Syntax:

 
GetTranslationUnit() As TRADOSTranslationUnit
Return: TRADOSTranslationUnit
Example: 
Dim TRADOSTM As TRADOSTranslationMemory
Dim TRADOSTU As TRADOSTranslationUnit
Dim i As Integer

If (Application.TRADOSTranslationMemories.Count > 0) Then
	Set TRADOSTM = Application.TRADOSTranslationMemories.Item(1)
	Call TRADOSTM.Search(Application.ActiveTransUnit.Source)
	If (TRADOSTM.HitCount > 0) Then
		Set TRADOSTU = TRADOSTM.GetTranslationUnit()
		For i = 1 To TRADOSTM.HitCount
			MsgBox TRADOSTU.Source & ";" & TRADOSTU.Target & ";" & TRADOSTU.Score
			TRADOSTU.Next
		Next i
	End If
End If

See also:

Class TRADOSTranslationMemory

Last Updated: 04/27/05