替换页眉、页脚中的特定文本和 Word 文件中的普通文本

Question

我正在尝试编写一个 PowerShell 脚本，该脚本将 word 文件中的一个字符串替换为另一个字符串。我需要更新超过 500 个单词模板和文件，所以我不想手工制作。一个问题是我无法在页脚或页眉中找到文本，因为它们都是独立的并且是带有图像的表格。我设法在正常的 "body" 文本中找到了文本，但现在还没有替换它。这是我的查找代码。

$path = "C:\Users\BambergerSv\Desktop\PS\Vorlagen"
$files = Get-Childitem $path -Include *dotm, *docx, *.dot, *.doc, *.DOT, *DOTM, *.DOCX, *.DOC -Recurse |
         Where-Object { !($_.PSIsContainer) }
$application = New-Object -ComObject Word.Application
$application.Visible = $true
$findtext = "www.subdomain.domain.com"

function getStringMatch {
    foreach ($file In $files) {
        #Write-Host $file.FullName
        $document = $application.Documents.Open($file.FullName, $false, $true)
        if ($document.Content.Text -match $findtext) {
            Write-Host "found text in file " $file.FullName "`n"
        }
        try {
            $application.Documents.Close()
        } catch {
            continue
            Write-Host $file.FullName "is a read only file" #if it is write protected because of the makros
        }
    }
    $application.Quit()
}

getStringMatch

Answer 1

我在 internet.I 上搜索找到了这个问题的答案。

首先你需要了解VBA。在MS WORD中编写下面的宏并保存。

Public Function CustomReplace(findValue As String, replaceValue As String) As String

 For Each myStoryRange In ActiveDocument.StoryRanges

     myStoryRange.find.Execute FindText:=findValue, Forward:=True, ReplaceWith:=replaceValue, replace:=wdReplaceAll
     While myStoryRange.find.Found
           myStoryRange.find.Execute FindText:=findValue, Forward:=True, ReplaceWith:=replaceValue, replace:=wdReplaceAll
     Wend
     While Not (myStoryRange.NextStoryRange Is Nothing)
          Set myStoryRange = myStoryRange.NextStoryRange
          myStoryRange.find.Execute FindText:=findValue, Forward:=True, ReplaceWith:=replaceValue, replace:=wdReplaceAll

          While myStoryRange.find.Found
               myStoryRange.find.Execute FindText:=findValue, Forward:=True,ReplaceWith:=replaceValue, replace:=wdReplaceAll
          Wend

     Wend
  Next myStoryRange
CustomReplace = ActiveDocument.FullName
End Function

将上述宏添加到MS WORD后，进入Powershell并执行以下代码。

$word = New-Object -ComObject Word.Application
$word.visible=$false
$files = Get-ChildItem "C:\Users\Ali\Desktop\Test" -Filter *.docx

$find=[ref]"Hello"
$replace=[ref]"Hi"


for ($i=0; $i -lt $files.Count; $i++) {
  $filename = $files[$i].FullName 
  $doc = $word.Documents.Open($filename)

  $word.Run("CustomReplace",$find,$replace)
  $doc.Save()
  $doc.close()
  }

 $word.quit()

替换页眉、页脚中的特定文本和 Word 文件中的普通文本

Replace specific Text in Header, Footer and normal Text in Word file

powershell

ms-word

header

find

footer