Range.Expand (Word)

Expands the specified range or selection. Returns the number of characters added to the range or selection.

Expand (Unit)

Unit: The unit by which to expand the range. Can be one of the following WdUnits constants: wdCharacter, wdWord, wdSentence, wdParagraph, wdSection, wdStory, wdCell wdColumn, wdRow, or wdTable.

Set myRange = ActiveDocument.Words(1) 
myRange.Expand Unit:=wdParagraph