【结】在word中定义的标签怎么找不到

lxh_78

在word文件中定义了书签：sq1，为什么在程序执行到 Range.InvokeMethod ('InsertFile',['c:\a.rtf','sq1',False, False, False]);
时总是提示说“标签不存在！”，什么原因呀？
代码如下：
  TOleContainer(DataEdit1.InplaceControl).DoVerb(0);  
  odoc:= TOleContainer(DataEdit1.InplaceControl).OleObject;
  doc := System.DispatchHelper.Create(odoc);
  owordApp:= doc.PropertyGet('Application', []);
  wordApp := System.DispatchHelper.Create(owordApp);
  wordApp.PropertyPut('DisplayAlerts', [False]);
  osel:= wordApp.PropertyGet('Selection', []);
  sel := System.DispatchHelper.Create(wordApp.PropertyGet('Selection', []));
  oRange := sel.PropertyGet('Range', []);
  Range :=  System.DispatchHelper.Create(sel.PropertyGet('Range', []));

  try
    begin
      Range.InvokeMethod ('InsertFile',['c:\a.rtf','sq1',False, False, False]);
    end;
  finally
    begin
      (ofind as System.IDisposable).dispose;
      (osel as System.IDisposable).dispose;
      (owordapp as System.IDisposable).dispose;
      (odoc as System.IDisposable).dispose;
    end;
  end;

zfang

你之前问过类似的问题，http://bbs.justep.com/forum.php?mod=viewthread&tid=32498

lxh_78

结吧

amao800613

最初由 lxh_78 发布
[B]在word文件中定义了书签：sq1，为什么在程序执行到 Range.InvokeMethod ('InsertFile',['c:\a.rtf','sq1',False, False, False]);
时总是提示说“标签不存在！”，什么原?.

以下省略...... [/B]

=====================
前段时间我折腾这块来着：给解答一下，Word中定义的书签，如果在文档中正常定义是没什么问题。但是如果书签被定义到其他Shape上，再通过原来的方法就不好用了；之需要选中其中一个Shape对象，然后再查找就可以找到。有时间可以看看VBA去