替换word中特定内容的问题

重复替换word中的内容    这个是能全部替换
Do While MyWordBook.Content.Find.Execute("《监理》")
With MyWordBook.Content
             If .Find.Execute("《监理》") Then
                 .Text = linshi
             End If
         End With
Loop


但是感觉需要替换的比较多的时候会有点慢   有没有更有效率的办法