Liste des champs de publipostage

**vianney972** · 08/07/2017, 22h32

Bonjour,
J'aimerais savoir s'il est possible par programme de lister et récupérer la liste des champs de publipostage.
En effet comme mes clients font leurs documents suivant le besoin, il faudrait que je prépare le fichier de données avec les champs utiles et non pas (plus) les 4000 champs qu'ils peuvent avoir accès.
Merci d'avance,
Vianney

**vianney972** · 09/07/2017, 02h00

Je m'auto-réponds ... j'ai un peu avancé

Je récupère le nombre de champs : nombre_fileds est un entier=word>>activedocument>>mailmerge>>fields>>count()

Maintenant j'essaye de récupérer le nom des champs, mais cela ne fonctionne pas :
nom_field est une chaîne=word>>activedocument>>mailmerge>>fields(boucle_signet)>>code
ou
nom_field est une chaîne=word>>activedocument>>mailmerge>>item(boucle_signet)

Merci d'avance pour vos lumières

**vianney972** · 09/07/2017, 11h00

Bonjour,

Je m'auto-réponds pour donner la solution

word>>activedocument>>mailmerge>>fields>>count() ==> donner le nombre
word>>activedocument>>mailmerge>>fields(boucle_field)>>code>>text ==> on boucle pour avoir le nom. ATTENTION : il y a devant le "mergefield"

Désolé pour le dérangement,

**vianney972** · 12/03/2020, 13h56

Bonjour,
Je réactive ma demande de 2017 (déjà).

Le système fonctionne bien mais pour certains champs ce n'est pas possible.
En effet quand les champs sont dans des zones de textes (et pas tous) la récupération ne fonctionne pas.

Si quelqu'un avait une petite idée ..
Merci d'avance
Vianney

Invité · 12/03/2020, 14h11

Envoyé par vianney972

Bonjour,

Quel est votre code et avez-vous un exemple qui ne marche pas ?

**vianney972** · 12/03/2020, 20h48

Bonjour,

Par exemple un champ dans l'entête/pied de page ainsi qu'un champ dans une zone texte (insertion/zone de texte/zone de texte simple).

Le code est :

Code Windev :

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

