Delphi7怎样才能把文档中“绘图工具”及文档中插入的文本框中的“绘图工具”都替换成“二泉映月”

怎么都是路过呢？
要求实现的功能就是把文档及文档文本框中的“绘图工具”都替换成“二泉映月”

以下代码只能对文本中的“绘图工具”替换（蓝色方框），怎样才能对红色方框中的进行替换
  msword.selection.find.clearformatting;
  msword.selection.find.replacement.clearformatting;
  msword.selection.find.text:='绘图工具';
  msword.Selection.TypeText.Text:='二泉映月' ;
  msword.Selection.Find.Execute(Replace:=wdreplaceall);
求各位大神指点