Word VBA如何解决表格内光标位置插入Textbox错位问题

问题原因 #

原有代码出错的核心原因是：Shapes.AddTextBox 方法创建的形状默认位置参考基准为页边距/所在段落，而你通过Selection.Information获取的坐标是相对于页面左上角的绝对坐标，二者基准不匹配，当光标位于表格单元格内时默认基准的偏移规则会进一步放大错位。

修改方案 #

• 保留原有坐标获取逻辑，wdHorizontalPositionRelativeToPage 和 wdVerticalPositionRelativeToPage 两个属性无论光标是否在表格内都能返回正确的页面绝对坐标
• 创建文本框后显式指定形状的位置参考基准为页面，再将获取到的坐标赋值给Left和Top属性即可

修正后完整代码 #

Sub AddTextBox()
    Dim oShape As Shape
    Dim x As Long
    Dim y As Long

    ' 获取光标相对于页面的绝对坐标（单位：磅，不受表格影响）
    x = Selection.Information(wdHorizontalPositionRelativeToPage)
    y = Selection.Information(wdVerticalPositionRelativeToPage)
    
    ' 先创建文本框，初始位置可随意指定，后续会重新设置
    Set oShape = ActiveDocument.Shapes.AddTextBox( _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=0, Top:=0, Width:=200, Height:=12)

    With oShape
        ' 关键修改：指定位置参考基准为页面，与获取的坐标基准匹配
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        ' 赋值绝对坐标完成定位
        .Left = x
        .Top = y
        
        With .TextFrame
            With .TextRange
                .Text = "TEXT"
                .Font.Name = "Segoe Script"
                .Font.Size = 10
                .Font.ColorIndex = wdRed
                .ParagraphFormat.Alignment = wdAlignParagraphLeft
            End With
            
            .MarginBottom = Application.CentimetersToPoints(0.15)
            .MarginTop = Application.CentimetersToPoints(0.15)
            .MarginLeft = Application.CentimetersToPoints(0.1)
            .MarginRight = Application.CentimetersToPoints(0.1)
            .WordWrap = False
            .AutoSize = True
        End With

        .LockAnchor = False
        .WrapFormat.Type = wdWrapNone
        
        .Fill.Visible = msoFalse
        .Line.Visible = msoFalse
        ' 若不需要固定高度，可删除下一行保留AutoSize的自动适配效果
        .Height = Application.CentimetersToPoints(0.8)
    End With
End Sub

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