如何从Powershell运行Word宏(替换文本)

Question

我正在寻找一种通过Powershell替换word文档中文本的方法。通过在 normal.dot(所有文档(中使用宏，并使用 powershell 脚本传递查找和替换文本。

宏观

Sub Machine()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = $Text
        .Replacement.Text = $ReplaceText
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Powershell脚本

$Desktop = [Environment]::GetFolderPath("Desktop")
$Document = "$DesktopHL2532-00E.docx"
$Text = "2532-00"
$ReplaceText = "2532-35"
$Word = New-Object -ComObject Word.Application
$Document = $Word.Documents.Open("$Document")
$Word.Run("Machine")
$Document.Save()
$Word.Quit()
$a=[System.Runtime.InteropServices.Marshal]::ReleaseComObject($Word)

Answer 1

不要

在宏中定义任何变量。您必须将其更新为如下所示的内容：

Sub Machine(FindText,ReplaceText)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = FindText
        .Replacement.Text = ReplaceText
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

然后，当您从PowerShell调用它时，只需在宏的名称后添加这些参数：

$Word.Run("Machine",$Text,$ReplaceText)

或者，你可以跳过宏，只使用 Find.Execute() 方法在 PowerShell 中完成所有操作(在此处记录(。

$Document = "$homeDesktopHL2532-00E.docx"
$Text = "2532-00"
$ReplaceText = "2532-35"
$Word = new-object -ComObject Word.Application
$Document = $Word.Documents.Open($Document)
$Find = $Document.Content.Find
$Find.ClearFormatting()|out-null
$Find.Execute($Text, $false, $false, $false, $false, $false, $true, 1, $false, $ReplaceText, 2)
$Document.Save()
$Word.Quit()
$a=[System.Runtime.InteropServices.Marshal]::ReleaseComObject($Word)

Execute方法的语法如下：

Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace)

其中大多数是$true/$false，FindText和ReplaceWith是字符串。两个奇数是 Wrap 和 Replace 它们是枚举，其中 1 = wdFindContinue 和 2 = wdReplaceAll。您可以在上面链接的页面上找到指向这些枚举的链接。