Loads the data of the next possible translation unit into the "TRADOSTranslationUnit" object. If no translation unit follows, the method returns "False"; otherwise "True."

Syntax:

 
Next() As Boolean
Return: Boolean
Example: 
Dim TRADOSGloss As TRADOSGlossary
Dim TRADOSTU As TRADOSTranslationUnit
Dim i As Integer

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

See also:

Class TRADOSTranslationUnit

Last Updated: 04/27/05