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
mais je ne sais pas comment faire
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
help me
Partager