1
2
3
4
5
6
7
8
				nombre_fields est un entier=word>>activedocument>>mailmerge>>fields>>count()
				POUR boucle_field=1 _À_ nombre_fields
					nom_field est une chaîne=SansEspace(Remplace(word>>activedocument>>mailmerge>>fields(boucle_field)>>code>>text,"MERGEFIELD",""))
					nom_field=Remplace(nom_field,"""","")
					nom_field=SansEspace(Remplace(nom_field,"\* MERGEFORMAT",""))
					nom_field=SansEspace(ExtraitChaîne(nom_field,1," "))
					trace(nom_field)
				FIN

Merci d'avance,

Invité · 13/03/2020, 06h46

Envoyé par vianney972

Bonjour,

Si certains champs sont dans les en-têtes ou les pieds de page, il faut d'abord accéder à ces parties.
Sinon, avez-vous un fichier exemple contenant ce que vous n'arrivez pas à identifier ?
Merci d'expliquer ce sur quoi vous butez.

**vianney972** · 13/03/2020, 12h54

Bonjour,

Ci joint un fichier posant problème.
Merci

Vianney

Invité · 13/03/2020, 14h19

Envoyé par vianney972

Pour lire le contenu de la matrice : Alt-G pour accéder à la fenêtre exécution, ou utiliser les Msgbox en place.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Option Explicit
 
 
Sub DenombrerLesChamps()
 
Dim I As Integer, J As Integer, IndexMatrice As Integer
Dim MatriceChamps() As Variant
 
    With ActiveDocument
 
         IndexMatrice = 0
         For I = 1 To .Shapes.Count
                With .Shapes(I)
                     If .TextFrame.HasText = True Then
                        With .TextFrame.TextRange
                           If .Fields.Count > 0 Then
                              For J = 1 To .Fields.Count
                                   .Fields(J).Select
                                   ReDim Preserve MatriceChamps(1, IndexMatrice)
                                   MatriceChamps(0, IndexMatrice) = Selection.Range.Text
                                   MatriceChamps(1, IndexMatrice) = ActiveDocument.Shapes(I).Name
                                   IndexMatrice = IndexMatrice + 1
                                   'MsgBox Selection.Range.Text
                              Next J
                           End If
                        End With
                     End If
                End With
         Next I
 
         With .Sections(1).Footers(1)
                 If .Exists = True Then
                     If .Range.Fields.Count > 0 Then
                        For I = 1 To .Range.Fields.Count
                            .Range.Fields(I).Select
                            ReDim Preserve MatriceChamps(1, IndexMatrice)
                            MatriceChamps(0, IndexMatrice) = Selection.Range.Text
                            MatriceChamps(1, IndexMatrice) = "Pied de page section 1"
                            IndexMatrice = IndexMatrice + 1
                            'MsgBox Selection.Range.Text
                        Next I
                     End If
                End If
        End With
    End With
 
 
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
 
    ' Restitution :  Alt-G pour accéder à la fenêtre exécution
    '---------------------------------------------------------
    For IndexMatrice = LBound(MatriceChamps, 2) To UBound(MatriceChamps, 2)
        Debug.Print "Nom du champ : " & MatriceChamps(0, IndexMatrice) & ", emplacement : " & MatriceChamps(1, IndexMatrice)
    Next IndexMatrice
 
 
End Sub

**vianney972** · 13/03/2020, 22h16

Bonjour,

Je vais étudier ... et transcrire en windev ce code.
Merci beaucoup,

Vianney

**vianney972** · 14/03/2020, 21h29

Bonjour,
MERCI Eric ... cela fonctionne au top.

Voici le code pour les windeviens ...

Code WinDev :

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
36
37
				nombre_shapes est un entier=word>>activedocument>>shapes>>count()
				POUR boucle_shapes=1 _À_ nombre_shapes => dans les champs texte
					nombre_fields_shapes est un entier=word>>activedocument>>shapes(boucle_shapes)>>textframe>>textrange>>fields>>count()
					POUR boucle_fields_shapes=1 _À_ nombre_fields_shapes
						nom_field_shapes est une chaîne=SansEspace(Remplace(word>>activedocument>>shapes(boucle_shapes)>>textframe>>textrange>>fields(boucle_fields_shapes)>>code>>text,"MERGEFIELD",""))
						sql_requete_recherchezone_fusion_total="select * from zone_fusion_total where "+recherche_preparation("nom_zone_fusion",ExtraitChaîne(nom_field_shapes,1," "),"","")
						HExécuteRequêteSQL(sql_source_recherche_zone_fusion_total,la_connexion,hRequêteSansCorrection,sql_requete_recherchezone_fusion_total)
						HLitPremier(sql_source_recherche_zone_fusion_total)
						SI ChaîneFormate(ExtraitChaîne(nom_field_shapes,1," "),ccMinuscule)=ChaîneFormate(sql_source_recherche_zone_fusion_total.nom_zone_fusion,ccMinuscule) ALORS => on vérifie que le champ est accepté
							SI analyse_table_champ(nom_field_shapes)=Faux ALORS TableAjouteLigne(table_zone_pdf,nom_field_shapes,"") => on vérifie que le champ n'est pas encore présent
						FIN
					FIN
				FIN
				nombre_section est un entier=word>>activedocument>>sections(1)>>footers(1)>>range>>fields>>count()
				POUR boucle_section_fields=1 _À_ nombre_section => dans l'entête/pied de page
					nom_field_sections est une chaîne=SansEspace(Remplace(word>>activedocument>>sections(1)>>footers(1)>>range>>fields(boucle_section_fields)>>code>>text,"MERGEFIELD",""))
					sql_requete_recherchezone_fusion_total="select * from zone_fusion_total where "+recherche_preparation("nom_zone_fusion",ExtraitChaîne(nom_field_sections,1," "),"","")
					HExécuteRequêteSQL(sql_source_recherche_zone_fusion_total,la_connexion,hRequêteSansCorrection,sql_requete_recherchezone_fusion_total)
					HLitPremier(sql_source_recherche_zone_fusion_total)
					SI ChaîneFormate(ExtraitChaîne(nom_field_sections,1," "),ccMinuscule)=ChaîneFormate(sql_source_recherche_zone_fusion_total.nom_zone_fusion,ccMinuscule) ALORS
						SI analyse_table_champ(nom_field_sections)=Faux ALORS TableAjouteLigne(table_zone_pdf,nom_field_sections,"")
					FIN
				FIN
				nombre_fields est un entier=word>>activedocument>>mailmerge>>fields>>count()
				POUR boucle_field=1 _À_ nombre_fields => dans le reste du document
					nom_field est une chaîne=SansEspace(Remplace(word>>activedocument>>mailmerge>>fields(boucle_field)>>code>>text,"MERGEFIELD",""))
					SI recherche_parametres_generaux("dossier_fusion_trace","N","","FUSION")="O" ALORS Trace(word>>activedocument>>mailmerge>>fields(boucle_field)>>code>>text)
					nom_field=Remplace(nom_field,"""","")
					nom_field=SansEspace(Remplace(nom_field,"\* MERGEFORMAT",""))
					nom_field=SansEspace(ExtraitChaîne(nom_field,1," "))
					sql_requete_recherchezone_fusion_total="select * from zone_fusion_total where "+recherche_preparation("nom_zone_fusion",ExtraitChaîne(nom_field,1," "),"","")
					HExécuteRequêteSQL(sql_source_recherche_zone_fusion_total,la_connexion,hRequêteSansCorrection,sql_requete_recherchezone_fusion_total)
					HLitPremier(sql_source_recherche_zone_fusion_total)
					SI ChaîneFormate(ExtraitChaîne(nom_field,1," "),ccMinuscule)=ChaîneFormate(sql_source_recherche_zone_fusion_total.nom_zone_fusion,ccMinuscule) ALORS
						SI analyse_table_champ(nom_field)=Faux ALORS TableAjouteLigne(table_zone_pdf,nom_field,"")
					FIN
				FIN

Encore merci, et bonne fin de week end
Vianney

**vianney972** · 16/03/2020, 22h21

Bonsoir 'pour moi), bonjour (mardi matin),

Et zut, je pensais que tout étais résolu mais un collaborateur a testé un autre fichier ... et plantage.
Je planche mais je ne vois pas.
Et oui, si dans un champ il y a une image cela ne fonctionne plus, voir le fichier joint ...

Suis je pas au top, koko va au rhum en ce jour du chti'punch day ?

Merci d'avance,

Invité · 17/03/2020, 05h19

Envoyé par vianney972

A tester.

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
 
Sub DenombrerLesImages()
 
Dim I As Integer, J As Integer, IndexMatrice As Integer
Dim MatriceChamps() As Variant
Dim MonImage As PictureFormat
 
    With ActiveDocument
 
         IndexMatrice = 0
         For I = 1 To .Shapes.Count
             With .Shapes(I)
                  If .Type = 13 Then
                     ReDim Preserve MatriceChamps(1, IndexMatrice)
                     MatriceChamps(0, IndexMatrice) = .Name
                     MatriceChamps(1, IndexMatrice) = ActiveDocument.Shapes(I).Name
                     IndexMatrice = IndexMatrice + 1
                     MsgBox .Name
                  End If
            End With
        Next I
    End With
 
 
    ' Restitution :  Alt-G pour accéder à la fenêtre exécution
    '---------------------------------------------------------
    If IndexMatrice > 0 Then
       For IndexMatrice = LBound(MatriceChamps, 2) To UBound(MatriceChamps, 2)
           Debug.Print "Nom du champ : " & MatriceChamps(0, IndexMatrice) & ", emplacement : " & MatriceChamps(1, IndexMatrice)
       Next IndexMatrice
    End If
 
End Sub

D'autres types peuvent exister. Dans ce cas tester les différentes occurrences du type https://docs.microsoft.com/fr-fr/off...e.msoshapetype

**vianney972** · 18/03/2020, 15h55

Bonjour,
Merci Eric, cela fonctionne à merveille.
Encore merci pour cette aide
Vianney

Liste des champs de publipostage

Word

Discussions similaires

Partager

Partager