VBA Word如何获取Shape形状内表格单元格的Range对象

需要获取Word Shape（形状）对象内所嵌表格的Cell(2,1)（第2行第1列）单元格中文本"123"对应的Range范围。

原有问题代码 #

Dim oApp As Object
Dim oShape As Object
Dim oTable As Object
Dim oDoc As Object

Set oApp = CreateObject("Word.Application")
oApp.Visible = True

Set oDocument = oApp.Documents.Open("E:\2022\t1.docx")
Set oShape = oDocument.Shapes(1)
Set oTable = oShape.TextFrame.TextRange.Tables(1)

Dim iStart As Integer
Dim iEnd As Integer
iStart = oTable.Cell(2, 1).Range.Paragraphs(1).Range.Start
iEnd = iStart + 3
oDocument.Range(iStart, iEnd).Text = "ABC"

已知现象：表格直接放在文档正文时上述代码可正常运行，表格放在Shape形状内部时代码运行失效。

Shape（含文本框类形状）内部的文本属于独立的文本故事域，其字符位置索引是相对于形状自身的文本流计算的，和主文档正文的字符索引体系完全隔离。直接拿形状内获取到的Start/End索引值调用主文档的oDocument.Range()方法，定位到的是主文档正文对应索引位置的内容，无法匹配形状内的目标区域。

不需要手动跨文本域计算索引，直接从Shape的文本流层级向下派生获取目标Range即可，不要通过主文档Range做中转。

修正后可运行代码 #

Dim oApp As Object
Dim oShape As Object
Dim oTable As Object
Dim oDocument As Object
Dim targetRng As Object

Set oApp = CreateObject("Word.Application")
oApp.Visible = True

Set oDocument = oApp.Documents.Open("E:\2022\t1.docx")
Set oShape = oDocument.Shapes(1)
Set oTable = oShape.TextFrame.TextRange.Tables(1)

' 直接取形状内表格目标单元格的Range对象
Set targetRng = oTable.Cell(2, 1).Range
With targetRng
    ' 收缩范围，排除单元格默认带的末尾不可见结束标记，避免破坏表格结构
    .MoveEnd Count:=-1
    ' 定位到单元格内前3个字符（即内容"123"的范围）
    .SetRange Start:=.Start, End:=.Start + 3
    .Text = "ABC"
End With

注意事项 #

• 形状内嵌入的所有文本、表格、段落对象，寻址路径必须从Shape.TextFrame.TextRange向下派生，不要回到主文档对象调用Range()方法做跨域定位
• Word表格单元格的Range默认包含末尾的不可见单元格结束标记，直接替换整个Range的内容会删除该标记导致表格结构损坏，操作文本前必须收缩范围排除该标记
• 若需要定位单元格内的部分文本，所有位置偏移计算都要基于形状自身文本流的父Range完成，不能套用主文档的索引规则

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