Range.Expand (Word)

Développe la plage spécifiée ou la sélection.

Expand (Unit)

Unit: Unité selon laquelle étendre la plage.

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