Viele Word Dokumente Suchen-Ersetzen

param(
    [parameter(mandatory=$true)][ValidateScript({Test-Path $_})][string]$folder,
    [parameter(mandatory=$true)][string]$search,
    [parameter(mandatory=$false)][string]$replace = ''  
)
$folder = (Resolve-Path $folder).Path
$ErrorActionPreference = 'Stop'  
# create word object
$objWord = New-Object -Com Word.Application -P @{Visible = 0}
# disable alerts
$objWord.DisplayAlerts = 0
# for each file in folder (recursive)
foreach($file in Get-ChildItem $folder -File -Include *.do[ct][xm] -Recurse){
    write-host "'$($file.Fullname)' ... " -F Green -NoNewline  
    try{
        # open file
        $doc = $objWord.Documents.Open($file.Fullname)
        # replace all occurences in all story ranges
        $found = $false
        $doc.StoryRanges | %{
            $result = $_.Find.Execute($search,$false,$false,$false,$false,$false,$true,1,$false,$replace, 2,$false,$false,$false,$false)
            if ($result){
                $found = $true
            }
        }
        # save document when changes were made
        if ($found){
            write-host "(Suchbegriff gefunden und ersetzt) ... " -F Cyan -NoNewline  
            $doc.Save()
        }else{
            write-host "(Suchbegriff nicht gefunden) ... " -F Gray -NoNewline  
        }
        # close document
        $doc.Close($false)
    }catch{
        write-host $_.Exception.Message -F Red
    }
    write-host "OK" -F Green  
}
# enable alerts
$objWord.DisplayAlerts = -1
# quit word and release resources
$objWord.Quit()
$doc,$objWord | %{[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($_)}

.\word_replace_strings.ps1 -folder "D:\mydata" -Search "12345" -Replace "99999"