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

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

1. 首先，打开Word文档并进入开发工具选项卡。如果没有显示开发工具选项卡，可以通过点击文件菜单中的“选项”，然后在“自定义功能区”中勾选“开发工具”，点击确定即可显示开发工具选项卡。
2. 在开发工具选项卡中，点击“插入”组中的“文本框”按钮，然后在表格中选择一个位置来插入文本框。
3. 接下来，通过VBA代码来实现在表格中光标位置添加文本框的功能。在VBA编辑器中，可以通过按下Alt + F11快捷键或者在开发工具选项卡中点击“Visual Basic”按钮来打开VBA编辑器。
4. 在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方法在单元格范围内添加文本框，并设置文本框的属性。

1. 编写完代码后，可以通过按下F5键或者点击VBA编辑器中的运行按钮来执行代码。执行后，将在表格中光标位置添加一个文本框，并设置文本框的内容为"文本框内容"。

需要注意的是，以上代码仅适用于在表格中添加文本框，如果要在普通文本区域中添加文本框，可以使用ActiveDocument.Shapes.AddTextbox方法。

推荐的腾讯云相关产品和产品介绍链接地址：

• 腾讯云服务器（CVM）：https://cloud.tencent.com/product/cvm
• 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
• 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
• 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iot
• 腾讯云区块链（BCS）：https://cloud.tencent.com/product/bcs
• 腾讯云元宇宙（Metaverse）：https://cloud.tencent.com/product/metaverse

请注意，以上链接仅供参考，具体产品选择应根据实际需求进行评估和决策。