在word文档中通过vba逐个添加带换行符的图像

Sub AddImagesWithLineBreaks()
    Dim imagePath As String
    Dim img As InlineShape
    Dim rng As Range
    
    ' 设置图片路径
    imagePath = "C:\path\to\image.jpg"
    
    ' 在文档末尾添加一个换行符
    Selection.TypeParagraph
    
    ' 插入第一张图片
    Set rng = Selection.Range
    Set img = ActiveDocument.InlineShapes.AddPicture(imagePath)
    img.Select
    Selection.MoveRight wdCharacter, 1
    
    ' 在图片后面添加一个换行符
    Selection.TypeParagraph
    
    ' 插入第二张图片
    Set rng = Selection.Range
    Set img = ActiveDocument.InlineShapes.AddPicture(imagePath)
    img.Select
    Selection.MoveRight wdCharacter, 1
    
    ' 在图片后面添加一个换行符
    Selection.TypeParagraph
    
    ' 以此类推，根据需要逐个添加更多的图片
    
    ' 清除选择
    Selection.Collapse wdCollapseEnd
End Sub