set strDelim to text item delimiters
set text item delimiters to space
tell front document of application "OmniOutliner Professional"
	try
		display dialog (count of words of ((topic of rows) as text)) as text
	end try
end tell
set text item delimiters to strDelim