Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Word Réduire la sélection active en retirant les 2 premiers mots

Réduire la sélection active en retirant les 2 premiers mots

3 réponses
Avatar
Wlad69
Bonjour,

Dans ma macro j'ai dans la s=E9lection active
Selection.Range.Text =3D "=E0 la direction des ressources humaines"

Je cherche le moyen le plus simple de r=E9duire ma selection =E0
"direction des ressources humaines".

Je veux pouvoir avoir les 2 s=E9lections, pour cr=E9er 2 signets.

J'ai essay=E9 de bidouiller avec la m=E9thode StartOf mais je n'arrive =E0
rien.


Merci de votre aide.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Wlad69
Comme souvent j'ai sollicité votre aide un peu vite...
Je vous prie de m'en excuser.

Je vous livre la solution que je viens de trouver.

Set myRange = Selection.Range
With myRange
.MoveStart Unit:=wdWord; Count:=2
.Select
End With

Bonne soirée à tous.
Avatar
Geo

Comme souvent j'ai sollicité votre aide un peu vite...
Je vous prie de m'en excuser.

Je vous livre la solution que je viens de trouver.

Set myRange = Selection.Range
With myRange
.MoveStart Unit:=wdWord; Count:=2
.Select
End With

Bonne soirée à tous.


C'est très bien, mais pourquoi Select ?

Set myRange = Selection.Range
ActiveDocument.Bookmarks.Add _
Name:="DestinataireComplet", Range:=myRange
myRange.MoveStart Unit:=wdWord; Count:=2
ActiveDocument.Bookmarks.Add _
Name:="DestinataireRéduit", Range:=myRange

--
A+

Avatar
Wlad69
On 12 sep, 21:12, Geo wrote:

Comme souvent j'ai sollicité votre aide un peu vite...
Je vous prie de m'en excuser.

Je vous livre la solution que je viens de trouver.

Set myRange = Selection.Range
With myRange
.MoveStart Unit:=wdWord; Count:=2
.Select
End With

Bonne soirée à tous.


C'est très bien, mais pourquoi Select ?

Set myRange = Selection.Range
ActiveDocument.Bookmarks.Add _
Name:="DestinataireComplet", Range:=myRange
myRange.MoveStart Unit:=wdWord; Count:=2
ActiveDocument.Bookmarks.Add _
Name:="DestinataireRéduit", Range:=myRange

--
A+


J'ai mis l'accent sur ce qui m'avait vraiment posé problème : le
MoveStart.
Sinon, j'utilise la selection pour me déplacer dans un tableau en
tabulant pour passer d'une cellule à la suivante.
Je parcours mon tableau en créant des signets qui porte le nom du
contenu de la première colonne et qui pointe sur le contenu de la
seconde colonne.

Merci de l'intérêt que tu as porté à mon problème.