OVH Cloud OVH Cloud

Selection en VBA

1 réponse
Avatar
JLuc
Bonsoir les lecteurs,
J'ai un petit soucis a vous soumettre :
Avec Excel, je voudrais recuperer des infos dans des documents Word.
Dans ces documents, j'ai un tableau et dans une cellule, j'ai deux
signets avec des, comment dire..., des genres d'etiquettes. Ex. :

Destinataire : Xxxx
Société : Yyyy Zzzz

Donc un signet "vers" avant Xxxx, et un signet "societe" avant Yyyy
(rempli par macro). Ce que je voudrais arriver a faire, c'est
selectionner à partir de "societe" jusqu'a la fin de la ligne, donc
selectionner "Yyyy Zzzz" mais a chaque fois ca me selectionne le
contenu complet de la celulle.
J'ai essayer ca, mais sans succes :
oApp.Selection.MoveEnd (wdLine)
oApp.Selection.MoveEnd Count:=-1

Est ce que quelqu'un aurai une petite idee ?

Merci pour vos reponses

--
JLuc

1 réponse

Avatar
JLuc
Chercher plus, j'ai trouve !!!
oApp.Selection.GoTo What:=wdGoToBookmark, Name:="societe"
oApp.Selection.EndKey unit:=wdLine, Extend:=wdExtend
oApp.Selection.MoveLeft unit:=wdCharacter, Count:=1,
Extend:=wdExtend


JLuc avait énoncé :
Bonsoir les lecteurs,
J'ai un petit soucis a vous soumettre :
Avec Excel, je voudrais recuperer des infos dans des documents Word.
Dans ces documents, j'ai un tableau et dans une cellule, j'ai deux signets
avec des, comment dire..., des genres d'etiquettes. Ex. :

Destinataire : Xxxx
Société : Yyyy Zzzz

Donc un signet "vers" avant Xxxx, et un signet "societe" avant Yyyy
(rempli par macro). Ce que je voudrais arriver a faire, c'est selectionner à
partir de "societe" jusqu'a la fin de la ligne, donc selectionner "Yyyy Zzzz"
mais a chaque fois ca me selectionne le contenu complet de la celulle.
J'ai essayer ca, mais sans succes :
oApp.Selection.MoveEnd (wdLine)
oApp.Selection.MoveEnd Count:=-1

Est ce que quelqu'un aurai une petite idee ?

Merci pour vos reponses



--
JLuc