TransUnits.Item

Returns the translation unit at the specified index.

Syntax:

Item( Index as Variant ) As TransUnit

Return: TransUnit

Parameters: Index The source text of the translation unit or the index number of the collection element. The index can be a numerical expression (a number from 1 to the value of the "Count" property) or a string.

Example:
Dim ProjFile As ProjectFile Set ProjFile = Application.ActiveProjectFile If (ProjFile.TransUnits.Count > 0) Then MsgBox ProjFile.TransUnits.Item(1).Source End If

See also:

Class TransUnits | Class TransUnit

Syntax:	Item( Index as Variant ) As TransUnit
Return:	TransUnit
Parameters:	Index The source text of the translation unit or the index number of the collection element. The index can be a numerical expression (a number from 1 to the value of the "Count" property) or a string.
Example:	Dim ProjFile As ProjectFile Set ProjFile = Application.ActiveProjectFile If (ProjFile.TransUnits.Count > 0) Then MsgBox ProjFile.TransUnits.Item(1).Source End If