【结帖】使用文档库提供的接口操作Word文档，标签178个。速度特别慢！基本交互不可用，望

kd_xjx

TUnStructureDocUtils.AddWordFieldValue(FWordOleExtend, attName, attValue); 每次调用该方法的时候有明显的停等。

yancm

需求已提交。谢谢楼主的意见。

kd_xjx

希望尽快解决，解决后劳驾通知一下我们，我们这里项目测试急用！ 谢过了

atiger

这个问题已经沟通过了，可以等到这周末（就是12月14号）再去看。如果有特殊情况，请告知我们

kd_xjx

unit BQSLCSFunc;

interface

uses
  Business.System, Business.Forms, DocLib, DocOffice;

type
  TBQSLCSFunc = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    {private declarations}
    FWordOleExtend: TWordOleExtend;
  public
    {public declarations}
  end;

implementation


procedure TBQSLCSFunc.Button1Click(Sender: TObject);
begin
  FWordOleExtend := TUnStructureDocUtils.CreateWordOleExtend('');
  TUnStructureDocUtils.OpenWordDoc(FWordOleExtend, 'C:\test.doc', True);
  TUnStructureDocUtils.ShowWordFieldCodes(FWordOleExtend, True);
end;

procedure TBQSLCSFunc.Button2Click(Sender: TObject);
var
  lcount: integer;
begin
  // Add Tag To Doc
  for lcount := 0 to 200 do
  TUnStructureDocUtils.AddWordField(FWordOleExtend, 'WQB'+SysUtils.intToStr(lcount), '');
end;

procedure TBQSLCSFunc.Button3Click(Sender: TObject);
var
  lcount: integer;
begin
  //Set tag Value
  for lcount := 0 to 200 do
  //这里效率特别差  你们看看吧 ！！！
  TUnStructureDocUtils.AddWordFieldValue(FWordOleExtend,
    'WQB'+SysUtils.IntToStr(lcount), 'Value'+SysUtils.IntToStr(lcount));
end;

kd_xjx

我这里网速太慢，只好把源代码贴上去了 ，这个问题我们以为已经开始处理了。我们一直在等。没有想到是这种情况，希望尽早给与解决。这里先谢过了 ！

kd_xjx

如果该方法不能使用的话，希望尽可能提供多种解决方案。 使我们更该程序的时候有的选择。

jiahaiminghr

楼主，这个方法暂时不能再优化了，建议换一种方法处理吧。

procedure TMainForm.OpenWordClick(Sender: TObject);
var
  lPath: String;
  lFileName: String;
begin
  if OpenDialog1.Execute then
  begin
    lFileName := OpenDialog1.FileName;
    FWord := ComObj.CreateOleObject('Word.Application');
    FApp := DispatchHelper.Create(FWord);
    FApp.PropertyPut('Visible', [True]);

    FDocs := DispatchHelper.Create(FApp.PropertyGet('Documents',  []));
    FDocs.InvokeMethod('Open', [lFileName]);
    end;
end;

procedure TMainForm.CloseWordClick(Sender: TObject);
var
  lAw: DispatchHelper;
begin
  lAw := DispatchHelper.Create(FApp.PropertyGet('ActiveWindow', []));
  lAw.InvokeMethod('Close', []);
end;

procedure TMainForm.replaceClick(Sender: TObject);
var
  lSelection, lFind, lReplacement: DispatchHelper;
begin
  lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));
  lFind :=  DispatchHelper.Create(lSelection.PropertyGet('Find', []));
  lReplacement := DispatchHelper.Create(lFind.PropertyGet('Replacement', []));

  lFind.InvokeMethod('ClearFormatting', []);
  lReplacement.InvokeMethod('ClearFormatting', []);

  lFind.InvokeMethod('Execute', [edit1.Text, False, False, False, False, False, True, 1, False, edit2.Text,
    2, False, False, False, False]);
end;

kd_xjx

这个例子我测试了，没有什么效果，希望提供一个插入200个标记内容的例子。换句话说，就是在我们目前的解决方案下，怎么使用你们的最新方案进行替换。对于lfind.invokemethod中的多多参数我没有理解。你不能指望我们对于VBA非常熟悉。如果新方案中将操作Word的方式全部交由VBA进行实现，那么我们仅仅希望提供能够解决我们现有需求的方案就可以了。还是希望提供一个完整的例子，无论从人力投入还是时间上，我们目前都来不及，因为是上线系统上进行方案变更，应当考虑我们的风险和困难，我们不可能有时间去了解VBA该怎么写！

jiahaiminghr

8楼的例子是用Word的Replace功能，替换你文档中定义的标签。

你可以在模板文档中定义好各个字段标签，如： {Field_ID}
然后用8楼的例子，用代码方式根据数据集的内容替换这些标签就可以了。