Instance of Word staying open after saving OLE object

[sharky12345]

I'm using this to extract an OLE object, (Word document), from a worksheet;

Dim wsActive As Worksheet
Dim ws As Worksheet
Dim oOleObj As OLEObject
Dim oDoc As Object
Dim DestFolder As String
Dim sDocType As String
Dim lCnt As Long


If ActiveWorkbook Is Nothing Then Exit Sub
Application.ScreenUpdating = False
DestFolder = ThisWorkbook.Path & "\Sgt Toolbox Files DO NOT DELETE"
Set wsActive = ActiveSheet
lCnt = 0
Sheets("Handover Setup").Activate
Set ws = Sheets("Handover Setup")
For Each oOleObj In ws.OLEObjects
If oOleObj.OLEType = xlOLEEmbed Then
sDocType = oOleObj.progID
sDocType = Left(sDocType, InStr(sDocType, ".") - 1)
If sDocType = "Word" Then
oOleObj.Select
oOleObj.Verb xlVerbPrimary
Set oDoc = oOleObj.Object
oDoc.SaveAs FileName:=DestFolder & "\Blank Handover File.docx", FileFormat:=wdFormatXMLDocumentMacroEnabled
oDoc.Close savechanges:=False
lCnt = lCnt + 1
End If
End If
Next oOleObj
ActiveWindow.WindowState = xlMaximized
Sheet4.Activate
Application.ScreenUpdating = True

It works fine, except afterwards it leaves an instance of Word open, not an actual document, just the blank blue screen. Can someone show me how to close it please? Also, if possible, I would need it to account for any existing documents that are open, in other words leave any open word documents as they are and only close this 'blank' instance.

 

[Macropod]

Re: Instance of Word staying open after saving OEL object

Exiting OLE Apps has always been problematic. After:
Next oOleObj
try inserting:
oOleObj.Application.Quit

 

[sharky12345]

Re: Instance of Word staying open after saving OEL object

Seems to work - thanks Paul!