Returns the number of elements in the collection.

Type Info:

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

Class TRADOSTranslationMemories
Last Updated: 03/11/04