Bonjour le forum,

Voila j'ai besoin de sélectionner les paragraphes entre deux titres a fin de les copier
J’ai commencé avec ce code la

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
21
22
23
24
25
26
27
28
29
Public Sub recherchepara()
 
Selection.ClearFormatting
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Cible As Paragraph
Dim montxt As String
Dim k As Long
k = 1
 
    Set WordApp = New Word.Application
    WordApp.Visible = True
 
    Set WordDoc = WordApp.Documents.Open("C:\essai.doc")
    WordDoc.Bookmarks("\StartOfDoc").Select
 
    For Each Cible In WordDoc.Paragraphs 'parcourir tous les paragraphes
 
       If Cible.Style = "Titre 1" Then
        WordDoc.Paragraphs(k + 1).Range.Select
        Debug.Print Cible.Range.Text
        montxt = montxt + Selection.Text
        End If
 
        k = k + 1
    Next Cible
    Me.Textpara.Text = montxt
End Sub
mais je ne sais pas comment faire

help me