Supprimer paragraphe à partir d'une selection de la table des matière

Version imprimable

19/02/2018, 08h57
Benjamin79

Supprimer paragraphe à partir d'une selection de la table des matière

Bonjour,

Je débute sur VBA et je suis confronté à un souci sans réponse.

Voici ce que je voudrais faire :

J'ai un document, un cahier des charges global pour une usine.
Chaque fois qu'il faut le donner, il me faut pas tous le document, seulement les parties correspondant à la machine.

Pour cela, j'ai commencé à faire un doc Excel ou je sélectionne mes paragraphes et une macro vient créer un doc Word avec ma sélection. Les inconvénients de cette solution, c'est que tous les effets de texte ne sont pas pris en charge, et en plus, le document aurait comporté des photos. Donc j'ai abandonné cette solution.

J'ai donc pensé à faire une macro sur Word venant, selon ma sélection, supprimer des paragraphes du document. Pour cela, il faut supprimer des paragraphes accessibles par la table des matières. Sauf que je ne sais pas comment faire.
Mes recherches sur internet ne m'ont pas beaucoup aidé...

Merci d'avance de votre aide !!

Citation:

Envoyé par Benjamin79

Bonjour,

Le code VBA ci-dessous alimente une matrice avec les paragraphes de la première table des matières d'un document. La table des matières est basée sur ce style.
Pièce jointe 352365

Le principe est de spliter chaque paragraphe pour récupérer le texte du paragraphe. Sur mon poste, le caractère de séparation est le Chr(9). Si ce n'est pas ce caractère sur votre poste, le code neutralisé vous permettra de trouver le caractère de séparation.

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
30
31
32
33
34
35
36
37
 
Sub ChargerUneMatriceDesParagraphesDUneTM()
 
Dim DocEnCours As Document
Dim I As Integer, J As Integer, K As Integer, L As Integer
Dim TitreParagraphe As Variant
Dim MatriceDesTitres() As Variant
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
        If .TablesOfContents.Count > 0 Then
           I = 0
           ReDim MatriceDesTitres(.TablesOfContents(1).Range.Paragraphs.Count - 1, 1)
           For J = .TablesOfContents(1).Range.Paragraphs.Count To 1 Step -1
               TitreParagraphe = Split(.TablesOfContents(1).Range.Paragraphs(J).Range.Text, Chr(9))
                     'If J = 1 Then
                     '   For L = 1 To Len(Selection.Range)
                     '       For K = 0 To 255
                     '           If Mid(Selection.Range.Text, L, 1) = Chr(K) Then
                     '              Debug.Print "L : " & Mid(Selection.Range.Text, L, 1) & " : " & K
                     '           End If
                     '        Next K
                     '   Next L
                     ' End If
                      MatriceDesTitres(I, 0) = Trim(TitreParagraphe(0))
                   '   Debug.Print TitreParagraphe(0)   ' .TablesOfContents(I).Range.Paragraphs(J).Range.Text
                      I = I + 1
            Next J
        End If
    End With
 
    For I = LBound(MatriceDesTitres, 1) To UBound(MatriceDesTitres, 1)
        Debug.Print MatriceDesTitres(I, 0)
    Next I
    Set DocEnCours = Nothing
 
End Sub

Le principe ensuite serait de croiser et de compléter cette matrice avec celle des paragraphes à supprimer et enfin balayer le document dans l'ordre de cette matrice.

De mon point de vue, il est plus simple de gérer la sélection depuis Excel et ensuite de procéder à la sélection et à la destruction des paragraphes (dans l'ordre inverse) dans une copie du document.

19/02/2018, 10h51
Benjamin79

1 pièce(s) jointe(s)

Supprimer paragraphe à partir d'une selection de la table des matière

Je débute juste sur VBA, je ne comprend pas trop le code que vous m'avez fournis.
On vient ajouter le texte dans la matrice si je comprend bien ?

C'est vrai que c'est pas idiot d'utiliser Excel et ouvrir le document Word !

Voici comment mon documents est structurer :

Pièce jointe 352367

Il ne serait pas possible d'aller chercher dans le document notre paragraphe par sa dénomination et le supprimer.
Par exemple, pour "Eau", aller chercher "1.1.2. Eau" et supprimer tout ce qui est dedans ?
19/02/2018, 11h00
Invité

Citation:

Envoyé par Benjamin79

Il ne serait pas possible d'aller chercher dans le document notre paragraphe par sa dénomination et le supprimer.
Par exemple, pour "Eau", aller chercher "1.1.2. Eau" et supprimer tout ce qui est dedans ?

Ma réponse correspondait à votre demande. Comme indiqué, c'est avec Excel que j'aurais géré cette suppression.

Pour répondre à votre dernière remarque, il faut ramener les paragraphes de la TM du document dans Excel, sélectionner les paragraphes et supprimer les paragraphes dans l'ordre inverse dans le document.
19/02/2018, 23h30
clementmarcotte

Bonjour,

Citation:

Envoyé par Benjamin79

Bonjour,

J'ai donc pensé à faire une macro sur Word venant, selon ma sélection, supprimer des paragraphes du document. Pour cela, il faut supprimer des paragraphes accessibles par la table des matières. Sauf que je ne sais pas comment faire.

Merci d'avance de votre aide !!

Même pas besoin de macro. Tu utilises le Volet de navigation, tu fais un clic-droit sur ton titre (Utilises les styles) et tu choisis supprimer.

Pour écrire tes documents, regarde là.
20/02/2018, 07h45
Benjamin79

Citation:

Envoyé par clementmarcotte

Même pas besoin de macro. Tu utilises le Volet de navigation, tu fais un clic-droit sur ton titre (Utilises les styles) et tu choisis supprimer.

Pour écrire tes documents, regarde là.

Oui, je sais le faire comme ça mais mon but est de faire un programme qui vient supprimer plusieurs sous paragraphe en 1 clic, selon les besoins du cahier des charges, il peut y avoir une multitude de sous paragraphe à supprimer et un peu partout dans le document...

J'ai réussi a faire un truc avec les signets, pas l'idéal lors d'une modification de documents de base mais ça marche...