Returns the match quality of the translation unit.

Type Info:

 
Score As Long
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
Remarks: Read-only property.
See also:

Class TRADOSTranslationUnit
Last Updated: 03/03/04