thanks again!

It sounds like you might be using Word 2007. It uses a separate file format for macro-enabled documents. In your code, you specify the Save As type as RTF (which doesn’t support macros) so when Word closes, it still wants to save the open macro-enabled document. Try using:

Dim type As Object = Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatXMLDocumentMacroEnabled

i tested another word app, if it doesn’t have complex macros, then the word doc will close without any prompts. If it has complicated macros embedded, then it won’t.

since 99% of the word files i’ll be reading will have narrative, i’m good.

thank you again for your time and consideration!

In the post, the Dim saveChanges has the wdSaveChanges instead of the wdDoNotSaveChanges because i was still testing

also, i close the word document, your objDoc with the wdDoNotSaveChanges, thus should be able to just quit the application without having to reference the wdDoNotSaveChanges again…

However, for testing purposes, I have included both, as you will notice below

but whether I have saveChanges = to wdSaveChanges or wdDoNotSaveChanges, it still gives me the prompt…

for the sake of it, i even iterate through the documents within the app, just in case there’s more than one and auto save the file before closing the doc with the saveChanges variable…which is set to wdDoNotSaveChanges

nme = path.Substring(path.LastIndexOf(”\”) + 1)
nme = nme.Substring(0, nme.LastIndexOf(”.”)) + “.rtf”
wApp.Visible = False
wDoc = wApp.Documents.Open(path, , True)
wDoc.Activate()

nme = path.Substring(0, path.LastIndexOf(”\”) + 1) + nme
Dim type As Object = Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatRTF
wDoc.SaveAs(nme, Type)

Dim saveChanges As Object = Microsoft.Office.Interop.Word.WdSaveOptions.wdDoNotSaveChanges
For Each doc As Microsoft.Office.Interop.Word.Document In wApp.Documents
doc.Save()
doc.Close(saveChanges)
Next
wApp.Quit(saveChanges)

I don’t see where you’re using the wdDoNotSaveChanges constant in the example you’ve provided. It looks as though you’re just using the Quit method without any parameters.

One thing, when i execute the objWord.Quit wdDoNotSaveChanges, i’m getting a prompt for Save As…any idea why that would be prompting me to do a Save As?

I’m running this from ASP.Net, would that make a difference?

nme = path.Substring(path.LastIndexOf(”\”) + 1)
nme = nme.Substring(0, nme.LastIndexOf(”.”)) + “.rtf”
wApp.Visible = False
wDoc = wApp.Documents.Open(path, , False)
wDoc.Activate()

nme = path.Substring(0, path.LastIndexOf(”\”) + 1) + nme
Dim type As Object = Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatRTF
wDoc.SaveAs(nme, type)
Dim saveChanges As Object = Microsoft.Office.Interop.Word.WdSaveOptions.wdSaveChanges
wDoc.Close(saveChanges)
wApp.Quit()

Thanks for your consideration.

You can click the Subscribe to Posts link in the sidebar (http://www.nilpo.com/subscribe/) or you can subscribe to the RSS feed (http://www.nilpo.com/feed/).