如何从Powershell运行Word宏(替换文本)？
如何从Powershell运行Word宏(替换文本)？
提问于 2019-04-26 20:24:19
我正在寻找一种通过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 SubPowershell脚本
$Desktop = [Environment]::GetFolderPath("Desktop")
$Document = "$Desktop\HL2532-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)回答 1
Stack Overflow用户
回答已采纳
发布于 2019-04-26 21:30:47
您不能在宏中定义任何变量。您必须将其更新为类似以下内容：
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()方法(文档中的here)在PowerShell中完成所有这些操作。
$Document = "$home\Desktop\HL2532-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。您可以在上面链接的页面上找到这些枚举的链接。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55874506
复制相关文章
点击加载更多
相似问题
SERVER基于一年内最早日期的获取记录
Excel如何返回一年内的日期
如何从两年内获得记录
从当前日期起的最后一年内修改记录。
如何根据记录的日期时间查找记录
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
