Range.Expand (Word)

Se expande el intervalo o selección especificados.

Expand (Unit)

Unit: Unidad que se va a expandir el intervalo.

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