OVH Cloud OVH Cloud

Vérifier la position du curseur

4 réponses
Avatar
Joel
Bonjour à tous,

Est-il posible, en VBA, de s'assurer que le curseur est arrivé à l'endroit
où on lui a demandé d'aller (fin de document par exemple), et qu'il n'est
pas encore sur le "chemin".

En d'autres termes, je fais du transfert de données d'excel dans word, et il
arrive qu'une partie de mes infos se trouvent au milieu du document au lieu
d'être en fin de document, alors que j'ai bien envoyé la commande
Selection.EndKey 6

Vous en remerciant par avance,

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr

4 réponses

Avatar
Geo
Bonjour Joel


Bonjour à tous,

Est-il posible, en VBA, de s'assurer que le curseur est arrivé à
l'endroit où on lui a demandé d'aller (fin de document par exemple),
et qu'il n'est pas encore sur le "chemin".

En d'autres termes, je fais du transfert de données d'excel dans
word, et il arrive qu'une partie de mes infos se trouvent au milieu
du document au lieu d'être en fin de document, alors que j'ai bien
envoyé la commande Selection.EndKey 6


Pour aller à la fin du document le plus simple me parait d'utiliser le
signet prédéfini : EndOfDoc
ActiveDocument.Bookmarks("EndOfDoc").Select
ou
Selection.GoTo What:=wdGoToBookmark , Name:="EndOfDoc"-- A+

Avatar
Joel
Bnjour Geo;

Ce n'était pas ma question, mais merci quand-même ! et bonne journée...

La question ne concernait pas le comment faire pour arriver à la fin du
document, mais comment s'assurer que le curseur est positionné en fin de
document ? (tester la position du curseur...)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Geo" a écrit dans le message de
news:
Bonjour Joel


Bonjour à tous,

Est-il posible, en VBA, de s'assurer que le curseur est arrivé à
l'endroit où on lui a demandé d'aller (fin de document par exemple),
et qu'il n'est pas encore sur le "chemin".

En d'autres termes, je fais du transfert de données d'excel dans
word, et il arrive qu'une partie de mes infos se trouvent au milieu
du document au lieu d'être en fin de document, alors que j'ai bien
envoyé la commande Selection.EndKey 6


Pour aller à la fin du document le plus simple me parait d'utiliser le
signet prédéfini : EndOfDoc
ActiveDocument.Bookmarks("EndOfDoc").Select
ou
Selection.GoTo What:=wdGoToBookmark , Name:="EndOfDoc"-- A+




Avatar
geo
Bonjour Joel
-----Message d'origine-----
Bnjour Geo;

Ce n'était pas ma question, mais merci quand-même ! et
bonne journée...


La question ne concernait pas le comment faire pour
arriver à la fin du

document, mais comment s'assurer que le curseur est
positionné en fin de

document ? (tester la position du curseur...)


Bon, si tu y tiens :-)
Lorsqu'on déplace le point d'insertion de n caractères la
fonction retourne le nombre de caractères du déplacement
effectif.
Si le résultat est <n c'est qu'on est au bout (début ou
fin selon le sens) du document.
Pour savoir si tu es en fin de fichier tu déplaces de 1
caractère à droite, si le résultat est à 0, c'est que tu y
étais.
Autre possibilité, regarder si le point d'insertion est
inclus dans le signet prédéfini fin de doc précité.
A+

Avatar
Joel
Un grand merci pour le suivi, et la précision,

cela devrait faire l'affaire !

encore une fois bonne journée, et bon week-end

;-)


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"geo" a écrit dans le message de
news:2982401c4658a$736f6930$
Bonjour Joel
-----Message d'origine-----
Bnjour Geo;

Ce n'était pas ma question, mais merci quand-même ! et
bonne journée...


La question ne concernait pas le comment faire pour
arriver à la fin du

document, mais comment s'assurer que le curseur est
positionné en fin de

document ? (tester la position du curseur...)


Bon, si tu y tiens :-)
Lorsqu'on déplace le point d'insertion de n caractères la
fonction retourne le nombre de caractères du déplacement
effectif.
Si le résultat est <n c'est qu'on est au bout (début ou
fin selon le sens) du document.
Pour savoir si tu es en fin de fichier tu déplaces de 1
caractère à droite, si le résultat est à 0, c'est que tu y
étais.
Autre possibilité, regarder si le point d'insertion est
inclus dans le signet prédéfini fin de doc précité.
A+