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 |
Partager