Question

我有一个Word（Office 2013）文档，我需要将文档的每个页面拆分为单独的PDF。所以，我把它放在一起使用PowerShell。

$Word = New-Object -ComObject Word.Application
$Word.Visible = $true

$Doc = $Word.Documents.Open($SourceFile)

for ($pageNo = 1; $pageNo -le 50; $pageNo++)
{
    $OutputFile = $OutputDirectory + "\MyFile_" + $pageNo + ".pdf"

    $Doc.ExportAsFixedFormat($OutputFile, [Microsoft.Office.Interop.Word.WdExportFormat]::wdExportFormatPDF, $false, [Microsoft.Office.Interop.Word.WdExportOptimizeFor]::wdExportOptimizeForPrint, [Microsoft.Office.Interop.Word.WdExportRange]::wdExportFromTo, $pageNo, $pageNo, [Microsoft.Office.Interop.Word.WdExportItem]::wdExportDocumentContent, $false, $false, [Microsoft.Office.Interop.Word.WdExportCreateBookmarks]::wdExportCreateNoBookmarks, $false, $true, $false, $null)
}

$Doc.Close()    
$Word.Quit()

我已经把它做到了最后一个参数，期待这个参考。

[ref] System.Object FixedFormatExtClassPtr

我尝试传入$ null，0，每个有或没有[ref]，但我收到此错误：

参数：'15'应该是System.Management.Automation.PSReference。使用[ref]。

关于我需要传递哪个最后一个参数的想法？或者，有没有更简单的方法来完成这项任务？

Answer 1

我只知道我做错了什么。对于最后一个参数，我需要使用System.Type.Missing。

$Word = New-Object -ComObject Word.Application
$Word.Visible = $true

$Doc = $Word.Documents.Open($SourceFile)
$fixedFromatExtClassPtr = [System.Type]::Missing

for ($pageNo = 1; $pageNo -le 50; $pageNo++)
{
    $OutputFile = $OutputDirectory + "\MyFile_" + $pageNo + ".pdf"

    $Doc.ExportAsFixedFormat($OutputFile, [Microsoft.Office.Interop.Word.WdExportFormat]::wdExportFormatPDF, $false, [Microsoft.Office.Interop.Word.WdExportOptimizeFor]::wdExportOptimizeForPrint, [Microsoft.Office.Interop.Word.WdExportRange]::wdExportFromTo, $pageNo, $pageNo, [Microsoft.Office.Interop.Word.WdExportItem]::wdExportDocumentContent, $false, $false, [Microsoft.Office.Interop.Word.WdExportCreateBookmarks]::wdExportCreateNoBookmarks, $false, $true, $false, [ref]$fixedFromatExtClassPtr)
}

$Doc.Close()    
$Word.Quit()

如何从PowerShell将缺少的可选参数传递给VBA方法

1 个答案: