Selection.MoveRight, méthode (Word)
Déplace la sélection vers la droite et renvoie la distance de déplacement sous la forme d'un nombre d'unités.
Syntaxe
expression. MoveRight
( _Unit_
, _Count_
, _Extend_
)
expression Obligatoire. Variable qui représente un objet Selection.
Paramètres
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Unit | Facultatif | WdUnits | L'unité à laquelle la sélection doit être déplacée. La valeur par défaut est wdCharacter. |
Count | Facultatif | Variant | Nombre d'unités de déplacement de la sélection. La valeur par défaut est 1. |
Extend | Facultatif | Variant | Peut être la valeur wdMove ou wdExtend. Si vous affectez la constante wdMove à cet argument, la sélection est réduite au point de terminaison, puis déplacée vers la droite. Si vous lui affectez la constante wdExtend, la sélection est étendue vers la droite. wdMove est la valeur par défaut. |
Valeur renvoyée
Entier long
Remarques
Si Unit a la valeur wdCell, l’argument Extend ne peut prendre que la valeur wdMove.
Exemple
Cet exemple montre comment déplacer la sélection vers l'emplacement situé avant le champ précédent, puis sélectionner le champ.
With Selection
Set MyRange = .GoTo(wdGoToField, wdGoToPrevious)
.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
If Selection.Fields.Count = 1 Then Selection.Fields(1).Update
End With
Cet exemple montre comment déplacer la sélection d'un caractère vers la droite. Si le déplacement réussit, MoveRight renvoie la valeur 1.
If Selection.MoveRight = 1 Then MsgBox "Move was successful"
Cet exemple montre comment déplacer dans un tableau la sélection vers la cellule suivante.
If Selection.Information(wdWithInTable) = True Then
Selection.MoveRight Unit:=wdCell, Count:=1, Extend:=wdMove
End If
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour