>>554
確かに最長一致で最初から最後までがまとめて削除されますね、、
改造して以下で落ち着きました

obj = CreateOLEObj("VBScript.Regexp")
obj.Global = TRUE　// ← これも必要だった
obj.pattern = "この人の名前は.*?さんです。"
m = obj.Execute(文章)

for i = 0 to m.count -1
　　文章 = REPLACE(文章,m.item[i].value,"")
next