Question

我试图编写一个PowerShell脚本，用一个字符串中的另一个字符串替换一个String。我需要更新500多个单词模板和文件，所以我不想手工制作。一个问题是我无法在页脚或标题中找到文本，因为它们都是个体的并且是带有图像的表格。我设法找到正常的＆＃34; body＆＃34;文字，但现在还没有替换它。这是我的查找代码。

$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

我在互联网上搜索过。我找到了这个问题的答案。

首先，您需要了解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文件中的页眉，页脚和普通文本中的特定文本

1 个答案: