Discussion :

[c.piette]

Bonjour à tous,


J'espère que je pose la question au bon endroit. Sorry si ce n'est pas le cas.

En fait je pilote word depuis Excel. J'aimerais insérer une liste numérotée dans mon texte. Pour ça, je cherche à récupérer le Range de tous le texte que je veux mettre en forme avec un Start - End...


Bref, je voudrais que mon Start soit le Range de la sélection actuel ... Comment récupérer le Range de la sélection actuel ? J'ai testé ce bout de code mais ça n'a pas fonctionné ... Quelqu'un aurait une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim DebutDeLaListe as Range
Set DebutDeLaListe = WordApp.Selection.Range

Je vous remercie d'avance pour l'aide ! : )

[joe.levrai]

Bonjour,

la question a plutôt sa place dans le forum VBA Word

voici par exemple, à adapter dans un contexte d'automation via Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim DebutDeLaListe As Range
Set DebutDeLaListe = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)
MsgBox DebutDeLaListe.Text

[c.piette]

Re Joe,


Merci pour ta réponse, je m'en suis inspiré pour tester ça mais avec des Bookmarks... Par contre c'est toujours la même chose, j'ai toujours le même message d'erreur et je n'arrive pas à comprendre ... Je reçois le message d'erreur: incompatibilité de type sur la ligne de "DebutDeLaListe" que j'ai pourtant bien défini comme un range...


Voilà mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim DebutDeLaListe As Range, FinDeLaListe As Range, RangeDeTouteLaListe As Range
 
WordDoc.Bookmarks.Add "DonneesGlobalesInterventionsFin", WordApp.Selection.Range
 
 
Set DebutDeLaListe = WordDoc.Range(Start:=WordDoc.Bookmarks("DonneesGlobalesInterventionsDebut").Range.Start, _
                                End:=WordDoc.Bookmarks("DonneesGlobalesInterventionsFin").Range.End)
 
MsgBox DebutDeLaListe.Text

Que faire ? Je suis vraiment perdu là : (

[joe.levrai]

Ca t'apprendra à mal poser ta question

par définition un Bookmark est un Range dans ton document
donc son début c'est Start, et sa fin c'est End ... sans avoir besoin de l'affecter à une quelconque propriété range (contrairement à Selection)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With WordDoc
    Set DebutDeLaListe = .Range(Start:=.Bookmarks("DonneesGlobalesInterventionsDebut").Start, _
                                End:=.Bookmarks("DonneesGlobalesInterventionsFin").End)
End With
 
MsgBox DebutDeLaListe.Text

[c.piette]

J'ai un "incompatibilité de type" encore

Comment ça se fait ?

[joe.levrai]

prend un fichier word vierge

écrit toto en ligne 1 et tata en ligne 2

sélectionne toto et insère un signet appelé "début"
sélectionne tata

lance ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ii()
Dim WordDoc As Document
Dim Book1 As Range
Dim Book2 As Range
Dim MaSelection As Range
 
Set WordDoc = ActiveDocument
 
With WordDoc
    .Bookmarks.Add "fin", Selection
    Set Book1 = .Bookmarks("debut").Range
    Set Book2 = .Bookmarks("fin").Range
 
    Set MaSelection = .Range(Start:=Book1.Start, _
                               End:=Book2.End)
End With
 
MsgBox MaSelection.Text
 
End Sub

j'ai un message

toto
tata