Powershell 中的 PowerPoint 导出为固定格式

Question

我尝试通过 PowerShell 2.0 脚本在 PowerPoint 2007 中使用 ExportAsFixedFormat。仅需要前两个参数，但这不起作用。

我总是得到：

使用“2”调用“ExportAsFixedFormat”时出现异常 参数：“类型不匹配。（ HRESULT 异常：0x80020005 (DISP_E_TYPEMISMATCH))"

我读到必须指定所有参数才能使其正常工作，但这也不起作用。顺便说一句，同样的方法适用于我在 Word 2007 和 Excel 2007 中。

所以这是什么问题：

Add-type -AssemblyName Office
Add-type -AssemblyName Microsoft.Office.Interop.PowerPoint

$p = new-object -comobject powerpoint.application 
$p.visible = 1  
$document = $p.presentations.open('somefile.ppt')


$document.ExportAsFixedFormat($Path, 
[Microsoft.Office.Interop.PowerPoint.PpFixedFormatType]::ppFixedFormatTypePDF, 
[Microsoft.Office.Interop.PowerPoint.PpFixedFormatIntent]::ppFixedFormatIntentScreen, 
[Microsoft.Office.Core.MsoTriState]::msoFalse, 
[Microsoft.Office.Interop.PowerPoint.PpPrintHandoutOrder]::ppPrintHandoutVerticalFirst, 
[Microsoft.Office.Interop.PowerPoint.PpPrintOutputType]::ppPrintOutputSlides, 
[Microsoft.Office.Core.MsoTriState]::msoFalse, 
$null, 
[Microsoft.Office.Interop.PowerPoint.PpPrintRangeType]::ppPrintAll, 
[System.Reflection.Missing]::Value, 
$true, 
$true, 
$true, 
$true, 
$false, 
[System.Reflection.Missing]::Value)

Answer 1

我意识到这是一个迟到的答案，但我想我已经找到了解决方案。 （我试图使用 NetOffice 在 C# 中调用此方法，并得到相同的错误）

Microsoft Powerpoint 中似乎存在错误（至少在 v 2007 和 2010 中）。
必须指定PrintRange参数，因为默认值（0）无效！

因此，工作脚本可能如下所示：

Add-type -AssemblyName Office
Add-type -AssemblyName Microsoft.Office.Interop.PowerPoint

$p = new-object -comobject powerpoint.application 
$p.visible = 1  
$document = $p.presentations.open('somefile.ppt')
$ranges = $document.PrintOptions.Ranges
$range = $ranges.Add(1,1)


$document.ExportAsFixedFormat($Path, 
[Microsoft.Office.Interop.PowerPoint.PpFixedFormatType]::ppFixedFormatTypePDF, 
[Microsoft.Office.Interop.PowerPoint.PpFixedFormatIntent]::ppFixedFormatIntentScreen, 
[Microsoft.Office.Core.MsoTriState]::msoFalse, 
[Microsoft.Office.Interop.PowerPoint.PpPrintHandoutOrder]::ppPrintHandoutVerticalFirst, 
[Microsoft.Office.Interop.PowerPoint.PpPrintOutputType]::ppPrintOutputSlides, 
[Microsoft.Office.Core.MsoTriState]::msoFalse, 
$range, 
[Microsoft.Office.Interop.PowerPoint.PpPrintRangeType]::ppPrintAll, 
[System.Reflection.Missing]::Value, 
$true, 
$true, 
$true, 
$true, 
$false, 
[System.Reflection.Missing]::Value)

注意现在传入了 $range 参数。

注意 - 这个答案改编自此处的解决方案： https://netoffice.codeplex.com/discussions/449288

Answer 2

参数存在两个问题：

1. 为 ExternalExporter使用正确的 PrintRange
2. ，[System.Reflection.Missing]::Value 无效。跳过它。

Add-type -AssemblyName Office
Add-type -AssemblyName Microsoft.Office.Interop.PowerPoint

$ppt = New-Object -ComObject PowerPoint.Application
$presentation = $ppt.Presentations.Open($inputPath)
$printRange = $presentation.PrintOptions.Ranges.Add(1, $presentation.Slides.Count)

$presentation.ExportAsFixedFormat2(
    $outputPath, 
    [Microsoft.Office.Interop.PowerPoint.PpFixedFormatType]::ppFixedFormatTypePDF, # FixedFormatType
    [Microsoft.Office.Interop.PowerPoint.PpFixedFormatIntent]::ppFixedFormatIntentScreen, # Intent
    [Microsoft.Office.Core.MsoTriState]::msoTrue, # FrameSlides
    [Microsoft.Office.Interop.PowerPoint.PpPrintHandoutOrder]::ppPrintHandoutHorizontalFirstl, # HandoutOrder (ppPrintHandoutVerticalFirst)
    [Microsoft.Office.Interop.PowerPoint.PpPrintOutputType]::ppPrintOutputSlides, # OutputType (ppPrintOutputBuildSlides)
    [Microsoft.Office.Core.MsoTriState]::msoFalse, # PrintHiddenSlides
    $printRange, # PrintRange <-- use a proper printRange
    [Microsoft.Office.Interop.PowerPoint.PpPrintRangeType]::ppPrintAll, # RangeType
    [System.Reflection.Missing]::Value, # SlideShowName
    $false, # IncludeDocProperties
    $false, # KeepIRMSettings
    $false, # DocStructureTags
    $false, # BitmapMissingFonts
    $false, # PDF/A UseISO19005_1
    $true # includeMarkup 
    # ExternalExporter <-- skip this param completely
    )

$presentation.Close()
$ppt.Quit()

[System.GC]::Collect();
[System.GC]::WaitForPendingFinalizers();
[System.GC]::Collect();
[System.GC]::WaitForPendingFinalizers();

代码来自非常完整的示例 https://gist.github.com/allenyllee/5d7c4a16ae0e33375e4a6d25acaeeda2

Answer 3

将 $null 更改为 [System.Reflection.Missing]::Value。