MS Word VBA:在表格中光标位置添加文本框不起作用

MS Word VBA是Microsoft Word的宏语言，可以通过编写VBA代码来自动化执行各种操作。在表格中添加文本框的方法如下：

首先，打开Word文档并进入开发工具选项卡。如果没有显示开发工具选项卡，可以通过点击文件菜单中的“选项”，然后在“自定义功能区”中勾选“开发工具”，点击确定即可显示开发工具选项卡。
在开发工具选项卡中，点击“插入”组中的“文本框”按钮，然后在表格中选择一个位置来插入文本框。
接下来，通过VBA代码来实现在表格中光标位置添加文本框的功能。在VBA编辑器中，可以通过按下Alt + F11快捷键或者在开发工具选项卡中点击“Visual Basic”按钮来打开VBA编辑器。
在VBA编辑器中，可以使用以下代码来在表格中光标位置添加文本框：

Sub AddTextBoxToTable()
    Dim tbl As Table
    Dim rng As Range
    Dim tb As Shape
    
    ' 获取当前所在的表格
    Set tbl = Selection.Tables(1)
    
    ' 获取当前光标位置的单元格范围
    Set rng = Selection.Cells(1).Range
    
    ' 在单元格范围内添加文本框
    Set tb = tbl.Range.Parent.Shapes.AddTextbox(msoTextOrientationHorizontal, rng.Left, rng.Top, rng.Width, rng.Height)
    
    ' 设置文本框的属性
    With tb.TextFrame
        .TextRange.Text = "文本框内容"
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
        .MarginBottom = 0
    End With
End Sub

以上代码中，首先通过Selection.Tables(1)获取当前所在的表格对象，然后通过Selection.Cells(1).Range获取当前光标位置的单元格范围。接着使用tbl.Range.Parent.Shapes.AddTextbox方法在单元格范围内添加文本框，并设置文本框的属性。