Dim s As Shape For Each s In ActiveSelection.Shapes s.Fill.UniformColor.RGBAssign 255, 0, 0 'Turns selection red Next s
Sub BatchExportPDF() For Each doc In Application.Documents For Each page In doc.Pages page.Export FileName:=doc.Name & "_p" & page.Index & ".pdf", Filter:="PDF" Next Next End Sub coreldraw macros