Returns the number of found translations.

Syntax:

 
HitCount() As Long
Return: Long
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: 03/11/04