Office.Interop Word：如何将动态页码插入指定表格单元格

问题核心是你当前把页码段落创建在了**页眉全局范围（headerRange）**里，而非目标表格单元格的范围内，所以会显示在表格外部。要把动态页码放到oTableHeader.Cell(1,3)单元格中，只需把页码的创建逻辑绑定到该单元格的Range即可。

修改后的代码如下：

' 给表格第一行第三单元格添加审核日期段落
Dim newParagraph7 As Word.Paragraph = oTableHeader.Cell(1, 3).Range.Paragraphs.Add()
newParagraph7.Range.Text = "Review Date: " & ReviewDate
newParagraph7.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight

' 在同一单元格内，审核日期段落之后添加页码相关内容
' 先获取单元格的完整Range，定位到已有段落之后
Dim cellRange As Word.Range = oTableHeader.Cell(1, 3).Range
' 移动光标到单元格内容的末尾（避开单元格自带的结束标记）
cellRange.MoveEnd(Word.WdUnits.wdCharacter, -1)
' 添加换行和页码前缀文本
cellRange.InsertAfter(vbCrLf & "Page Number: ")
' 重新定位Range到刚插入的文本末尾，准备插入页码字段
cellRange.MoveStart(Word.WdUnits.wdCharacter, Len("Page Number: ") + 1)

' 插入动态页码字段
Dim pageNumberField As Word.Field = cellRange.Fields.Add(Range:=cellRange, Type:=Word.WdFieldType.wdFieldPage, Text:="\* ARABIC")
pageNumberField.Code.Text = pageNumberField.Code.Text & " \* MERGEFORMAT"

' 把整个单元格内的页码段落设置为右对齐
Dim pageParagraph As Word.Paragraph = oTableHeader.Cell(1, 3).Range.Paragraphs(oTableHeader.Cell(1, 3).Range.Paragraphs.Count)
pageParagraph.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight

' 重新分页文档
doc.Repaginate()

关键修改点说明： #

• 所有操作都基于目标单元格oTableHeader.Cell(1,3)的Range，而非全局页眉范围
• 使用MoveEnd避开Word单元格默认的结束标记（避免字段插入时破坏表格结构）
• 在单元格内已有段落之后插入新内容，保持审核日期和页码在同一单元格内，且排版对齐一致

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