#language = "VBScript"
' Select whole paragraph macro.
' An paragraph is an block of text delimited by two empty lines.
' How to:
' 1. Have the cursor inside an paragraph
' 2. execute this macro.

'Find next empty line UP:
'''''''''''''''''''''''''
Do While TRUE
		'//Returns the line number of the cursor position.
		yPos = document.selection.GetActivePointY( eePosLogical )
		yLine = yPos
		'//Retrieves the text on the specified line.
		str = document.GetLine( yLine ) 	'[, flag ] )
                '//Trim removes spaces on both sides of a string.
		str = Trim(str)
		If Len(str) > 0 Then
			'//Moves the cursor up a specified number of lines.
			document.selection.LineUp 	'[ bExtend [, nCount ] ]
		Else
			Exit Do
		End If
Loop

'Start the selection:
'''''''''''''''''''''
		document.selection.LineDown
		'//Moves the cursor to the start of the line.
		document.selection.StartOfLine 		'[ bExtend [, nFlags ] ]
		'//Selects a line at the cursor.
		document.selection.SelectLine

'Find next empty line DOWN:
'''''''''''''''''''''''''''
Do While TRUE
		'//Returns the line number of the cursor position.
		yPos = document.selection.GetActivePointY( eePosLogical )
		yLine = yPos
		'//Retrieves the text on the specified line.
		str = document.GetLine( yLine ) 	'[, flag ] )
		str = Trim(str)
		If Len(str) > 0 Then
			'//Moves the cursor down a specified number of lines.
			document.selection.LineDown True  '[ bExtend [, nCount ] ]
		Else
			'//Select the trailing empty line too:
			'document.selection.LineDown True 
			Exit Do
		End If
Loop