closing word application

[bryan]

I have a template that has a macro to save the document. The macro is on the
toolbar.
The document saves and closes per command but, the application.quit does not
close word.
What am I missing?
Here is my code:

Sub ir()
'
'
Dim strpol, strco, strprfx, strpolz
strpol = ActiveDocument.FormFields("Text23").Result
strco = Mid(strpol, 1, 2)
strprfx = Mid(strpol, 4, 4)

MsgBox strco
MsgBox strprfx
If Mid(strprfx, 4, 1) <> " " Then
strprfx = Mid(strprfx, 1, 3) + " "
strpolz = Mid(strpol, 7, 9)
Else
strpolz = Mid(strpol, 8, 9)
End If

MsgBox strpolz
MsgBox Len(strpolz)
If Len(strpolz) = 9 Then
If Mid(strpolz, 1, 2) = "00" Then
strpolz = Mid(strpolz, 3, 7)
End If
End If

MsgBox strpolz
'newname = "u:\PLUW_" + strpol + "_" + "19040_" + "ENDT" +
"________________" + "C_Z.doc"
newname = "u:\PLUW_" + strco + " " + strprfx + strpolz + "_" + "19040_" +
"ENDT" + "________________" + "C_Z.doc"

ActiveDocument.SaveAs FileName:=newname, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
Application.Quit

End Sub

 

[Russ]

I really don't see anything in your code that might cause the Word
application to lose the focus in your code.
Another thing might be that there were more than one instance of winword.exe
running in the Windows system events window and they all didn't close.

Click on this link for more info on winword.exe
http://www.google.com/search?rls=en&q=winword.exe

One of the links goes here for persistent winword.exe problems:
http://my.brandeis.edu/bboard/q-and-a-fetch-msg?msg_id=0000Ox

 

[bryan]

I found my issue.
I needed to take out the ActiveDocument.close statement