En tentant de répondre à une question sur le forum Excel, laquelle
demandait comment insérer un tableau, au point d'insertion, dans un
document Word par Automation.
Quelle ne fut pas ma surprise de constater que le support de l'objet
Selection, qui retourne le point d'insertion, est anémique, voire
inexistant par automation. Par contre le support de l'objet Range est
maintenu.
Maintenant, je cherche toujours, mais je suis sur le point
d'abandonner, comment retrouver le point d'insertion avec un objet
Range. On peut le promener au début ou à la fin du document, mais pour
l'utiliser là où il est, toujours rien trouvé.
Donc, si quelqu'un a une idée et consent à la partager, ce serait très
apprécié.
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
Anacoluthe
Bonjour Clément !
'Clément Marcotte' nous a écrit ...
Quelle ne fut pas ma surprise de constater que le support de l'objet Selection, qui retourne le point d'insertion, est anémique, voire inexistant par automation. Par contre le support de l'objet Range est maintenu.
Si ta Selection se balade (attention à ne pas confondre avec le Selection XL en référençant bien l'application Word), tu commences par mémoriser ta Selection dans un Range (un Range Word) Dim Ici As Word.Range Set Ici = AppWord.Selection.Range Ici.Collapse ' au besoin pour n'avoir qu'un point d'insertion puis tu utilises ton Range Ici à la place de Selection A+
Anacoluthe « La vraie question est : pourquoi sélectionner? Et je ne connais pas la réponse. » - Albert JACQUARD
Bonjour Clément !
'Clément Marcotte' nous a écrit ...
Quelle ne fut pas ma surprise de constater que le support de l'objet
Selection, qui retourne le point d'insertion, est anémique, voire
inexistant par automation. Par contre le support de l'objet Range est
maintenu.
Si ta Selection se balade (attention à ne pas confondre
avec le Selection XL en référençant bien l'application Word), tu
commences par mémoriser ta Selection dans un Range (un Range Word)
Dim Ici As Word.Range
Set Ici = AppWord.Selection.Range
Ici.Collapse ' au besoin pour n'avoir qu'un point d'insertion
puis tu utilises ton Range Ici à la place de Selection
A+
Anacoluthe
« La vraie question est : pourquoi sélectionner?
Et je ne connais pas la réponse. »
- Albert JACQUARD
Quelle ne fut pas ma surprise de constater que le support de l'objet Selection, qui retourne le point d'insertion, est anémique, voire inexistant par automation. Par contre le support de l'objet Range est maintenu.
Si ta Selection se balade (attention à ne pas confondre avec le Selection XL en référençant bien l'application Word), tu commences par mémoriser ta Selection dans un Range (un Range Word) Dim Ici As Word.Range Set Ici = AppWord.Selection.Range Ici.Collapse ' au besoin pour n'avoir qu'un point d'insertion puis tu utilises ton Range Ici à la place de Selection A+
Anacoluthe « La vraie question est : pourquoi sélectionner? Et je ne connais pas la réponse. » - Albert JACQUARD
Clément Marcotte
Merci, j'essaie cela plus tard. (Mais comme le questionneur du forum Excel a déjà eu une réponse qui fait son bonheur; cela peut attendre un peu.)
P.S. C'est vraiment la "SElection" de Word. "Anacoluthe" a écrit dans le message de news:
Bonjour Clément !
'Clément Marcotte' nous a écrit ...
Quelle ne fut pas ma surprise de constater que le support de l'objet
Selection, qui retourne le point d'insertion, est anémique, voire inexistant par automation. Par contre le support de l'objet Range est
maintenu.
Si ta Selection se balade (attention à ne pas confondre avec le Selection XL en référençant bien l'application Word), tu commences par mémoriser ta Selection dans un Range (un Range Word) Dim Ici As Word.Range Set Ici = AppWord.Selection.Range Ici.Collapse ' au besoin pour n'avoir qu'un point d'insertion puis tu utilises ton Range Ici à la place de Selection A+
Anacoluthe « La vraie question est : pourquoi sélectionner? Et je ne connais pas la réponse. » - Albert JACQUARD
Merci, j'essaie cela plus tard. (Mais comme le questionneur du forum
Excel a déjà eu une réponse qui fait son bonheur; cela peut attendre
un peu.)
P.S. C'est vraiment la "SElection" de Word.
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news:udNxAUBGFHA.2756@TK2MSFTNGP15.phx.gbl...
Bonjour Clément !
'Clément Marcotte' nous a écrit ...
Quelle ne fut pas ma surprise de constater que le support de
l'objet
Selection, qui retourne le point d'insertion, est anémique, voire
inexistant par automation. Par contre le support de l'objet Range
est
maintenu.
Si ta Selection se balade (attention à ne pas confondre
avec le Selection XL en référençant bien l'application Word), tu
commences par mémoriser ta Selection dans un Range (un Range Word)
Dim Ici As Word.Range
Set Ici = AppWord.Selection.Range
Ici.Collapse ' au besoin pour n'avoir qu'un point d'insertion
puis tu utilises ton Range Ici à la place de Selection
A+
Anacoluthe
« La vraie question est : pourquoi sélectionner?
Et je ne connais pas la réponse. »
- Albert JACQUARD
Merci, j'essaie cela plus tard. (Mais comme le questionneur du forum Excel a déjà eu une réponse qui fait son bonheur; cela peut attendre un peu.)
P.S. C'est vraiment la "SElection" de Word. "Anacoluthe" a écrit dans le message de news:
Bonjour Clément !
'Clément Marcotte' nous a écrit ...
Quelle ne fut pas ma surprise de constater que le support de l'objet
Selection, qui retourne le point d'insertion, est anémique, voire inexistant par automation. Par contre le support de l'objet Range est
maintenu.
Si ta Selection se balade (attention à ne pas confondre avec le Selection XL en référençant bien l'application Word), tu commences par mémoriser ta Selection dans un Range (un Range Word) Dim Ici As Word.Range Set Ici = AppWord.Selection.Range Ici.Collapse ' au besoin pour n'avoir qu'un point d'insertion puis tu utilises ton Range Ici à la place de Selection A+
Anacoluthe « La vraie question est : pourquoi sélectionner? Et je ne connais pas la réponse. » - Albert JACQUARD
