chapitrage d'un document word en VBA

[madeleine]

Bonjour,
je cherche à contrôler le chapitrage d'un document word par rapport à un chapitrage standard. pour ce faire je fais une macro word qui ouvre chaque document à la suite, definit un "range" de tout le document et traite en boucle les chapitres trouvés par la fonction .GoTo(What:=wdGoToHeading, Which:=wdGoToNext).
cela fonctionne bien sauf dans le cas ou le titre se trouve dans une cellule de tableau : cela fait boucler la macro ! quelqu'un a une idée
un extract du code ci dessous :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Set Doctot = ActiveDocument.Content
With Doctot.Find
    .ClearFormatting
    .Wrap = Word.WdFindWrap.wdFindStop
    .Style = wdStyleHeading1
    If .Execute(FindText:="fiabilisation", Forward:=True, Wrap:=Word.WdFindWrap.wdFindStop, _
        Format:=True) = True Then
        'Affecter à TitreN le titre suivant (1ere lecture)
        Doctot.SetRange Start:=Doctot.Start, _
        End:=ActiveDocument.Content.End
        TitreN = Doctot.GoTo(What:=wdGoToHeading, Which:=wdGoToNext).Paragraphs(1)
        'définir la plage à partir de ce titreN (1ere lecture)
        Doctot.SetRange Start:=TitreN.Paragraphs(1).Range.Start, _
        End:=ActiveDocument.Content.End
Do While (TitreN.Style <> ActiveDocument.Styles(wdStyleHeading1) And cpt < 200)
        'Traitement controle du sous chapitre trouvé
...
        cpt = cpt + 1
        TitreN = Doctot.GoTo(What:=wdGoToHeading, Which:=wdGoToNext).Paragraphs(1)
        Doctot.SetRange Start:=TitreN.Paragraphs(1).Range.Start, _
        End:=ActiveDocument.Content.End
Loop

[madeleine]

le bypass que j'ai trouvé pour l'instant est d'ouvrir le document en lecture seule + le fermer sans sauvegarder (ceinture + bretelles ) et de modifier le style du titre traité pour le remettre en normal avant le goto(next). cela marche, mais c'est pas satisfaisant pour l'esprit...
mais utiliser word doit-il satisfaire l'esprit

[Heureux-oli]

Une possibilité serait de compter le nombre de tableaux de ton document, vérifier pour chaque tableau la présence de ton Titre1.

Code :

1
2
3
4
5
6
7
8
9
10
 
Dim oTbl As Table
Dim i As Integer
Dim j As Integer
 
i = ActiveDocument.Tables.Count
 
For j = 0 To i
    Set oTbl = ActiveDocument.Tables(j)
Next j

Je ne suis pas allé au bout du code, mais juste pour te donner l'idée.
Il faut ensuite compter par tableau le nombre de lignes et le nombre de colonnes, ensuite pour chaque tableau, parcourir toutes les cellules.

Si ce sont des textbox, c'est la collection Shapes qu'il faut explorer.