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

在Microsoft Word的VBA（Visual Basic for Applications）中，如果你尝试在表格内的光标位置添加文本框但遇到问题，可能是由于几个原因造成的。以下是一些基础概念、可能的原因以及解决方案。

基础概念

• VBA: Visual Basic for Applications，是一种宏语言，允许用户自定义Office应用程序的功能。
• 文本框: 在Word中，文本框是一种可以自由移动和调整大小的容器，用于放置文本或图形，独立于文档的其他内容。

可能的原因

1. 权限问题: 宏可能被禁用，或者你的VBA代码没有正确执行权限。
2. 代码错误: VBA代码中可能存在语法错误或逻辑错误。
3. 文档保护: 如果文档被保护，可能无法插入文本框。
4. 表格限制: 表格内部可能存在某些限制，使得无法直接插入文本框。

解决方案

以下是一个VBA代码示例，用于在当前光标位置插入一个文本框，并在其中添加文本：

Sub InsertTextBoxAtCursor()
    Dim rng As Range
    Dim shp As Shape
    
    ' 获取当前光标位置
    Set rng = Selection.Range
    
    ' 在光标位置插入文本框
    Set shp = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        rng.Left, rng.Top, 200, 100)
    
    ' 设置文本框中的文本
    shp.TextFrame.TextRange.Text = "这是新插入的文本框内容。"
    
    ' 调整文本框属性（可选）
    With shp
        .Fill.Visible = msoFalse ' 去除填充颜色
        .Line.Visible = msoFalse ' 去除边框
    End With
End Sub

步骤：

1. 打开Word文档，并按下 Alt + F11 打开VBA编辑器。
2. 在“项目”窗格中，选择你的文档（例如 Normal 或特定文档名）。
3. 在右侧的代码窗口中粘贴上述代码。
4. 按 F5 运行宏，或者关闭VBA编辑器并回到Word，按下 Alt + F8 选择并运行宏。

注意事项：

• 确保宏没有被禁用。可以在Word的“信任中心”设置中启用宏。
• 如果文档受到保护，需要先取消保护才能插入文本框。
• 如果代码仍然不起作用，检查是否有任何错误提示，并根据提示进行调试。

通过上述步骤，你应该能够在Word表格的光标位置成功添加一个文本框。如果遇到特定错误，可以根据错误信息进一步排查问题。