Delphi 10.2操作Word页眉表格指定单元格访问异常问题

代码定位偏移的核心逻辑：ActiveDocument.Tables 集合默认仅收录文档正文主编辑区的表格，不会自动包含页眉、页脚等独立文档区域（Word对象模型中称为StoryRange）内的表格。即使你先执行了选中页眉区域的操作，全局调用ActiveDocument.Tables.Item(1)依然会返回正文层级的第一个表格，和当前选中的编辑区域无关。

不要从全局Document对象下获取Tables集合，直接从目标页眉的Range对象下调用Tables属性，就能精准定位到页眉内的表格元素。Office自动化场景下尽量减少Select操作，直接操作对象的稳定性远高于先选中再操作的逻辑。

参考代码 #

var
  HeaderRange: Word.Range;
  TargetCell: Word.Cell;
begin
  // 取第1节的默认主页眉（对应常量wdHeaderFooterPrimary值为1）
  HeaderRange := dm.WordApp.ActiveDocument.Sections.Item(1).Headers.Item(1).Range;
  
  // 前置校验：确认页眉内存在表格，避免索引越界报错
  if HeaderRange.Tables.Count < 1 then Exit;
  
  // 直接定位页眉内第1个表格的第2行第3列单元格
  TargetCell := HeaderRange.Tables.Item(1).Cell(2,3);
  
  // 直接替换单元格全部内容，无需做字符串匹配
  TargetCell.Range.Text := '替换后的单元格完整内容';
  
  // 如果确实需要选中该单元格再操作（非必要不建议用Select，会降低自动化稳定性）
  // TargetCell.Select;
end;

• 如果文档开启了「首页不同」「奇偶页不同」的页眉设置，需要调整Headers.Item的入参匹配目标页眉类型：参数1对应默认主页眉（奇数页页眉），参数2对应首页页眉，参数3对应偶数页页眉。
• 操作前增加表格数量判断的逻辑，避免页眉内不存在对应表格时触发运行时错误。

内容的提问来源于stack exchange，提问作者Renato Braz