以编程方式删除 Word 文档中的所有隐藏文本

Question

使用 PowerShell，我需要编写一个脚本来删除 Word 文档的所有隐藏文本。

这是我目前的情况：

$WordDocument = Get-Item "C:\MyWordDocument.docx"

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

$document = $word_app.Documents.Open($WordDocument.FullName)

$objSelection = $word_app.Selection 
$objSelection.Font.Hidden = $True

$FindText = "" # search on formatting only (according to MS doc)
$wdFindContinue = 1
$ReplaceAll = 2
$MatchCase = $False 
$MatchWholeWord = $False 
$MatchWildcards = $False 
$MatchSoundsLike = $False 
$MatchAllWordForms = $False 
$Forward = $True 
$Wrap = $wdFindContinue 
$Format = $True # ?
$ReplaceWith = "" 

$a = $objSelection.Find.Execute($FindText,$MatchCase,$MatchWholeWord, ` 
    $MatchWildcards,$MatchSoundsLike,$MatchAllWordForms,$Forward,` 
    $Wrap,$Format,$ReplaceWith,$ReplaceAll) 
$document.Save()
$document.Close()

$word_app.Quit()

它不起作用，我不知道为什么。

有什么想法吗？

Answer 1

错误在于您将搜索过滤器设置为查找隐藏文本的位置。您需要在 $objSelection.Find 对象上设置属性而不是 $objSelection.Font.Hidden = $True（这实际上隐藏了当前选定的文本）：

$objSelection.Find.Font.Hidden = $True

以编程方式删除 Word 文档中的所有隐藏文本

Programmatically remove all hidden text in a Word document

com

powershell

ms-word