Discussion :

[jeanluc0]

Bonjour à tous,

j'ai un document word de plusieurs centaines de pages et j'aimerais savoir s'il est possible d'extraire que certaines lignes du document. Je fournis un exemple abrégé du document original:

Les lignes que j'aimerais conserver dans le document source ont les chaines de mots suivants:

CWTO
=NEW=
SEVERE THUNDERSTORM WATCH FOR:
SEVERE THUNDERSTORM WARNING FOR:

Voilà,
je vous remercie
Jean-Luc

[Heureux-oli]

Salut,

Pourquoi les extraire si ce sont celles que tu souhaites garder ?

Supprime toutes les lignes qui ne commencent pas par les mots souhaités.

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
 
Sub SupprimerPAra()
Dim pAra As Paragraph
 
 
For Each pAra In ActiveDocument.Paragraphs
    If Not Mid(pAra.Range.Text, 8, 4) = "CWTO" Then
        'Debug.Print "OK 01" & " --- " & Not Mid(pAra.Range.Text, 8, 4) = "CWTO"
 
        If Not Left(pAra.Range.Text, 32) = "SEVERE THUNDERSTORM WARNING FOR:" Then
                'Debug.Print "OK 02"
            If Not Left(pAra.Range.Text, 30) = "SEVERE THUNDERSTORM WATCH FOR:" Then
                pAra.Range.Delete
            End If
        End If
    End If
 
 
 
Next pAra
 
 
End Sub

[jeanluc0]

Bonjour Olivier,

j'ai réussi à faire fonctionner la macro (ma première avec Word). La macro semble prometteuse (super rapide) sauf que je voudrais aussi conserver toutes les lignes qui commencent avec: =NEW=

J'ai tenté d'ajouter quelques lignes de codes à votre VBA:

Code :

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

1
2
3
For Each pAra In ActiveDocument.Paragraphs
    If Not Mid(pAra.Range.Text, 5) = "=NEW= " Then
        'Debug.Print "OK 02"

mais le résultat a été le même. Suggestion svp.

Merci
Jean-Luc
PS: Vos références sur VBA sont fort appréciées.

[jeanluc0]

Bonjour,

j'ai finalement saisi mon erreur dans l'ajout. J'aurais plutôt dû écrire:

Code :

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

1
2
For Each pAra In ActiveDocument.Paragraphs
    If Not Mid(pAra.Range.Text, 1, 5) = "=NEW=" Then

Tout fonctionne bien maintenant.
Merci encore
Jean-Luc

[Heureux-oli]

Salut,

Mid doit prendre trois arguments, le texte, le départ dans le texte et le nombre de caractères à prendre.