Méthode Selection.MoveEndUntil (Word)

Article
04/07/2023

Déplace la position de fin de la sélection spécifiée jusqu'à ce qu'un des caractères indiqués soit trouvé dans le document.

Syntaxe

expression. MoveEndUntil( _Cset_ , _Count_ )

expression Obligatoire. Variable qui représente un objet Selection.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Cset	Obligatoire	Variant	Un ou plusieurs caractères. Cet argument respecte la casse.
Count	Facultatif	Variant	Le nombre maximal de caractères à laquelle la sélection spécifiée doit être déplacée. Peut être un nombre ou wdForward ou wdBackward. Si nombre est un nombre positif, la sélection est déplacée vers l'avant dans le document. Si c'est un nombre négatif, la sélection est déplacée vers l'arrière. La valeur par défaut est wdForward.

Valeur renvoyée

Entier long

Remarques

Cette méthode renvoie le nombre de caractères de déplacement de la sélection spécifiée sous forme de valeur de type Long. Si nombre est supérieur à 0 (zéro), cette méthode renvoie le nombre de caractères de déplacement plus 1. Si nombre est inférieur à 0 (zéro), cette méthode renvoie le nombre de caractères de déplacement moins 1. Si aucune sont déplacées, la sélection n'est pas modifiée et la méthode renvoie la valeur 0 (zéro). Si la position de fin est déplacée vers un point précédant la position de début d'origine, la nouvelle position de fin devient la position de début.

S'il s'agit d'un déplacement en avant du document, la sélection est développée.

Exemple

Cet exemple montre comment étendre la sélection vers l'avant du document jusqu'à ce que la lettre « a » soit trouvée. Il montre également comment développer la sélection d'un caractère pour inclure la lettre « a ».

With Selection 
 .MoveEndUntil Cset:="a", Count:=wdForward 
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
End With

Cet exemple montre comment étendre la sélection vers l’avant du document jusqu’à ce qu’une tabulation soit trouvée. Si aucune tabulation ne se trouve dans les 100 caractères suivants, la sélection n’est pas déplacée.

char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100) 
If char = 0 Then StatusBar = "Selection not moved"

Voir aussi

Selection, objet

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.

Partager via