使用VBA将Word中的图像替换为其他图像并对齐文本框

Sub ReplaceAndAlignImages()
    Dim doc As Document
    Dim shape As InlineShape
    
    ' 打开Word文档
    Set doc = Documents.Open("C:\Path\To\Your\Document.docx")
    
    ' 遍历图像
    For Each shape In doc.InlineShapes
        ' 替换图像
        shape.Select
        Selection.ShapeRange.Fill.UserPicture "C:\Path\To\Your\New\Image.jpg"
        
        ' 对齐文本框
        shape.LockAspectRatio = msoFalse
        shape.Top = shape.Top + shape.Height
        shape.Left = shape.Left + shape.Width
        shape.Width = shape.Width * 2
        shape.Height = shape.Height * 2
    Next shape
    
    ' 保存并关闭文档
    doc.Save
    doc.Close
End Sub