Salvare tutte le pagine di Publisher come immagini

Con Publisher è possibile salvare le singole pagine come immagini tramite la funzionalità “Salva con nome”. Se il file possiede diverse pagine e vogliamo salvare con un’unica operazione possiamo inserire la macro (riportata di seguito) e premere il tasto Esegui (con l’iconda del tasto play) nell’apposita gestione delle macro.

 

Sub Export_as_images()

‘Conferma del salvataggio
BtnPress = MsgBox(“Salvare tutte le pagine come immagini?”, vbOKCancel)

If BtnPress = 1 Then

ActiveDocument.ViewTwoPageSpread = False

‘Conteggio delle pagine
TotalPages = ActiveDocument.Pages.Count
PgPrefix = “immagine”
For PgCnt = 1 To TotalPages

PgNumber = Str(PgCnt)
PgLen = Len(PgNumber)
PgNumber = Right(PgNumber, PgLen – 1)

If PgCnt < 10 Then
PgFilename = PgPrefix + “00” + PgNumber
ElseIf PgCnt < 100 Then
PgFilename = PgPrefix + “0” + PgNumber
Else
PgFilename = PgPrefix + PgNumber
End If

‘Indicare l’estensione corretta. E’ possibile salvare le immagini come .jpg o .png.
PgFilename = PgFilename + “.jpg”

‘Salvataggio: è possibile specificare la risoluzione dell’immagine pbPictureResolutionWeb_96dpi o pbPictureResolutionWeb_150dpi o pbPictureResolutionWeb_300dpi
ActiveDocument.Pages(PgCnt).SaveAsPicture (PgFilename), pbPictureResolutionWeb_96dpi

Next PgCnt

MsgBox “Salvataggio di ” + Str(TotalPages) + ” pagine effettuato!”

End If

End Sub

 

 

Enjoy!