Macro to export all publisher pages as individual jpg or png

[jsherk]

There is not much info out there on VBA programming for Publisher (I had a hard time finding it anyway), and I needed to export each page in a publisher file as an individual graphic (jpg or png). Although you can do a Save As and save each page one at a time, that becomes a little tedious, so I wrote this macro to export all the pages individually as a graphics file.

Hope this is helpful to somebody!



Sub Export_All_Pages_As_Graphic()
'Ask whether to proceed or not
BtnPress = MsgBox("Save all pages as individual pictures?", vbOKCancel)
'If they pressed OK then proceed, otherwise do nothing.
If BtnPress = 1 Then
'Make sure two-page spread is set to FALSE, otherwise it might export the two pages as one picture, instead of individually.
'NOTE: This may not be necessary, but just in case!
ActiveDocument.ViewTwoPageSpread = False
'How many total pages in document?
TotalPages = ActiveDocument.Pages.Count
'Loop thru all pages one at a time
For PgCnt = 1 To TotalPages
'When you convert integer to string it adds a space in front, so need to remove the leading space
PgNumber = Str(PgCnt)
PgLen = Len(PgNumber)
PgNumber = Right(PgNumber, PgLen - 1)
'All names are three characters with leading zeros like 002.png 014.png 123.png
If PgCnt < 10 Then
PgFilename = "00" + PgNumber
ElseIf PgCnt < 100 Then
PgFilename = "0" + PgNumber
Else
PgFilename = PgNumber
End If
'Add the appropriate fileformat extension. You can use .png and .jpg for sure. There may be others, but did not test any.
PgFilename = PgFilename + ".png"
'Save the page
ActiveDocument.Pages(PgCnt).SaveAsPicture (PgFilename)
Next PgCnt
'Tell them you are done and how many pages were saved
MsgBox "DONE! Saved" + Str(TotalPages) + " pages."
End If
End Sub

[xavaan]

I signed up to this forum just to say thanks! I have been trying to work out how to do this for a year! You are absolutely awesome!!!!

Can I stretch your knowledge and ask if you can tell me how to adjust the code to save the jpegs in 300dpi resolution?

[jsherk]

I found a couple links, but I cannot post them because I don't have enough posts in the forum, so hoefully you can decipher them from the following:

A quick google found this:
msdn [dot] microsoft [dot] com/en-us/library/aa438329%28office.12%29.aspx

And this:
msdn [dot] microsoft [dot] com/en-us/library/aa438993%28v=office.12%29.aspx

So in theory, adding a ,3 after PgFilename should work like this:


'Save the page
ActiveDocument.Pages(PgCnt).SaveAsPicture (PgFilename, 3)

I have not tested this though, so give it a try and post back whether it works or not.

[xavaan]

Hi, thanks for getting back so quick. It works perfectly except the ,3 has to be outside the parenthesis.

Ive never used a macro successfully before so thanks again :)

[CBell]

OMG, I am SOOOOO glad I found this (pretty old) thread!

I had a 631-page Publisher file I needed to get into PowerPoint for a slideshow and was beginning to have a panic attack at the idea of save each page as a JPEG one at a time! But, this worked perfectly and you helped me out tremendously. Thank you for posting it!


There is not much info out there on VBA programming for Publisher (I had a hard time finding it anyway), and I needed to export each page in a publisher file as an individual graphic (jpg or png). Although you can do a Save As and save each page one at a time, that becomes a little tedious, so I wrote this macro to export all the pages individually as a graphics file.

Hope this is helpful to somebody!



Sub Export_All_Pages_As_Graphic()
'Ask whether to proceed or not
BtnPress = MsgBox("Save all pages as individual pictures?", vbOKCancel)
'If they pressed OK then proceed, otherwise do nothing.
If BtnPress = 1 Then
'Make sure two-page spread is set to FALSE, otherwise it might export the two pages as one picture, instead of individually.
'NOTE: This may not be necessary, but just in case!
ActiveDocument.ViewTwoPageSpread = False
'How many total pages in document?
TotalPages = ActiveDocument.Pages.Count
'Loop thru all pages one at a time
For PgCnt = 1 To TotalPages
'When you convert integer to string it adds a space in front, so need to remove the leading space
PgNumber = Str(PgCnt)
PgLen = Len(PgNumber)
PgNumber = Right(PgNumber, PgLen - 1)
'All names are three characters with leading zeros like 002.png 014.png 123.png
If PgCnt < 10 Then
PgFilename = "00" + PgNumber
ElseIf PgCnt < 100 Then
PgFilename = "0" + PgNumber
Else
PgFilename = PgNumber
End If
'Add the appropriate fileformat extension. You can use .png and .jpg for sure. There may be others, but did not test any.
PgFilename = PgFilename + ".png"
'Save the page
ActiveDocument.Pages(PgCnt).SaveAsPicture (PgFilename)
Next PgCnt
'Tell them you are done and how many pages were saved
MsgBox "DONE! Saved" + Str(TotalPages) + " pages."
End If
End Sub

[jsherk]

I posted this code about 6 years ago, and had completely forgotten about it, so thanks for the thank you!! Glad it worked for you! :)

[Eldian]

I posted this code about 6 years ago, and had completely forgotten about it, so thanks for the thank you!! Glad it worked for you! :)

Thank you, this post has been very useful to me too. It gave me the basic knowledge about objects and function then I made a few changes :


Sub SaveAsPNG()
Dim oPage As Page
Dim sBaseFileName As String
Dim sPageFileName As String
Dim bViewTwoPageSpread As Boolean
bViewTwoPageSpread = ActiveDocument.ViewTwoPageSpread
ActiveDocument.ViewTwoPageSpread = False
sBaseFileName = ActiveDocument.FullName
sBaseFileName = Left(sBaseFileName, InStrRev(sBaseFileName, ".pub", -1, vbTextCompare) - 1)
For Each oPage In ActiveDocument.Pages
sPageFileName = sBaseFileName & "_Page" & Right("000" & oPage.PageNumber, 3) & ".png"
oPage.SaveAsPicture sPageFileName, pbPictureResolutionCommercialPrint_300dpi
Next oPage
ActiveDocument.ViewTwoPageSpread = bViewTwoPageSpread
End Sub


Every PNG picture is saved in the same folder as the publisher document using the same name adding "_Pagennn.png".

[ruvudav]

Very useful thread.

But I'm too newbie to know how to use it. Where do I copy this code into Publisher, for it to work? Or is it Command Line code?

Some step-by-step instructions on using this code inside Publisher would be very helpful.

Thanks much.

[justmeganoka]

So I've been using this for a few months now to help out a client at my work, and it's been great, but recently he got an update to Publisher and it doesn't seem to work anymore! Any tips?

[capistranojg]

OMG, I am SOOOOO glad I found this (pretty old) thread!

I had a 631-page Publisher file I needed to get into PowerPoint for a slideshow and was beginning to have a panic attack at the idea of save each page as a JPEG one at a time! But, this worked perfectly and you helped me out tremendously. Thank you for posting it!


Thank you so much! It worked almost the first time and I also use Publisher to design certain presentations then need to output to jpgs for a cool slide show in another program with zoom effects. This saved a couple hours of tedious work. I like that PowerPoint asks if you want all or just one slide saved as jpgs. Thanks again! I learned a bunch about macros in the process.