VBAcodetocopyimagesfromsourceWorddocumenttoanewWorddocument 从源Word文档复制图像到新Word文档的VBA代码

使用VBA代码可以实现将一个Word文档中的图片复制到另一个Word文档中。具体实现方法如下：

1. 打开源Word文档和目标Word文档；
2. 找到源Word文档中的图片，使用Selection对象选中图片；
3. 复制选中的图片到剪贴板；
4. 将剪贴板中的图像粘贴到目标Word文档中；
5. 保存目标Word文档并关闭源文档。

以下是代码示例：

Sub copyImageToNewDoc()
    ' 打开源Word文档
    Dim srcDoc As Document
    Set srcDoc = Documents.Open("C:\Users\Desktop\source.docx")
    
    ' 打开目标Word文档
    Dim targetDoc As Document
    Set targetDoc = Documents.Open("C:\Users\Desktop\new.docx")
    
    ' 复制源文档中的图片到剪贴板
    srcDoc.Select ' 确保选择从源文档中复制
    Selection.InlineShapes(1).Range.Copy ' 复制第1个内联形状
    
    ' 在目标文档中粘贴图像
    targetDoc.Select ' 确保选择目标文档
    Selection.Paste
    
    ' 保存目标文档并关闭源文档
    targetDoc.Save
    targetDoc.Close
    srcDoc.Close
End Sub