Discussion :

[nenex27]

Bonjour,
Je débute en macro, je suis infirmier sur un projet de recherche et je recherche de l'aide pour une opération qui me paraissait simple, mais qui ,pour moi, est un casse tête.
J'ai une application métier qui me produit un document word, assez long.... Avec une successions d'informations se terminant par ": oui" ou ": non", j'aimerais pouvoir bénéficier d'une macro qui me supprimerais toutes les lignes (paragraphes) qui se terminent par non... Est-ce possible à votre avis?
Supprimer les ": non", c'est facile, mais supprimer tout ce qui précède je n'y arrive pas... help
Merci d'avance

[Invité]

Bonjour,

Avez-vous un fichier exemple sans données confidentielles ?

[nenex27]

Bonjour,

Avez-vous un fichier exemple sans données confidentielles ?

version d'essai.doc

Il n'y a aucune donnée confidentielle puisque c'est le rendu (sans les entetes) d'un patient fictif. Merci beaucoup. Certaines versions, lorsque le questionnaire est plus complet, peut inscrire jusqu'a 100 lignes qui se terminent par "non"

Je vous remercie beaucoup de vous pencher sur le sujet

[Invité]

A tester. Avant de supprimer, regardez ce que vous récupérez dans la fenêtre exécution (Ctrl-G), les lignes qui doivent disparaître dans le document apparaissent sur fond jaune.

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
30
31
32
33
34
35
 
Option Explicit
 
Sub SuppressionDesParagraphesNon()
 
Dim DocEnCours As Document
Dim I As Long
Dim Position As Integer
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
 
         For I = .Paragraphs.Count To 1 Step -1
 
             With .Paragraphs(I)
                  .Range.Select
                  Position = InStr(1, LCase(Selection.Range.Text), "non", vbTextCompare)
                  If Position > 0 Then
                     Debug.Print "Paragraphe : " & I & ", position " & Position & ", longueur : " & Len(Selection.Range.Text) & ", texte : " & Selection.Range.Text
 
                     If Len(Selection.Range.Text) - Position = 3 Then
                        .Range.HighlightColorIndex = wdYellow  ' Pour contrôle, si OK neutraliser la ligne avec ' en tête de ligne
                        '.Range.Delete   ' Si ok, enlever l'apostrophe en tête de ligne.
                     End If
 
                  End If
             End With
 
         Next I
 
    End With
 
    Set DocEnCours = Nothing
 
End Sub

[nenex27]

Je vous remercie infiniement, c'est top !!! Ca marche parfaitement ! Vous êtes un chef !

A tester. Avant de supprimer, regardez ce que vous récupérez dans la fenêtre exécution (Ctrl-G), les lignes qui doivent disparaître dans le document apparaissent sur fond jaune.

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
30
31
32
33
34
35
 
Option Explicit
 
Sub SuppressionDesParagraphesNon()
 
Dim DocEnCours As Document
Dim I As Long
Dim Position As Integer
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
 
         For I = .Paragraphs.Count To 1 Step -1
 
             With .Paragraphs(I)
                  .Range.Select
                  Position = InStr(1, LCase(Selection.Range.Text), "non", vbTextCompare)
                  If Position > 0 Then
                     Debug.Print "Paragraphe : " & I & ", position " & Position & ", longueur : " & Len(Selection.Range.Text) & ", texte : " & Selection.Range.Text
 
                     If Len(Selection.Range.Text) - Position = 3 Then
                        .Range.HighlightColorIndex = wdYellow  ' Pour contrôle, si OK neutraliser la ligne avec ' en tête de ligne
                        '.Range.Delete   ' Si ok, enlever l'apostrophe en tête de ligne.
                     End If
 
                  End If
             End With
 
         Next I
 
    End With
 
    Set DocEnCours = Nothing
 
End Sub