如何实现Delphi OLE自动化，无需剪贴板在Word文档间直接复制文本？

本文共计891个文字，预计阅读时间需要4分钟。

在Delphi XE进行Word自动化时，若同时打开了两个文档，并想将一个文档的指定范围内容复制到另一个文档的特定范围，可以按照以下步骤操作：

delphiprocedure TForm1.ManipulateDocuments;var Doc1, Doc2: TWord.Document; Range1, Range2: TWord.Range;begin // 打开第一个文档 Doc1 :=TWord.Document.Create; try Doc1.LoadFromFile('C:\Path\To\FirstDocument.docx');

// 打开第二个文档 Doc2 :=TWord.Document.Create; try Doc2.LoadFromFile('C:\Path\To\SecondDocument.docx');

// 设置要复制的第一个文档的范围 Range1 :=Doc1.Range(Start:=Doc1.Paragraphs[1].Range.Start, End:=Doc1.Paragraphs[1].Range.End);

// 设置第二个文档的目标范围 Range2 :=Doc2.Paragraphs[2].Range;

// 复制内容 Range1.Copy; Range2.Paste;

finally Doc2.Free; end; finally Doc1.Free; end;end;

这段代码首先创建了两个`TWord.Document`对象，分别代表两个打开的Word文档。然后，它分别设置了两个文档的指定范围，将第一个文档的第一个段落的内容复制到第二个文档的第二个段落中。注意，你需要根据实际情况调整文件路径和段落索引。