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.

See also:

Class WordsAnalysis | WordsAnalysis.GetWords


Last Updated: 03/03/04