VBA code to save workbook with no prompt

[tispivey]

I have a macro that converts single pages from a word document to a pdf, and saves them to a folder as "Page1, Page2, etc."

In between each conversion, I get a popup to Save, Don't Save, or Cancel.

Is there a way to auto select "Don't Save", so I don't have to select it between each conversion?


Sub savepdf()
Dim Counter As Long, Source As Document, Target As Document
Set Source = ActiveDocument
Selection.HomeKey Unit:=wdStory
Pages = Source.BuiltInDocumentProperties(wdPropertyPages)
Counter = 0
While Counter < Pages
Counter = Counter + 1
DocName = "Page" & Format(Counter) & ".pdf"
Source.Bookmarks("\Page").Range.Cut
Set Target = Documents.Add
Target.Range.Paste
Target.SaveAs FileName:=DocName, FileFormat:=wdFormatPDF
Target.Close
Wend
End Sub

 

[rlv01]

Assuming your code works the way you like it, then you could try this.

Application.DisplayAlerts = wdAlertsNone
Target.SaveAs FileName:=DocName, FileFormat:=wdFormatPDF
Target.Close
Application.DisplayAlerts = wdAlertsAll

(Tip: For future posts , you should try to use code tags like I did above when posting your code. It makes it easier to read.)

How to Post Your VBA Code

Post your VBA code.

www.mrexcel.com

 

[tispivey]

Possibly a stupid question, as I am still learning how to build and edit macros, but where would it go in the above code?

 

[rlv01]

Right where this line is

Target.SaveAs FileName:=DocName, FileFormat:=wdFormatPDF

 

[tispivey]

Thank you!