Perché Powerpoint 2010 printing le pagine note in formato PDF come immagini raster?

Sto provando a printingre una presentazione a 40 diapositiva di PowerPoint in formato PDF in formato PDF e la dimensione del file .pdf risultante è di 10 volte più grande del file .pptx. L'audit di spazio di Acrobat dice che è il 99,7% dei dati di image. Apparentemente PowerPoint costruisce each pagina delle note inserendo un'image raster della diapositiva in cima e le note dell'altoparlante come text in basso: le note possono essere selezionate come text in Reader, ma il text sulla diapositiva non può.

Il problema va via se stamco direttamente le diapositive (il text rimane selezionabile), ma poi le note degli altoparlanti vengono perse.

Il salvataggio in formato PDF include un'opzione per incorporare le note dell'altoparlante come annotazioni, ma sono sepolte in una piccola nota appiccicosa nell'angolo e le note lunghe vengono troncate.

Il salvataggio come PDF ottimizzato per web ottiene la dimensione di file a qualcosa di ragionevole, ma le diapositive sembrano terribili (jpeg di scarsa qualità con manufatti ovvi).

È ansible incollare manualmente ciascuna diapositiva in un documento di Word come EMF e digitare il text sottostante. La dimensione del file risultante è totalmente ragionevole, ma è veramente difficile per lunghe presentazioni, soprattutto perché ho modificato le diapositive each volta che li rilascino.

C'è un modo migliore per printingre le note degli altoparlanti con le diapositive, mantenendo le diapositive come arte vettoriale?

Purtroppo, questo è come è stato progettato per funzionare.

L'unica alternativa realistica che posso pensare è quella di utilizzare Office Automation utilizzando script VBA per automatizzare il stream di lavoro di pubblicazione.

Potresti anche essere in grado di automatizzare il stream di lavoro utilizzando AutoHotKey .

(Come inviato da Ryan )

Grazie a un suggerimento di @ julian-knight, sono riuscito a presentare il seguente script VBA che incolla each coppia di diapositive in una nuova pagina di un nuovo documento di Word:

Sub CreateNotesPages() Dim docx As Word.Document Dim slide As slide Dim txt As String Dim r As Word.Range Set docx = New Word.Document For Each slide In ActivePresentation.slides slide.Copy Set r = docx.Range(docx.Content.End - 1, docx.Content.End) r.PasteSpecial Link:=False, _ DataType:=wdPasteEnhancedMetafile, _ Placement:=wdInLine, DisplayAsIcon:=False txt = slide.NotesPage.Shapes.Placeholders(2) _ .TextFrame.TextRange.Text docx.Content.InsertAfter (vbCrLf & txt) Set r = docx.Range(docx.Content.End - 1, docx.Content.End) r.InsertBreak Type:=wdPageBreak Next slide End Sub