我正在尝试将 40 张幻灯片的 PowerPoint 演示文稿打印为注释页格式的 PDF,生成的 .pdf 文件大小比 .pptx 文件大 10 倍。Acrobat 的空间审计显示其中 99.7% 是图像数据。显然,PowerPoint 通过将幻灯片的光栅图像放在顶部并将演讲者注释作为文本放在底部来构建每个注释页:注释可以在 Reader 中作为文本选择,但幻灯片上的文本不能。
如果我直接打印幻灯片(文本仍然可选),问题就会消失,但演讲者备注就会丢失。
保存为 PDF 时可以选择将演讲者备注嵌入为注释,但它们会被埋在角落里的一个很小的便签中,而且长备注会被截断。
保存为针对网络优化的 PDF 会使文件大小减小到合理的范围,但幻灯片看起来很糟糕(低质量 jpeg,有明显的伪影)。
可以将每张幻灯片手动粘贴到 Word 文档中作为 EMF,并在其下方输入文本。生成的文件大小完全合理,但对于较长的演示文稿来说,这确实不方便,尤其是因为我每次发布幻灯片时都会对其进行编辑。
有没有更好的方法可以打印幻灯片上的演讲者备注,同时将幻灯片保留为矢量图?
答案1
答案2
感谢 @julian-knight 的建议,我能够想出以下 VBA 脚本,将每张幻灯片/注释对粘贴到新 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
答案3
PowerPoint 2016 解决了这个问题,值得一提