Delphi 10.4 编程设置Word内容控件临时属性的传值异常问题

现有业务实现 #

当前需要基于Word模板的指定书签位置插入富文本内容控件，基础实现代码如下：

procedure TBF.SetPI;
var
  R: WordRange;
  bookmark: OleVariant;
  s: string;
begin
  s:= 'insert text here';
  bookmark := 'textValue';
  R := MF.WordDoc.Bookmarks.Item(bookmark).Range;
  R.Text := s;
  R.HighlightColorIndex := wdYellow;
  MF.WordDoc.ContentControls.Add(wdContentControlRichText,R);
end;

上述代码可正常在书签位置创建富文本内容控件，但存在功能缺陷：

• 创建的内容控件没有设置为临时属性，用户编辑完成后控件会始终保留在文档中，无法自动移除

Word本身提供了临时内容控件的配置能力，对应的VBA参考实现为：

Selection.ParentContentControl.Temporary = True

遇到的卡点 #

Delphi侧虽然可以通过R.ParentContentControl.Temporary路径访问该属性（属性要求传入WordBool类型参数），但无论如何转换传值，都无法将正确的True值传递给Word，临时属性始终配置失败。

问题根因与修正实现 #

失败的核心原因：插入内容控件后，原Range对象的OLE接口没有即时同步绑定新建的内容控件实例，直接通过Range动态解析的ParentContentControl引用拿到的是无效/不完整的接口对象，赋值操作会被OLE封送层静默忽略

修正后的实现逻辑：

1. 声明独立的ContentControl类型变量，直接接收ContentControls.Add方法返回的实例，不依赖Range的动态引用解析
2. 直接对该实例的Temporary属性赋值，使用Word类型库内置的WordTrue常量传值，避免手动强制类型转换导致的封送错误

修正后的完整代码：

procedure TBF.SetPI;
var
  R: WordRange;
  bookmark: OleVariant;
  s: string;
  LContentControl: ContentControl;
begin
  s:= 'insert text here';
  bookmark := 'textValue';
  R := MF.WordDoc.Bookmarks.Item(bookmark).Range;
  R.Text := s;
  R.HighlightColorIndex := wdYellow;
  // 接收Add方法返回的内容控件实例
  LContentControl := MF.WordDoc.ContentControls.Add(wdContentControlRichText, R);
  // 直接给实例的Temporary属性赋正确的WordBool常量值
  LContentControl.Temporary := WordTrue;
end;

常见踩坑提示 #

• 不要使用手动强转的方式传值，比如WordBool(1)、WordBool(True)，这类强制转换在跨OLE封送时容易出现值传递错误，直接使用类型库内置的WordTrue/WordFalse常量是最稳定的传值方式
• 如果必须通过Range路径访问父内容控件，需要在插入控件完成后重新通过书签获取一次新的Range对象，再访问ParentContentControl属性，否则会拿到旧的接口引用，导致赋值失效

内容的提问来源于stack exchange，提问作者Dan Kelly