3文字の単語をすべて新しい文字列に置き換えたい。MsgBox表示変数threeLetterWordに新しい値がありますが、テキストは変更されません。
Sub ShowThreeLetterWords()
Set threeLetterRegExp = New RegExp
threeLetterRegExp.Pattern = "\b[a-zA-Z]{3}\b"
threeLetterRegExp.Global = True
Dim threeLetterWords As MatchCollection
Set threeLetterWords = threeLetterRegExp.Execute(ActiveDocument.Range)
For Each threeLetterWord In threeLetterWords
threeLetterWord = threeLetterRegExp.Replace(threeLetterWord, "sasa")
MsgBox threeLetterWord
Next threeLetterWord
End Sub