使用VBA将活动Word文档复制粘贴到活动Excel文档

可以通过以下步骤实现：

首先，在Excel中打开Visual Basic编辑器。可以通过按下Alt + F11键或在开发工具栏中选择“Visual Basic”按钮来打开。
在Visual Basic编辑器中，选择“插入”菜单，然后选择“模块”。这将创建一个新的模块，用于编写VBA代码。
在新的模块中，编写以下VBA代码：

Sub CopyWordToExcel()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelApp As Object
    Dim excelWorkbook As Object
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开活动Word文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 将Word文档内容复制到剪贴板
    wordDoc.Content.Copy
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开活动Excel文档
    Set excelWorkbook = excelApp.ActiveWorkbook
    
    ' 将剪贴板中的内容粘贴到Excel文档
    excelWorkbook.Sheets(1).Range("A1").PasteSpecial
    
    ' 关闭并保存Word文档
    wordDoc.Close SaveChanges:=False
    
    ' 关闭Word应用程序
    wordApp.Quit
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 显示Excel应用程序
    excelApp.Visible = True
End Sub

点击运行按钮或按下F5键来执行VBA代码。

以上代码将创建一个新的Word应用程序对象，并打开活动的Word文档。然后，将Word文档的内容复制到剪贴板。接下来，创建一个新的Excel应用程序对象，并打开活动的Excel文档。最后，将剪贴板中的内容粘贴到Excel文档的A1单元格中。

请注意，执行此VBA代码时，确保Word和Excel应用程序都处于打开状态。如果需要在代码中指定具体的Word文档和Excel文档路径，可以修改代码中的相关部分。

推荐的腾讯云相关产品和产品介绍链接地址：

腾讯云对象存储（COS）：提供高可靠、低成本的云端存储服务，适用于存储和处理任意类型的文件和媒体内容。了解更多信息，请访问：https://cloud.tencent.com/product/cos
腾讯云云服务器（CVM）：提供可扩展的计算能力，支持多种操作系统和应用场景，适用于构建高性能的云计算应用。了解更多信息，请访问：https://cloud.tencent.com/product/cvm
腾讯云数据库（TencentDB）：提供可靠、高性能的数据库服务，包括关系型数据库（MySQL、SQL Server等）和NoSQL数据库（MongoDB、Redis等）。了解更多信息，请访问：https://cloud.tencent.com/product/cdb