Discussion :

[esigwald]

Bonjour,

J'ai document avec deux sections. Dans chacune des sections j'ai un pied de page dans lequel il y a deux ContentControls. J'ai une macro qui est censée mettre à jour ces controlcontents avec des valeurs (récupérées dans les CustomDocumentProperties). Après exécution, les Contentcontrols dans le premier pied de page sont mis à jour mais pas ceux dans le deuxième.
Au départ, les contentscontrols avait le même nom ( "FirstNameFooter" et "LastNameFooter") dans les deux pieds pages. Je les ai alors renommé ( "FirstNameFooter" et "LastNameFooter" dans le pied de page de la section 1 et "FirstNameFooterS2" et "LastNameFooterS2" dans le pied de page de la section 2) cela ne change rien.
En exécutant en pas à pas, dans la boucle "for each myContentControl", je ne vois jamais les contentcontrols "FirstNameFooterS2" et "LastNameFooterS2"
Le code est le suivant :

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
 
Dim myStoryRange As Range
Dim myContentControl As ContentControl
Dim sFirstName, sLastName As String
Dim dp As DocumentProperties
 
     For Each myStoryRanges In ActiveDocument.StoryRanges
        For Each myContentControl In myStoryRanges.ContentControls
            If InStr(myContentControl.Tag, "FirstName") Then
                myContentControl.Range.Text = sFirstName
            ElseIf InStr(myContentControl.Tag, "LastName") Then
                myContentControl.Range.Text = sLastName
            End If
        Next myContentControl
    Next myStoryRanges

Merci d'avance

Eric

[esigwald]

Il suffit de faire comme ceci :
en fait je vais chercher directement dans le pied page.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Set myStoryRanges = ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary).Range
    For Each myContentControl In myStoryRanges.ContentControls
        Debug.Print myContentControl.Tag
        If InStr(myContentControl.Tag, "FirstName") Then
            myContentControl.Range.Text = sFirstName
        ElseIf InStr(myContentControl.Tag, "LastName") Then
            myContentControl.Range.Text = sLastName
        End If
    Next myContentControl