Excel VBA调用Word添加文本框 多页含表格时首页后位置错误

• 坐标基准错误：Shapes.AddTextbox 默认坐标参照对象为锚点所在段落的左上角，而非页面左上角。当页面存在表格时，跳转页面后Selection的锚点会落在表格单元格/上一页末尾段落，导致相对坐标计算偏移。
• 内置常量未定义：你使用Late Binding方式创建Word实例，代码中用到的wdGoToPage、wdGoToAbsolute、msoTextOrientationHorizontal等Word/Office内置常量未提前声明，运行时会被识别为0值，导致页面跳转逻辑失效。
• 变量使用错误：代码中声明了box对象用于接收文本框实例，实际插入时赋值给了未定义的doc变量，可能引发未知异常。

修改代码如下：

Public Sub test9()
    ' 提前声明Late Binding所需的常量
    Const wdGoToPage As Long = 1
    Const wdGoToAbsolute As Long = 1
    Const msoTextOrientationHorizontal As Long = 1
    Const wdCollapseStart As Long = 1
    Const wdRelativeHorizontalPositionPage As Long = 1
    Const wdRelativeVerticalPositionPage As Long = 1
    
    Dim objWord As Object
    Dim objDoc As Object
    Dim box As Object
    Dim i As Long

    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open("C:\Users\user\Downloads\Test2.docx")
    objWord.Visible = True

    For i = 1 To 10
        ' 跳转到指定页，常量已定义跳转逻辑正常
        objWord.Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=CStr(i)
        ' 选区缩到当前页最前，避免锚点落在表格内部
        objWord.Selection.Collapse wdCollapseStart
        ' 添加文本框
        Set box = objDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 53, 130, 20)
        ' 显式设置坐标参照为页面左上角，不受锚点位置影响
        box.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        box.RelativeVerticalPosition = wdRelativeVerticalPositionPage
        ' 二次固定坐标避免偏移
        box.Left = 10
        box.Top = 53
        box.TextFrame.TextRange.InsertAfter "Test Box" & i
    Next i
End Sub

修正后所有文本框都会以页面左上角为坐标基准固定位置，不受页面内表格等内容影响。

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