Range.EndOf, méthode (Word)
Déplace ou étend l'emplacement du caractère de fin d'une plage vers la fin de l'unité de texte spécifiée la plus proche.
Syntaxe
expression. EndOf( _Unit_ , _Extend_ )
expression Obligatoire. Variable qui représente un objet Range.
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Unit | Facultatif | Variant | Unité en fonction de laquelle déplacer la position du caractère de fin. Peut être n'importe quel WdUnits, à l'exception de wdLine. La valeur par défaut est wdWord. |
| Extend | Obligatoire | WdMovementType | Spécifie s'il faut déplacer ou étendre la fin de la plage. Si la valeur est wdMove, les deux extrémités de l'objet range ou selection sont déplacées vers la fin de l'unité spécifiée. Si wdExtend est utilisée, la fin de la plage ou la sélection est étendue jusqu'à la fin de l'unité spécifiée. La valeur par défaut est wdMove. |
Remarques
Déplace ou étend l'emplacement du caractère de fin d'une plage ou d'une sélection vers la fin de l'unité de texte spécifiée la plus proche. Cette méthode renvoie une valeur qui correspond au nombre d'emplacements correspondant à la distance de déplacement ou d'extension de la plage ou de la sélection (le déplacement au sein d'un document est effectué vers l'avant).
Si l'emplacement de fin et de début de la plage ou de la sélection correspond déjà à la fin de l'unité spécifiée, cette méthode ne déplace ni n'étend la plage ou la sélection. Par exemple, si la sélection se trouve à la fin d’un mot et de l’espace de fin, l’instruction suivante ne modifie pas la sélection ( char est égal à 0 (zéro)).
char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)
Exemple
Cet exemple montre comment étendre la sélection vers la fin du paragraphe.
charmoved = Selection.EndOf(Unit:=wdParagraph, Extend:=wdExtend)
If charmoved = 0 Then MsgBox "Selection unchanged"
Cet exemple montre comment déplacer myRange vers la fin du premier mot de la sélection (après l'espace situé à droite).
Set myRange = Selection.Characters(1)
myRange.EndOf Unit:=wdWord, Extend:=wdMove
Cet exemple montre comment ajouter un tableau, sélectionner la première cellule de la deuxième ligne et étendre la sélection vers la fin de la colonne.
Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _
NumRows:=5, NumColumns:=3)
myTable.Cell(2, 1).Select
Selection.EndOf Unit:=wdColumn, Extend:=wdExtend
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.