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

在Word文档中通过VBA逐个添加带换行符的图像，可以通过以下步骤实现：

创建一个新的Word文档，并打开Visual Basic for Applications（VBA）编辑器。可以通过按下Alt + F11快捷键来打开VBA编辑器。
在VBA编辑器中，插入一个新的模块。可以通过点击“插入”菜单，然后选择“模块”来插入新模块。
在新模块中编写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