delphi – TWordApplication和Word碰撞

我在Delphi中使用TWordApplication.我的应用程序打开新的单词实例并在其文档上创建一些内容.问题是我第一次运行我的应用程序,然后打开真正的单词exe. Word exe没有打开新的单词实例,但它链接到我的应用程序实例.因此,当我的应用程序写入其文档时,所有文本都显示在用户可见的exe文字上.

WordApp := TWordApplication.Create(nil);
WordApp.ConnectKind := ckNewInstance;
(WordApp.Documents.Add(EmptyParam,EmptyParam,EmptyParam, varFalse ));

然后用户手动打开Word.

WordApp.Selection.Text := 'test test test';

用户在手动打开的Word中看到“测试测试”.

如果我首先手动打开Word并启动我的应用程序一切正常.

这是Word的默认行为,它使用正在运行的实例.您需要做的是存储对要修改的文档的引用.因此,请勿使用ActiveDocument,而是使用您存储的文档.因为无法保证ActiveDocument是您认为的文档.

//starting Word
var
  App: TWordApplication;
  Doc: WordDocument;
begin
  App := TWordApplication.Create(nil);
  Doc := App.Documents.AddOld(EmptyVar, EmptyVar); //open new document

<..somewhere else..>
  //modifying Word
  Doc.DoWhateverIWant;  // <--see? no ActiveDocument, so you are not 
                      //             modifying the users doc