[VBA WORD] Mailmerge et protection formulaire

[Marc Driver]

Bonjour,

Je dois ajouter un document dans une application utilisant ; les documents qui y sont présents sont classiques avec des champs de fusion, une macro se charge de déclencher la fusion:
Le document que je souhaite rajouter répond aux mêmes critères que les précédents, sauf qu'il est établi comme un formulaire de façon à ne pas dépasser un certain nombre de caractères dans les champs à remplir; j'ajoute par là dessus une protection pour que l'on ne puisse modifier le formulaire lui-même.

Le problème est le suivant:
quand la macro est lancée, mes champs de fusion sont correctement remplis, mais les champs de formulaire ont disparu avec leurs restrictions!.

Le principe utilisé dans la macro est:
- déprotéger le formulaire (ActiveDomain.Unprotect)
- la macro habituelle (MailMerge)
- reprotéger le formulaire avec permission pour les champs formulaires

J'ai regardé à gauche et à droite dans un certain nombre de FAQs, aides ... mais je n'ai pas (su?) trouvé(er) la solution.

Quelqu'un d'entre vous saurait-il?

@+

[Marc Driver]

Voici la macro pour être plus clair (les modifs sont notées en remarque).

Code :

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
 
Sub Fusion()
'
' Fusion Macro
' Fusionne des fichiers pour produire des lettres types,  étiquettes de publipostage, enveloppes et catalogues
 
' Modif déprotection
If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect Password:=""
 
' Macro Fusion
WordBasic.MailMergeToDoc
WordBasic.WindowList 1
WordBasic.EditSelectAll
WordBasic.WW6_EditClear
WordBasic.WindowList 2
WordBasic.EditSelectAll
WordBasic.EditCopy
WordBasic.WindowList 1
WordBasic.EditPaste
WordBasic.MailMergeReset
WordBasic.WindowList 2
WordBasic.FileClose 2
WordBasic.FileSave
 
'Modif re protection
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
        wdAllowOnlyFormFields[/color]
 
End Sub

Je compte sur vous ...

[Marc Driver]

Bonjour,
Personne n'aurait donc d'idée?