使用Word VBA创建Excel工作表副本

的方法如下：

首先，需要在Word中打开Visual Basic for Applications编辑器。可以通过按下Alt + F11快捷键或在开发工具栏中选择“Visual Basic”按钮来打开。
在VBA编辑器中，选择“插入”菜单，然后选择“模块”以创建一个新的模块。
在新的模块中，编写以下代码来创建Excel工作表副本：

Sub CreateExcelCopy()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim newWorkbook As Object
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开现有的Excel工作簿
    Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\original_workbook.xlsx")
    
    ' 获取要复制的工作表
    Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")
    
    ' 创建新的Excel工作簿
    Set newWorkbook = xlApp.Workbooks.Add
    
    ' 复制工作表到新的工作簿
    xlWorksheet.Copy Before:=newWorkbook.Sheets(1)
    
    ' 保存新的工作簿
    newWorkbook.SaveAs "C:\path\to\copied_workbook.xlsx"
    
    ' 关闭Excel应用程序
    xlApp.Quit
    
    ' 释放对象引用
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set newWorkbook = Nothing
    
    MsgBox "Excel工作表副本已创建成功！"
End Sub

在代码中，需要将"C:\path\to\original_workbook.xlsx"替换为要复制的原始Excel工作簿的文件路径，将"Sheet1"替换为要复制的工作表名称，将"C:\path\to\copied_workbook.xlsx"替换为要保存副本的文件路径。
在VBA编辑器中，按下F5键或选择“运行”菜单中的“运行子过程”来执行代码。
执行完毕后，将会在指定的文件路径下创建一个新的Excel工作簿副本，并将原始工作表复制到副本中。

这是使用Word VBA创建Excel工作表副本的基本步骤。通过这种方法，可以方便地在Word中自动化创建和处理Excel文件。