Word VBA: Close a document without the save prompt showing each time (loop is being used)

Hello

First time on here, so if I'm doing anything I shouldn't, please be kind and just let me know.

I'm a trainee and in one of my exercises is the following task:

(a) write a macro that uses a For loop to do this – if the document name begins with the word “Document” then close that document.
(b) can you write the code so that the client is not prompted to save every time one of the documents is closed?

I have tried doc.Close (wdDoNotSaveChanges) but this still brings up the prompt to save for each document.

Dim doc As Document
Dim strName As String


Set doc = ActiveDocument


For Each doc In Documents
strName = InStr(doc.Name, "Document")          'I know this bit is technically wrong as it returns a "1" for true, just need to figure out how to change it to return a string 


If strName = True Then
Application.DisplayAlerts = False
doc.Close SaveChanges:=False
End If
Next doc

I look forward to hearing from you as I am well and truly stumped!

Many thanks

Deb

Thanks Roy, much appreciated. My work have encouraged me to use forums to get the answers I'm looking for as they're very busy and want me to be proactive.

I've fixed the strName, I still can't get the save prompt to stop showing though.

Deb

Dim doc As Document
Dim strName As String


Set doc = ActiveDocument


For Each doc In Documents
strName = doc.Name
If InStr(strName, "Document") Then
Application.DisplayAlerts = False
doc.Close (wdDoNotSaveChanges)
End If
Next doc

Hi Roy

I appreciate your suggestion, unfortunately I'm still prompted with the save prompt. I attach the amended code, preceded by my code to generate 3 blank docs with headers

Sub Week2_Exercise_4()
'this code will generate 3 x blank documents with a header (for ease of testing)
Dim docNew As Document
Dim blnNew As Boolean
Dim i As Integer

blnNew = True

Do While blnNew = True
Set docNew = Documents.Add
i = i + 1
docNew.Range.Text = "Appendix " & i
docNew.Range.Style = "Heading 1"
If i = 3 Then blnNew = False
Loop

End Sub


Sub Week2_Exercise_6()
'(a) write a macro that uses a For loop to do this - if the document name begins 
     with the 'word "Document" then close that document.
Dim doc As Document
Dim strName As String

Set doc = ActiveDocument

For Each doc In Documents
strName = doc.Name
If InStr(strName, "Document") Then
'(b) can you write the code so that the client is not prompted to save everytime       
     one of 'the documents is closed?
Application.DisplayAlerts = False
doc.Close savechanges:=False
End If
Next doc

End Sub

Thanks Roy, I appreciate the points re ActiveDocument and Application.DisplayAlerts; these have now been removed.

I changed the "savechanges" as recommended, unfortunately this still showed the save prompt

Code used:

Sub Week2_Exercise_6()
Dim doc As Document
Dim strName As String

For Each doc In Documents
 strName = doc.Name
   If InStr(strName, "Document") Then
      doc.Close savechanges:=True
   End If
Next doc
End Sub

Thanks Roy, I've spent a couple of days trying to get it to work so don't feel bad. I truly appreciate your help though. Have a good day

Thanks Roy, I appreciate it. No, the documents are created and then this new macro instantly closes them, without being saved.

Hi Roy

I only just realised you messaged again, would you believe that it doesn't work for me lol.

I copied and pasted your code and (loving how short it was, by the way!) but, nope, still got prompted.

Cheers anyway, have a good evening

Hi Roy, again, many thanks for your time and solution. You will see below what is generated when I use your document/code. Creating a document and then saving it means both of our code works but not if the document is created and then closed without changes being saved.

Please don't stress this, it's fine. Honest

Have a good day

I recall you saying it worked in Excel, I think Word is the problem

Doh, of course you did. I ran the code from your document with the results I gave above. Perhaps my firm's IT department have implemented some office protocol which means the code doesn't comply ?

You haven't failed to provide me with a solution, you can be happy and in good conscience that you solved this

Much appreciated. I'm happy for this post to be closed