1

昨天我试图为朋友将一组 PPT 批量转换为 PDF，我决定看看 PowerShell，因为它已经在我的 HD 上放置了一段时间。

这是我想出的代码。

$p = new-object -comobject powerpoint.application

# I actually don't know why I have to set the window to visible, 
# but it doesn't work otherwise, anyway, it's not the real problem I have
$p.visible = 1 

$f = $p.presentations.open('\some\file.ppt')

$f.ExportAsFixedFormat('\some\newfile.pdf', 2)

2 用于 PDF

由于“蛮力”方法不起作用（“类型不匹配”），我尝试使用

$pptypepdf= [Microsoft.Office.Interop.PowerPoint.PpFixedFormatType]::PpFixedFormatTypePDF
$f.ExportAsFixedFormat('\some\newfile.pdf', $pptypepdf)

这里奇怪的是它仍然抛出“类型不匹配”错误......

此外，SaveAs 适用于

$f.SaveAs('\some\newfile.pdf', 32) # 32 is for PDF

我究竟做错了什么？

更新

相关文件：

这是完整的错误消息

$pptypepdf= [Microsoft.Office.Interop.PowerPoint.PpFixedFormatType]::PpFixedFormatTypePDF
$f.ExportAsFixedFormat($filepath, $pptypepdf)

Exception calling "ExportAsFixedFormat" with "2" argument(s): "Type mismatch. (Exception from HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))"

At line:1 char:23
+ $f.ExportAsFixedFormat <<<< ($filepath, $pptypepdf)
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : ComMethodTargetInvocation
4

1 回答 1

1

我在 Python 中遇到了同样的问题。尝试PrintRange按照 Stefan Schukat 的解决方案中所述指定参数：

这是 Powerpoint 中的一个错误。它定义了“[in, optional, defaultvalue(0)] PrintRange* PrintRange”，它导致在 python 包装器中生成“PrintRange=0”。因此，调用该方法时会出现错误。所以makepy没有问题。解决方法使用 PrintRange=None 调用该方法，因为 None 是一个 vali COM 对象。例如presentation.ExportAsFixedFormat(pptFile+'.pdf', win32com.client.constants.ppFixedFormatTypePDF, win32com.client.constants.ppFixedFormatIntentScreen, PrintRange=None) 应该可以工作。

来源：使用 PowerPoint 2007 的导出功能时类型不匹配

我根本不了解 PowerShell，但已经制定了一个可行的示例：

$p.ActivePresentation.PrintOptions.Ranges.Add(1,1)
$r = $p.ActivePresentation.PrintOptions.Ranges.Item(1)
$document.ExportAsFixedFormat('D:\\ps.pdf', 2, 1, 0, 1, 1, 0, $r)

这不是一个完整的解决方案，但导出已完成。它以某种方式导出完整的演示文稿，而不仅仅是幻灯片。1，和我想的一样。PS哦。这是相同的解决方案

于 2015-10-07T14:30:48.010 回答