Range.MoveEnd (Word)

Déplace la position du caractère de fin d'une plage.

Cette méthode renvoie un entier qui indique le nombre d'unités correspondant à la distance de déplacement de la plage ou elle renvoie la valeur 0 (zéro) si la procédure de déplacement a échoué.

MoveEnd (Unit, Count)

If ActiveDocument.Words.Count >= 3 Then 
 Set myRange = ActiveDocument.Words(2) 
 With myRange 
 .MoveEnd Unit:=wdWord, Count:=1 
 .Select 
 End With 
End If

Arguments

Optional arguments

Les arguments suivants sont facultatifs

Unit (WdUnits) - Unité en fonction de laquelle l'emplacement du caractère de fin doit être déplacé.

Ici on trouve valeurs possible pour WdUnits

Count (Long) - Nombre d'unités à déplacer.