Discussion :

[gillou13]

Bonjour à tous,

contexte :
Je doit réaliser un outils pour remplacer automatiquement les logos et pied de pages (des images dans les deux cas) sur des 'modèles' de documents.
ces modèles ont été réalisés par les utilisateurs.

J'aimerai réaliser un algo du type :
si l'entête 1ère page (pour l'exemple) est activé et a une image alors : Je remplace l'image

Pour la 1ère condition pas de problème :

Code :

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

1
2
If doc.Sections(1).Headers(wdHeaderFooterFirstPage).Exists = True Then
...

Par contre je n'arrive pas à identifier dans la collection shapes (partagés par tous les headers) l'image utilisé dans le header spécifié.

exemple : Dans un document de test avec les 3 headers activé et 1 image dans chaqu'un, mon code suivante renvoi la même liste :

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
Sub testMoi()
    Dim i As Integer
    Dim doc As Word.Document
    Dim collShp As Shapes
    Dim shp As Shape
 
    Set doc = ActiveDocument
 
    Debug.Print "wdHeaderFooterEvenPages : "
    For Each shp In doc.Sections(1).Headers(wdHeaderFooterEvenPages).Shapes
        Debug.Print shp.name
    Next
 
    Debug.Print "wdHeaderFooterFirstPage : "
    For Each shp In doc.Sections(1).Headers(wdHeaderFooterFirstPage).Shapes
        Debug.Print shp.name
    Next
 
    Debug.Print "wdHeaderFooterPrimary : "
    For Each shp In doc.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
        Debug.Print shp.name
    Next
 
End Sub

Quelqu'un aurais une idées sur la marche à suivre ?

Merci d'avance pour votre lecture et pour votre aide

[Heureux-oli]

Salut,

Si tu fais un count, combien de shapes sont comptés ?
Si c'est 0, essaie avec des InLineShapes

Perso, je pense que c'est plus simple d'avoir des Templates qui sont remplis avec des images et mettre le texte sur des signets ensuite que de devoir créer le document de toute pièce.

Pour le choix du modèle, c'est assez simple, juste un UserForm avec le choix.

[gillou13]

Heureux-oli,

Dans mon document de test/exemple, les trois Headers ont shapes.count = 3.

Pour information, les inLineShapes sont déjà pris en compte par un autre scripte.
un .range.inLineChape sur chaque headers et je connais leur emplacement.

Pour plus d'information sur ce document :
l'entête de la 1ère page > un logo (nom = "LOGO_A")
le pied le page de la 1ère page > une autre image (nom = "PIED")
l'entête des pages impaire > un logo (identique à la 1ère page nom = "LOGO_B")

Je suis d'accord avec toi que l'utilisation de templates prédéfinis pour tous le monde aurai été une solution si elle avait été mise en place du départ.
Mais cela ne s'applique pas dans mon cas. Les documents que je dois traiter ont des structures hétérogènes (et pas qu'au niveau du paramètrage des entêtes/pieds de pages). Je dois faire sans.
Mon but est de conserver leur structure mais remplacer les images par des nouvelles.

Pour en revenir à mon document de test et mon script en cours de création :

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
 
Public Sub remplacerImg(ByRef wdoc As Word.Document)
    Dim tmpSec As Word.Section
    Dim tmpHeader As Word.HeaderFooter
    Dim lstDelete As String
    Dim i As Integer
 
    For Each tmpSec In wdoc.Sections
        For Each tmpHeader In tmpSec.Headers
 
            For i = tmpHeader.Shapes.Count To 1 Step -1
                If estLogo(tmpHeader.Shapes(i)) Then
                    Call ajouterNewLogo(tmpHeader.Shapes)
                    'TODO : supprimer les anciens logos
                End If
                If estPied(tmpHeader.Shapes(i)) Then
                    Call ajouterNewPied(tmpHeader.Shapes)
                    'TODO : supprimer les anciens Pied
                End If
            Next i
        Next tmpHeader
    Next tmpSec
 
End Sub

Quand je lance cette fonction sur mon document, j'obtiens les deux logos et l'image du pied de pages sur toutes les pages en plusieurs fois.

Dans mes rèves les plus fou, j'aimerai créer une fonction du type :
function shpEstPresent( byref shp as Word.Shape, byref entete as Word.HeaderFooter) as boolean


Merci pour ta réponse

[gillou13]

Bonjour à tous,

Je viens de trouver la solution à mon problème d'identification des images contenue dans les entêtes et pied de page.

Je m'obstinai à identifier les images dans la collection :
ActiveDocument.Sections(1).headers(wdHeaderFooterFirstPage).Shapes
qui comprend TOUTES les formes des headers et footers. (dans mon cas .count = 3 toutes les images de mon documents)

Alors que : ActiveDocument.Sections(i).headers(wdHeaderFooterFirstPage).Range.ShapeRange ne comporte que les formes contenu dans l'entête spécifiée. (.count = 1)

Merci à tous.