如何在MSWORD中使用VBA在光标位置插入形状

在MS Word中使用VBA在光标位置插入形状，可以通过以下步骤实现：

1. 打开MS Word文档，按下Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
3. 在新的模块中，编写以下VBA代码：

Sub InsertShapeAtCursor()
    Dim shape As Shape
    Set shape = ActiveDocument.Shapes.AddShape(Type:=msoShapeRectangle, Left:=Selection.Range.Information(wdHorizontalPositionRelativeToPage), _
        Top:=Selection.Range.Information(wdVerticalPositionRelativeToPage), Width:=100, Height:=100)
    shape.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 设置形状的填充颜色为红色
End Sub

1. 关闭VBA编辑器。
2. 在MS Word文档中，将光标定位到想要插入形状的位置。
3. 按下Alt + F8打开宏对话框，选择"InsertShapeAtCursor"宏，并点击"运行"按钮。
4. 一个宽度为100，高度为100的红色矩形形状将会被插入到光标位置。

这个VBA宏的作用是在光标位置插入一个矩形形状，并设置其填充颜色为红色。你可以根据需要修改代码中的形状类型、位置、大小和颜色等属性。

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

• 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
• 腾讯云云函数（SCF）：https://cloud.tencent.com/product/scf
• 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
• 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
• 腾讯云区块链（BCS）：https://cloud.tencent.com/product/bcs

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