word表格转换成excel表格VBA，保持原格式

在Excel中，如果需要将Word文档中的表格转换成Excel，并尽可能地保持原格式，可以使用VBA（Visual Basic for Applications）脚本来完成这个任务。以下是基本步骤：

1. **开启VBA编辑器**：首先打开你的Excel文件，按Alt + F11快捷键进入VBA编辑器。

2. **创建新模块**：在VBA编辑器窗口中，点击“插入”->“模块”，然后你会看到一个新的空白模块出现。

3. **编写代码**：
- 使用Microsoft Word的对象模型（Object Model），你可以引用Word应用程序并操作Word文档。以下是示例代码：

     Sub ConvertWordTableToExcel()
       Dim wdApp As Object
       Dim wdDoc As Object
       Dim rng As Range
       Dim excelSheet As Worksheet
       
       ' 创建Word应用和文档对象
       Set wdApp = CreateObject("Word.Application")
       Set wdDoc = wdApp.Documents.Open("C:\path\to\your.docx") ' 替换为你的Word文件路径

       ' 将Word中的表格区域复制到Excel
       Set rng = wdDoc.Tables(1) ' 假设第一个表格是你要转换的
       Set excelSheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
       rng.Copy Destination:=excelSheet.Range("A1")

       ' 保持格式
       With excelSheet.PasteSpecial(xlPasteValuesAndFormat)
         .ClearFormats
         .UnMergeCells
       End With

       ' 关闭Word文档和释放对象
       wdDoc.Close SaveChanges:=False
       Set wdDoc = Nothing
       Set wdApp = Nothing
     End Sub

这段代码假设Word文档只有一个表格并且位于顶部。你需要根据实际情况修改表格编号、文件路径等信息。

4. **运行代码**：在VBA编辑器中，按下F5键或选择“运行”->“运行宏”，执行`ConvertWordTableToExcel`宏。

5. **检查结果**：转换完成后，检查新的Excel工作表，确认Word表格的格式是否已经转移到Excel。

注意：为了确保VBA能正常运行，可能需要在Excel的安全选项中启用宏。