在 PowerShell 中替换 word doc 中的多个字符串答案

【问题标题】：Replacing multiple strings in a word doc in PowerShell在 PowerShell 中替换 word doc 中的多个字符串
【发布时间】：2021-03-21 12:12:13
【问题描述】：

我正在尝试使用 PowerShell 替换 word 文档中的多个字符串，但在运行以下代码时只替换了一个字符串：

#Includes
Add-Type -AssemblyName System.Windows.Forms

#Functions
#Function to find and replace in a word document
function FindAndReplace($objSelection, $findText,$replaceWith){
    $matchCase = $true
    $matchWholeWord = $true
    $matchWildcards = $false
    $matchSoundsLike = $false
    $matchAllWordForms = $false
    $forward = $true
    $wrap = [Microsoft.Office.Interop.Word.WdFindWrap]::wdReplaceAll
    $format = $false
    $replace = [Microsoft.Office.Interop.Word.WdFindWrap]::wdFindContinue
    $objSelection.Find.Execute($findText,$matchCase,$matchWholeWord,$matchWildcards,$matchSoundsLike,$matchAllWordForms,$forward,$wrap,$format,$replaceWith, $replace)  > $null
}

$item1 = "Should"
$item2 = "this"
$item3 = "work"
$item4 = "?"
$fileName = "NewFile"

#Opens a file browsers to select a word document
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
    InitialDirectory = [Environment]::GetFolderPath('Desktop')
    Filter = 'Documents (*.docx)|*.docx'
}

Write-Host "Select word template file"
$FileBrowser.ShowDialog()
$templateFile = $FileBrowser.FileName
$word = New-Object -comobject Word.Application 
$word.Visible = $false
$template = $word.Documents.Open($templateFile)
$selection = $template.ActiveWindow.Selection

FindAndReplace $selection '#ITEM1#' $item1
FindAndReplace $selection '#ITEM2#' $item2
FindAndReplace $selection '#ITEM3#' $item3
FindAndReplace $selection '#ITEM4#' $item4

$fileName = $fileName
$template.SaveAs($fileName)
$word.Quit()

如果我注释掉 FindAndReplace 运行的第一个有效，但后续调用无效。

例如，按原样运行会导致：

Input              Output
#ITEM1#            Should
#ITEM2#            #ITEM2#
#ITEM3#            #ITEM3#
#ITEM4#            #ITEM4#

我不确定我错过了什么，任何帮助将不胜感激

【问题讨论】：

我认为它与$forward = $true 有关。第一次查找/替换后，光标位于底部。我不熟悉 Word 自动化，但我认为应该可以将您的搜索环绕和/或将光标放回顶部。两者都应该工作。
谢谢你，这对我不起作用，但你的洞察力让我回答了这个问题。可能有更优雅的解决方案，但我会发布对我有用的解决方案。

标签： powershell replace ms-word

【解决方案1】：

正如建议的那样，光标似乎没有返回到文档的开头。我添加了以下代码：

Set-Variable -Name wdGoToLine -Value 3 -Option Constant
Set-Variable -Name wdGoToAbsolute -Value 1 -Option Constant

到我的脚本开头，然后：

$objSelection.GoTo($wdGoToLine, $wdGoToAbsolute, 1) > $null

作为我的 FindAndReplace 函数的第一行，现在它按预期工作。

可能有更优雅的解决方案，但这对我有用

【讨论】：