如何获取Word表格单元格相对页面的正确Left和Top坐标？

要获取表格单元格左上角相对页面的精确Left和Top坐标，不要使用Range.Information方法（该方法返回的是单元格内文本区域的位置，会受单元格内部边距影响），改用Range.GetPoint方法直接获取单元格的物理边界位置，这是最准确的方式。

代码实现 #

' 声明变量存储坐标值
Dim cellLeft As Single, cellTop As Single
Dim dummyWidth As Single, dummyHeight As Single

' 获取指定单元格左上角相对页面的坐标
ActiveDocument.Tables(n).Cell(row, column).Range.GetPoint _
    cellLeft, cellTop, dummyWidth, dummyHeight, wdRelativeToPage

' 输出结果（可根据需求调整使用方式）
MsgBox "单元格左侧坐标：" & cellLeft & " 磅" & vbCrLf & "单元格顶部坐标：" & cellTop & " 磅"

为什么原来的方法有偏差？ #

• wdVerticalPositionRelativeToPage返回的是单元格内Range（即文本区域）的顶部位置，默认单元格有顶部内边距（约5磅），所以顶部单元格的返回值会比实际单元格顶部偏下这个边距值；越往下的单元格，因表格行的累计偏移，边距的影响占比降低，偏差看起来变小。
• wdHorizontalPositionRelativeToPage同理，返回的是文本区域的左侧位置，受单元格左侧内边距（约3磅）影响，导致结果偏右3磅左右。

额外验证（可选） #

如果需要确认偏差来源，可以对比单元格的内边距值做修正，但这种方式不如GetPoint可靠（复杂表格如合并单元格、跨页表格的内边距计算更复杂）：

' 获取单元格的顶部和左侧内边距
Dim topMargin As Single, leftMargin As Single
topMargin = ActiveDocument.Tables(n).Cell(row, column).TopMargin
leftMargin = ActiveDocument.Tables(n).Cell(row, column).LeftMargin

' 原来的方法返回值减去内边距，与GetPoint结果一致
Dim oldTop As Single, oldLeft As Single
oldTop = ActiveDocument.Tables(n).Cell(row, column).Range.Information(wdVerticalPositionRelativeToPage)
oldLeft = ActiveDocument.Tables(n).Cell(row, column).Range.Information(wdHorizontalPositionRelativeToPage)

MsgBox "修正后顶部坐标：" & (oldTop - topMargin) & vbCrLf & "修正后左侧坐标：" & (oldLeft - leftMargin)

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