如何使用delphi在word模板中的id后添加文本？

我有一个“模板”，一个普通的word文件，我需要在特定的地方插入文本。我从这里改编了代码：

满足我的需要。所以我在word文件中放入了一些标识符，并使用了replace函数。它可以很好地工作，但我不能插入备忘录的文本，因为它对于单词replace函数来说太大了

---

简而言之，我需要一种方法来找到一个id（

#social

），并用一个大文本替换它。。。我见过范围函数，但不了解它是如何工作的。我需要一个例子来了解如何使用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;

在这里，使用的文字将添加在书签之后。您还可以使用任何其他

Range

方法或属性，例如用您提供的文本替换高亮显示的范围

---

将书签名称存储在某种智能结构中是很有用的—如何决定由您决定。

执行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;

在这里，使用的文字将添加在书签之后。您还可以使用任何其他

Range

方法或属性，例如用您提供的文本替换高亮显示的范围

---

将书签名称存储在某种智能结构中是很有用的—您决定怎么做取决于您。

非常感谢，伙计。我最终使用replace函数将id替换为“”，然后调用typetext，因为当时该范围已经就位。但是从现在起我肯定会用书签的。非常感谢，伙计。我最终使用replace函数将id替换为“”，然后调用typetext，因为当时该范围已经就位。但从现在起我肯定会用书签。