Word VBA宏问题：Selection.Range无法在光标位置插入文本框

嘿，我明白你遇到的麻烦了——默认的AddTextBox方法如果不指定锚点和位置，确实会默认把文本框放到页面的开头或者末尾，而不是你想要的光标位置。问题的核心在于，你需要把文本框锚定到当前光标所在的Range，同时基于这个Range的坐标来设置文本框的位置。

下面是修改后的完整代码，我会一步步解释关键改动：

Sub InsertTableAtCursor()
    Dim shpTbox As Shape
    Dim rngCursor As Range
    Dim tblBox As Table
    
    ' 第一步：保存当前光标位置的Range对象
    ' 这一步是关键，用来锚定文本框并获取位置坐标
    Set rngCursor = Selection.Range
    
    ' 第二步：创建文本框，指定锚点和位置
    ' Anchor参数绑定到光标Range，确保文本框跟着光标所在段落移动
    ' Left和Top用Range的页面相对位置来设置，让文本框精准出现在光标处
    Set shpTbox = ActiveDocument.Shapes.AddTextBox( _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=rngCursor.Information(wdHorizontalPositionRelativeToPage), _
        Top:=rngCursor.Information(wdVerticalPositionRelativeToPage), _
        Width:=300, Height:=150, _
        Anchor:=rngCursor)
    
    ' 第三步：在文本框内插入预格式化表格
    Set tblBox = shpTbox.TextFrame.TextRange.Tables.Add( _
        Range:=shpTbox.TextFrame.TextRange, _
        NumRows:=2, NumColumns:=2)
    
    ' 可选：给表格添加一些基础格式化（根据你的需求调整）
    tblBox.Borders.Enable = True
    tblBox.Cell(1, 1).Range.Text = "列1"
    tblBox.Cell(1, 2).Range.Text = "列2"
    tblBox.Rows(1).Range.Font.Bold = True
End Sub

关键改动说明： #

• 锚定Range：通过Anchor:=rngCursor把文本框绑定到光标所在的段落，这样即使后续编辑文档，文本框也会跟着这段内容移动，不会乱跑。
• 精准定位：用rngCursor.Information()获取光标相对于页面的水平和垂直位置，把文本框的Left和Top设置成这个值，确保文本框刚好出现在光标位置。
• 文本框内的Range操作：通过shpTbox.TextFrame.TextRange访问文本框内部的编辑区域，在这里插入表格就不会影响文档其他内容。

如果你的原始代码里有更多表格格式化的逻辑，直接把那部分替换到上面代码的表格创建部分就可以啦。

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