replaceinword.ps1

param (
    [string]$findText,
    [string]$replacewithText
)

$msword = [System.Runtime.Interopservices.Marshal]::GetActiveObject("Word.Application")

# https://learn.microsoft.com/ru-ru/office/vba/api/word.find.execute
$MatchCase = $false
$MatchWholeWord = $true
$MatchWildcards = $false
$MatchSoundsLike = $false
$MatchAllWordForms = $false
$Forward = $false # перепроверить
$Wrap = 1 # https://learn.microsoft.com/ru-ru/office/vba/api/word.wdfindwrap
$Format = $false
$Replace = 2 # = wdReplaceAll https://learn.microsoft.com/ru-ru/office/vba/api/word.wdreplace

$doc = $msword.ActiveDocument

$doc.Content.Find.Execute($findText, $MatchCase, $MatchWholeWord, $MatchWildcards, $MatchSoundsLike, $MatchAllWordForms, $Forward, $Wrap, $Format, $replacewithText, $Replace)