$comments = @'
Script name: Replace-WordText.ps1
Created on: Tuesday, April 03, 2007
Author: Kent Finkle
Purpose: How can I use Windows Powershell to Find and Replace Text in a Microsoft Word Document?
'@

$objWord = New-Object -comobject Word.Application 
$objWord.Visible = $True

$objDoc = $objWord.Documents.Open("C:\Scripts\Test.doc")
$objSelection = $objWord.Selection

$FindText = "Contoso"
$MatchCase = $False
$MatchWholeWord = $False
$MatchWildcards = $False
$MatchSoundsLike = $False
$MatchAllWordForms = $False
$Forward = $True
$Wrap = $wdFindContinue
$Format = $False
$wdReplaceNone = 0
$ReplaceWith = ""
$wdFindContinue = 1

$a = $objSelection.Find.Execute($FindText,$MatchCase,$MatchWholeWord, `
    $MatchWildcards,$MatchSoundsLike,$MatchAllWordForms,$Forward,`
    $Wrap,$Format,$ReplaceWith,$wdReplaceNone)
    
If ($objSelection.Find.Found)
{
    Write-Host("The search text was found.") } Else {
    Write-Host("The search text was not found.") }