Discussion :

[Tetranos]

Bonjour,

Il y a quelques temps je vous demandais comment créer une macro par code.
Maintenant, je souhaite faire l'inverse. J'ai trouvé pour cela le code suivant :

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
 
    Dim VBProj As VBIDE.VBProject
    Dim VBComp As VBIDE.VBComponent
    Dim CodeMod As VBIDE.CodeModule
 
    Set VBProj = doc.VBProject
 
    For Each VBComp In VBProj.VBComponents
        If VBComp.Type = vbext_ct_Document Then
                Set CodeMod = VBComp.CodeModule
                With CodeMod
                    .DeleteLines 1, .CountOfLines
                End With
            Else
                VBProj.VBComponents.Remove VBComp
            End If
        Next VBComp

Ce code fonctionne bien puisque je vois notamment que le module "ThisDocument" est vide.
Le menu Outils > Macro > Macros, lorsque je sélectionne le document ne référence rien non plus.
Pour autant lorsque j'ouvre le fichier, Word me demande si je souhaite "activer les macros".

Pour ne plus avoir le message, je dois manuellement modifier le module "ThisDocument" (saut de ligne par exemple) puis annuler ma modif (supprimer le saut de ligne) et resauvegarder le fichier. Après çà, plus de message à la réouverture...

Comment je pourrais faire pour "vraiment" supprimer toutes traces de Macro et ne plus avoir ce message.

Merci,
Tetranos

[EDIT]
J'en profite pour vous souhaiter de bonnes fêtes
[/EDIT]

[Heureux-oli]

Salut,

Si tu le sauves en docx ?

[Tetranos]

Salut,

Si tu le sauves en docx ?

Je suis sous Word 2003

[carden752]

Bonjour,

Tu peux signer ton projet à l'aide d'une signature numérique ou éventuellement en créer une à l'aide de l'outil office selfcert.exe.