単語を判別して文字を置換する

 ActiveDocument.Words(2).Text = "山田"  '二つ目の単語を入れ替える