Discussion :

[petdelascar]

Bonjour, merci à ceux qui considéreront ma requête.

Je cherche à rendre automatique une insertion d'un mot dans un document word.
L'idée serait de faire figurer en face de tous les blocs de mots que j'encadre un numéro qui s'incrémenterai en partant du premier cadre vers le dernier.

Un exemple:
mon premier bloc de mot
. _________________________
001 | mon deuxieme bloc de mots |
. -----------------------------
mon troisieme bloc de mots
. _________________________
002 | mon quatrieme bloc de mots |
. -----------------------------


Donc voilà, j'encadre 2 blocs et en face je souhaiterai que word écrive automatiquement 001 et 002.

Merci.

[Heureux-oli]

Salut,

Un champ SEQ devrait faire l'affaire.

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

Par exemple

Code :

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

{ SEQ MaLigne }

Ce nombre sera incrémenté de 1 à chaque utilisation.
Si tu veux l'obtenir en 3 positions :

Code :

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

{ SEQ MaLigne \# 000 }

[petdelascar]

Merci

[petdelascar]

Bon, j'avance, mais:

Je tape "Alt + F9"
Je colle dans la zone désirée:

Code :

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

{ SEQ MaLigne \# 0000 \* MERGEFORMAT  \* MERGEFORMAT  \* MERGEFORMAT }

J'ai donc une bonne incrémentation dans les zones où j'insère ce champ, j'obtient:

Code :

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

1
2
3
0001
0002
0003

Maintenant je n'arrive pas à afficher cela seulement si le texte qui se trouve à coté est encadré, j'ai pensé à un truc du style:

Code :

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

{ SEQ IF { S1 = ENCADRE } MaLigne \# 0000 \* MERGEFORMAT  \* MERGEFORMAT  \* MERGEFORMAT }

C'est l'idée: j'écris la ligne si par exemple mon signet en façe est encadré. Je ne sais pas comment dire encadré, peut être en passant par une variable VBA avec un truc du style:

Code :

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

1
2
3
4
5
6
7
8
 
{ SEQ 
        IF { DOCVARIABLE  "EST_ENCADRE" \* MERGEFORMAT } 
MaLigne \# 0000 \* MERGEFORMAT  \* MERGEFORMAT  \* MERGEFORMAT }
 
 
Et en VBA, dire que la variable EST_ENCADRE vaut 1 si c'est encadré:
ActiveDocument.Variables.Add ("aze"), Value:= "1 si encadré 0 sinon"

Il me manque des billes, si quelqu'un peut m'aiguiller.

[Heureux-oli]

Salut,

Ça ne fonctionne pas comme ça.

Peux-tu mettre un fichier exemple sur le forum ?

Avec ce que je t'ai donné, il faut coller le champ manuellement devant le texte.

[petdelascar]

Je ne peux pas envoyer de fichier.
Mais les premiers exemples fonctionnent, ça ça fonctionne, j'arrive bien à insérrer le code dans word:

Code :

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

{ SEQ MaLigne \# 0000 \* MERGEFORMAT  \* MERGEFORMAT  \* MERGEFORMAT }

[petdelascar]

Sujet clos, merci pour l'aide

[petdelascar]

Sujet pas tout à fait clos en fait, si quelqu'un saurait comment faire en sorte d'encadrer automatiquement mon bloc de mots si à sa gauche il y a une numérotation.

Exemple:

Si j'ai ça:

Code :

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

1
2
3
4
5
6
7
. _________________________
001 | mon deuxieme bloc de mots |
. -----------------------------
       |mon troisieme bloc de mots
. _________________________
002 | mon quatrieme bloc de mots |
. -----------------------------

"mon deuxieme bloc de mots" et "mon quatrieme bloc de mots" devraient s'encadrer automatiquement par ce qu'en face il y a un numéro. Ce numéro est automatiquement créé avec un champs SEQ dans word:

Code :

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

{ SEQ MaLigne \# 0000 \* MERGEFORMAT  \* MERGEFORMAT  \* MERGEFORMAT }

[Heureux-oli]

Salut,

Sans connaître le contenu exact de tes paragraphes, il n'est pas possible de te venir plus en aide.