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

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.