tell application "OmniOutliner Professional"
	set intWords to 0
	
	tell front document
		repeat with oRow in rows
			repeat with oCell in cells of oRow
				if type of column of oCell is rich text then
					repeat with oText in text of oCell
						set intWords to intWords + (count of words of oText)
					end repeat
				end if
			end repeat
		end repeat
	end tell
	
	display dialog (intWords as string) & " words"
end tell