使用脚本组合文档

Question

我想知道我现在是否可以手动执行一项任务。我有文件夹，每个文件夹都有两个Word文档。我将这两个文档与评论色带中的组合收割机结合在一起，并保存文档供其他人查看更改。

我可以自动创建这些文件，例如使用PowerShell或VBA？

Answer 1

要使用PowerShell组合两个Word文档，您可以使用以下内容：

$document1      = 'D:\Test\firstDoc.docx'
$document2      = 'D:\Test\secondDoc.docx'
$resultDocument = 'D:\Test\combined.docx'  # the output file

$word = New-Object -ComObject Word.Application
$word.Visible = $false

$doc   = $word.Documents.Open($document1)
$range = $doc.Range()
# move to the end of the first document
$range.Collapse(0)     # wdCollapseEnd see https://learn.microsoft.com/en-us/dotnet/api/microsoft.office.interop.word.wdcollapsedirection
# insert a page break so the second document starts on a new page
$range.InsertBreak(7)  # wdPageBreak   see https://learn.microsoft.com/en-us/office/vba/api/word.wdbreaktype
$range.InsertFile($document2)

$doc.SaveAs($resultDocument)
# quit Word and cleanup the used COM objects
$word.Quit()

$null = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($range)
$null = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($doc)
$null = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word)
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

^{ps使用COM OBOCTS} 时，您需要使用完整的绝对文件路径