#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

// language = "JavaScript"
// 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.

o = document.selection;
o.Find("^\\s*$",eeFindPrevious | eeFindReplaceRegExp);
yPosBeg = o.GetActivePointY(eePosLogical) +1;
o.Find("^\\s*$",eeFindNext | eeFindReplaceRegExp);
yPosEnd = o.GetActivePointY(eePosLogical);
o.SetAnchorPoint(eePosLogical, 1, yPosBeg);
o.SetActivePoint(eePosLogical, 1, yPosEnd, True);

// Shorten the object string, just for fewer typing:
o = document.selection;

// - - -

// Find something backwards/up, here empty line:
o.Find("^\\s*$",eeFindPrevious | eeFindReplaceRegExp);

// Remember the current line number:
yPosBegin = o.GetActivePointY(eePosLogical) +1;

// - - -

// Find again something downwards 
//   (here: find an blank line, non-greedy)
//   AND move the cursor that way to the found position :
o.Find("^\\s*$",eeFindNext | eeFindReplaceRegExp);

// Do an selection.
//   Set the start of the selection to the remembered line.
//   The end of the selection will be the current line:
o.SetAnchorPoint(eePosLogical, 1, yPosBegin); 

o = document.selection;

//Remember the current line number:
yPos = o.GetActivePointY( eePosLogical );

//Move cursor to found position (here: find an blank line):
o.Find("^$",eeFindNext | eeFindReplaceRegExp);

//Do an selection.
//Set the start of the selection to the remembered line:
o.SetAnchorPoint( eePosLogical, 1, yPos );

// language = "JavaScript"
// Select whole paragraph macro.
// An paragraph is an block of text delimited 
//     by two empty lines. (Or BOF/EOF)
// How to:
// 1. Have the cursor inside an paragraph.
// 2. execute this macro.
//NEW, Di, 10.07.2012: error handling for BOF and EOF

o = document.selection;
nFound = o.Find("^\\s*$",eeFindPrevious | eeFindReplaceRegExp);
if(nFound==0){o.StartOfDocument(); o.StartOfLine();
	yPosBeg = o.GetActivePointY(eePosLogical);
}else{
	yPosBeg = o.GetActivePointY(eePosLogical) +1;
}
nFound = o.Find("^\\s*?$",eeFindNext | eeFindReplaceRegExp);
if(nFound==0){o.EndOfDocument(); o.EndOfLine();
	o.SetAnchorPoint(eePosLogical, 1, yPosBeg); 
}else{
	o.LineUp();o.EndOfLine(); //exclude trailing line break
	o.SetAnchorPoint(eePosLogical, 1, yPosBeg);
}