VBA_WORD Sélectionner de plusieurs paragraphes entre deux titres

Version imprimable

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:

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 :roll:

help me ;)

20/04/2010, 20h09
Heureux-oli

Salut,

Petite question, que souhaites-tu faire ?

Souhaites-tu copier le texte entre tous les titres ou simplement entre deux titres précis ?

si c'est entre tous les titres de niveau 1, ne serait-il pas plus simple de supprimer tous les titres 1 ?
21/04/2010, 09h06
nbs_T

Bonjour Heureux-oli ,

Voila ce que je voudrais faire exactement :

Je récupère un titre avec un champ texte.
Je fais une recherche sur les titres dans un document (n’importe quel niveau).
Si la recherche est bonne, il faut que je sélectionne le (ou les)paragraphe qui suit le titre (et donc qui appartient au sous titre) afin de le copier.
(C’est pour ca que je cherche à sélectionner le texte entre deux titres).
:?

Cdlt NB,
21/04/2010, 09h41
Heureux-oli

Salut,

Le texte que tu recherches est-il rigoureusement identique ?
Cette information va conditionner le mode de recherche.
soit on fait une recherche à l'aide de la fonction de recherche de Word, soit on fait une comparaison du contenu de tous les paragraphes.
Lorsque la recherche est fructueuse, on place un signet de début, on fait une boucle sur les paragraphes pour trouver le titre suivant, on place un signet de fin, on sélectionne la plage de données entre les deux titres et on peut ensuite copier le contenu.