Word VBA - CopyPaste图像-新文档中的页眉

Word VBA是指Microsoft Word中的Visual Basic for Applications，它是一种用于自动化和定制Word文档的编程语言。通过使用Word VBA，开发人员可以编写脚本来执行各种任务，包括复制和粘贴图像到新文档的页眉中。

在Word VBA中，可以使用以下代码来实现将图像复制并粘贴到新文档的页眉中：

Sub CopyPasteImageToHeader()
    Dim sourceDoc As Document
    Dim targetDoc As Document
    Dim headerRange As Range
    Dim imagePath As String
    
    ' 设置源文档和目标文档
    Set sourceDoc = ActiveDocument
    Set targetDoc = Documents.Add
    
    ' 设置页眉范围
    Set headerRange = targetDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
    
    ' 设置图像路径
    imagePath = "C:\path\to\image.jpg"
    
    ' 复制图像到剪贴板
    sourceDoc.InlineShapes(1).Range.Copy
    
    ' 在页眉范围中粘贴图像
    headerRange.Paste
    
    ' 调整图像大小和位置
    With headerRange.InlineShapes(1)
        .LockAspectRatio = msoFalse
        .Width = 100
        .Height = 100
        .Top = headerRange.Paragraphs(1).Range.Information(wdVerticalPositionRelativeToPage)
    End With
    
    ' 保存目标文档
    targetDoc.SaveAs "C:\path\to\new_document.docx"
    
    ' 关闭目标文档
    targetDoc.Close
    
    ' 释放对象变量
    Set headerRange = Nothing
    Set targetDoc = Nothing
    Set sourceDoc = Nothing
End Sub

上述代码中，首先通过Set关键字将源文档和目标文档分别赋值给sourceDoc和targetDoc对象。然后，使用Set关键字将目标文档的页眉范围赋值给headerRange对象。接下来，将图像的文件路径赋值给imagePath变量。

通过Copy方法将源文档中的图像复制到剪贴板，然后使用Paste方法将图像粘贴到页眉范围中。使用With语句调整图像的大小和位置，可以根据需要进行自定义设置。

最后，通过SaveAs方法将目标文档保存到指定路径，并使用Close方法关闭目标文档。在代码的最后，通过将对象变量设置为Nothing来释放内存。

这是一个简单的示例，演示了如何使用Word VBA将图像复制并粘贴到新文档的页眉中。根据实际需求，可以进一步扩展和优化代码。