如何在带有 delphi 的单词模板中的 id 后添加文本？

Question

我有一个"template"，一个普通的word文件，我需要在特定的地方插入文字。我从这里改编了代码：

http://www.swissdelphicenter.ch/torry/showcode.php?id=1304

满足我的需要。所以我在word文件中放了一些标识符，并使用了replace函数。它工作正常，但我不能这样做来插入备忘录的文本，因为它对于单词替换功能来说太大了...

简而言之，我需要找到一个 id (#social) 并将其替换为大文本的方法...我看过范围函数，但不明白它是如何工作的。我需要一个例子来了解如何做，拜托。

Answer 1

制作 Word 模板的更好方法是在需要以编程方式添加信息的地方插入书签。在 Word 模板中，只需突出显示您希望变成书签的范围，然后使用 Insert -> Bookmark 或按 Ctrl+Shift+ F5。

为书签命名，然后插入您的文字，例如：

var
  LWordDoc : WordDocument;
  R : WordRange;

// ...open the document, etc

if LWordDoc.Bookmarks.Exists('My Bookmark') then begin
  R := LWordDoc.Bookmarks.Item('My Bookmark').Range;
  R.InsertAfter('foo');
end else begin
  // handle missinng bookmark
end;

此处，使用 .InsertAfter the text will be added after the bookmark. You can also use any other Range methods or properties, for example R.Text := 'foo'; 将突出显示的范围替换为您提供的文本。

以某种智能结构存储书签名称很有用 - 如何存储由您决定。

如何在带有 delphi 的单词模板中的 id 后添加文本？

how can I add text after an id in a word template with delphi?

delphi

ms-word

delphi-7