WordsAnalysis.CountWords

Returns the number of words in the given text.

Syntax:

CountWords( Text As String ) As Long

Return: Long

Parameters: Text Text to be analyzed.

Example:
Dim Tool As WordsAnalysis Dim NumberOfWords As Long Dim Text As String Set Tool = Application.Tools.WordsAnalysis Text = Application.ActiveTransUnit.Source NumberOfWords = Tool.CountWords(Text)

Remarks: The "GetWords" method also provides an array with the counted words.

Syntax:	CountWords( Text As String ) As Long
Return:	Long
Parameters:	Text Text to be analyzed.
Example:	Dim Tool As WordsAnalysis Dim NumberOfWords As Long Dim Text As String Set Tool = Application.Tools.WordsAnalysis Text = Application.ActiveTransUnit.Source NumberOfWords = Tool.CountWords(Text)
Remarks:	The "GetWords" method also provides an array with the counted words.