Discussion :

[surfaceux]

Bonjour a tous.
Dans un premier temps, J'aurai souhaité affiché toutes les valeurs de type PropriétéDoc dans mon document.
Seulement j'ignore le code permettant de faire une telle opération.

Sur le principe cela revient à utiliser ce code sauf que celui la affiche les dans un nouveau document les champs présents dans un document.

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
 Public Sub listchamps()
Dim stTableau As String
Dim ch As Field
 
For Each ch In ActiveDocument.Fields
stTableau = stTableau & vbCrLf & ch.Code & " - " & ch.Result
Debug.Print stTableau
Next ch
Application.Documents.Add
 
Selection.TypeText stTableau
 
 
 
End Sub

Moi à la différence je pars d'un document sans champ inséré et ma macro rajouterai automatiquement toutes les valeurs de PropriétéDoc.
J'ai besoin de cette macro car le nombre de champs possibles d'un document à un autre varie et je ne peux donc pas créé un modèle de document car des champs seraient manquants, la macro sert à les rajouter en automatique.
Je ne sais pas si j'ai été clair dans ce que je souhaite obtenir.

[Heureux-oli]

Salut,

Un peu de lecture ?

http://heureuxoli.developpez.com/office/word/variables/

[surfaceux]

J'ai parcouru le doc ainsi que le doc sur les champs dans Word mais j'ai de la peine à trouver une solution à mon problème.

Je travaille avec une base de donnée et au moment ou je fais nouveau document, je renseigne via mon système de base de donnée des valeurs qui se retrouvent dans PropriéteDoc.
Le souci s'est que je ne connais pas la définition exacte du code de champs à afficher pour pouvoir le mettre en dur dans un code, le nombre à ajouter varie lui aussi.

Le code du champs se pésente ainsi:

Code :

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

{DOCPROPERTY IBA|COMPOSANT_LABO~~WCP|21584083|1\*MERGEFORMAT}

Je peux avoir 4 champs a afficher dans mon doc seul le numero 21584083 va changer.
Je pense qu'il faudrait créer une boucle mais hélas mes connaissances en VBA sont nulles.
Suis je déja sur la bonne direction.

[surfaceux]

En cherchant dans l'aide je pense que je vais arriver au résultat final.
Le code joint ci dessous affiche bien ce qu'il y a dans PropriétéDoc, jusque la c'est pas mal.
Comment modifier le code pour dire qu'il n'affiche les valeurs qui ont pour début de code :
DOCPROPERTY IBA|COMPOSANT_LABO

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
Sub ListProperties()
    Dim rngDoc As Range
    Dim proDoc As DocumentProperty
 
    Set rngDoc = ActiveDocument.Content
 
    rngDoc.Collapse Direction:=wdCollapseEnd
 
    For Each proDoc In ActiveDocument.CustomDocumentProperties
        With rngDoc
            .InsertParagraphAfter
 
            On Error Resume Next
            .InsertAfter proDoc.Value
        End With
    Next
End Sub

[Heureux-oli]

Salut,

Je viens seulement de comprendre.

Tu peux toujours dans ta boucle, faire un test sur le Name de ta propriété.

Si le .Name est le bon, on fait ce que tu souhaites.

On peut toujours ne tester que sur une partie du .Name, la valeur renvoyée est un string, il suffit de prendre le morceau que l'on veut.

[surfaceux]

Un collègue a terminé avec les infos que j'ai pu lui donner.
Ce code permet donc de rajouter dans un tableau des champs qui sont situés dans propriétédoc.

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
Sub ListProperties()
 
Dim proDoc As DocumentProperty
Dim stTemp As String
Dim i As Integer
 
i = 0
 
'COMPTE LE NOMBRE DE COMPOSANTS
For Each proDoc In ActiveDocument.CustomDocumentProperties
    If proDoc.Name Like "*COMPOSANT*" Then
        i = i + 1
    End If
Next
 
'SORT DE LA MACRO SI UN SEUL COMPOSANT ou SI MARO DEJA LANCEE
If i = 1 Then Exit Sub
If ActiveDocument.Tables(2).Rows.Count > 2 Then Exit Sub
 
 
'CREATION DU NOMBRE DE LIGNE NECESSAIRE
ActiveDocument.Tables(2).Select
Selection.InsertRowsBelow i - 1
 
'REMPLI LA COLONNE COMPOSANT
ActiveDocument.Tables(2).Cell(2, 1).Select
For Each proDoc In ActiveDocument.CustomDocumentProperties
    If proDoc.Name Like "*COMPOSANT*" Then
        Selection.Range.Text = proDoc.Value
        Selection.MoveDown
    End If
Next
 
'REMPLI LA COLONNE REFERENCE
ActiveDocument.Tables(2).Cell(2, 2).Select
For Each proDoc In ActiveDocument.CustomDocumentProperties
    If proDoc.Name Like "*REFERENCE*" Then
        Selection.Range.Text = proDoc.Value
        Selection.MoveDown
    End If
Next
 
'REMPLI LA COLONNE FOURNISSEUR
ActiveDocument.Tables(2).Cell(2, 3).Select
For Each proDoc In ActiveDocument.CustomDocumentProperties
    If proDoc.Name Like "*FOURNISSEUR*" Then
        Selection.Range.Text = proDoc.Value
        Selection.MoveDown
    End If
Next
 
End Sub