here in the export docker said... pages can be exported...
but after hitting the add button it adds only the one page
But how to add all the pages here
PLEASE SOMEONE ANSWER
Hello,
Please clarify the problem.
1. You want export ALL pages of document to single bitmap?
2. You want export ALL pages, but every page in diferent file?
3. You want export SELECTED pages in one bitmap file?
4. You want export SELECTED pages - every page in single bitmap file?
5. One other variant?
Greetings!
OMG. Amazing Reply. I had not expected that. Answer is 2
But all are amazing. Even those are also be needed sometime.
OK
Hello,Variant 2.1.Mey be improvedGreetings!Sub BhBp_Export_pages_as_files()Dim BhBpPage As PageFor Each BhBpPage In ActiveDocument.Pagesx = x + 1BhBpPage.Activate
Dim expflt As ExportFilter Set expflt = ActiveDocument.ExportBitmap(ActiveDocument.FilePath & "BhBp.bg2_COREL_EXPORT" & x & ".jpg", cdrJPEG, cdrCurrentPage, cdrCMYKColorImage, 2419, 3507, 300, 300, cdrNoAntiAliasing, False, False, False, False, cdrCompressionNone) With expflt .Progressive = True .Optimized = True .SubFormat = 0 .Compression = 0 .Smoothing = 0 .Finish End With Next'ActiveDocument.Pages(2).Shapes.All.End Sub