写一段VBA，把光标定位到图片下一段落，插入题注

在VBA中，要将光标定位到图片下一段落，并在该位置插入题注，可以通过以下步骤实现：

1. 首先定位到含有图片的段落。
2. 然后移动到该段落的下一段。
3. 最后在该位置插入题注。

以下是一个简单的VBA示例代码，演示了如何在Word文档中执行上述操作：

Sub InsertCaptionBelowImage()
    ' 定义变量
    Dim oPara As Paragraph
    Dim oRange As Range
    Dim oInlineShape As InlineShape
    
    ' 获取当前活动文档
    Dim oDoc As Document
    Set oDoc = ActiveDocument
    
    ' 遍历文档中的所有内嵌形状
    For Each oInlineShape In oDoc.InlineShapes
        ' 检查内嵌形状是否为图片
        If oInlineShape.Type = wdInlineShapePicture Or oInlineShape.Type = wdInlineShapeLinkedPicture Then
            ' 找到图片所在的段落
            Set oPara = oInlineShape.Range.Paragraphs(1)
            
            ' 创建一个范围对象，定位到图片下一段落的开始
            Set oRange = oDoc.Range(oPara.Range.End, oPara.Range.End)
            
            ' 将光标定位到该范围
            oRange.Collapse Direction:=wdCollapseStart
            oRange.Select
            
            ' 在当前光标位置插入题注
            Selection.InlineShapes.AddPicture FileName:="你的题注图片路径", _
                                               LinkToFile:=False, _
                                               SaveWithDocument:=True, _
                                               Range:=Selection.Range
            
            ' 可以添加更多的题注文本，例如：
            Selection.TypeParagraph ' 插入一个新段落
            Selection.TypeText Text:="图 1: 描述图片内容的题注文字" ' 在新段落中添加题注文字
            
            ' 退出循环
            Exit For
        End If
    Next oInlineShape
End Sub

请注意替换 `"你的题注图片路径"` 为你想要插入的题注图片的实际路径。在Word中执行这个宏后，它会在找到的第一个图片下方插入题注。