你的现有代码已经能成功把Word表格的文本内容导入到Excel里，但它只提取了单元格的纯文本，完全丢失了Word中的文本格式（比如字体样式、颜色、加粗/斜体、字号、对齐方式这些）。下面我会帮你修改代码，实现同时导入内容和格式的需求。

原代码分析 #

先看你提供的代码，核心提取文本的逻辑是WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)，这一步只获取了单元格里的文字内容，所有格式信息都被丢弃了：

Sub ImportWordTable()
    Dim wdDoc As Object
    Dim wdFileName As Variant
    Dim TableNo As Integer 'Word中的表格编号
    Dim iRow As Long 'Excel中的行索引
    Dim iCol As Integer 'Excel中的列索引
    
    wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", , _
        "选择包含待导入表格的文件")
    If wdFileName = False Then Exit Sub '(用户取消了文件选择对话框)
    
    Set wdDoc = GetObject(wdFileName) '打开Word文件
    With wdDoc
        TableNo = wdDoc.tables.Count
        If TableNo = 0 Then
            MsgBox "该文档不包含任何表格", _
                vbExclamation, "导入Word表格"
        ElseIf TableNo > 1 Then
            TableNo = InputBox("此Word文档包含" & TableNo & "个表格。" & vbCrLf & _
                "请输入要导入的表格编号", "导入Word表格", "1")
        End If
        
        With .tables(TableNo)
            '将Word表格单元格内容复制到Excel单元格
            For iRow = 1 To .Rows.Count
                For iCol = 1 To .Columns.Count
                    Cells(iRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
                Next iCol
            Next iRow
        End With
    End With
    Set wdDoc = Nothing
End Sub

改进方案：保留格式的导入方法 #

要完整保留格式，最高效的方式是使用复制-粘贴功能，它能一键同步所有格式属性。下面是改进后的完整代码：

改进后的代码 #

Sub ImportWordTableWithFormatting()
    Dim wdDoc As Object
    Dim wdFileName As Variant
    Dim TableNo As Integer
    Dim iRow As Long
    Dim iCol As Integer
    Dim targetCell As Range
    
    ' 弹出文件选择框，选择目标Word文档
    wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", , _
        "选择包含待导入表格的文件")
    If wdFileName = False Then Exit Sub ' 用户取消选择则退出
    
    ' 后台打开Word（不显示界面，避免干扰操作）
    Set wdDoc = CreateObject("Word.Application")
    wdDoc.Visible = False
    Set wdDoc = wdDoc.Documents.Open(wdFileName)
    
    With wdDoc
        TableNo = .tables.Count
        ' 处理无表格的情况
        If TableNo = 0 Then
            MsgBox "该文档不包含任何表格", vbExclamation, "导入Word表格"
            wdDoc.Close SaveChanges:=False
            wdDoc.Quit
            Set wdDoc = Nothing
            Exit Sub
        ' 处理多表格的情况，让用户选择要导入的表格编号
        ElseIf TableNo > 1 Then
            TableNo = InputBox("此Word文档包含" & TableNo & "个表格。" & vbCrLf & _
                "请输入要导入的表格编号", "导入Word表格", "1")
            ' 验证输入的编号是否有效
            If TableNo < 1 Or TableNo > .tables.Count Then
                MsgBox "输入的表格编号无效，请重新输入", vbCritical, "错误"
                wdDoc.Close SaveChanges:=False
                wdDoc.Quit
                Set wdDoc = Nothing
                Exit Sub
            End If
        End If
        
        ' 遍历Word表格的每个单元格，复制内容和格式到Excel
        With .tables(TableNo)
            For iRow = 1 To .Rows.Count
                For iCol = 1 To .Columns.Count
                    Set targetCell = ThisWorkbook.ActiveSheet.Cells(iRow, iCol)
                    ' 复制Word单元格的全部内容和格式
                    .cell(iRow, iCol).Range.Copy
                    ' 粘贴到Excel，保留源格式
                    targetCell.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                    ' 清除剪贴板，避免后续操作受影响
                    Application.CutCopyMode = False
                Next iCol
            Next iRow
        End With
        
        ' 关闭Word文档，不保存任何更改
        .Close SaveChanges:=False
    End With
    
    ' 退出Word应用，释放内存资源
    wdDoc.Quit
    Set wdDoc = Nothing
    
    MsgBox "表格已成功导入并保留所有格式！", vbInformation, "导入完成"
End Sub

代码关键说明 #

• 后台运行Word：通过CreateObject("Word.Application")创建Word实例并设置Visible = False，全程在后台操作，不会弹出Word窗口打扰你。
• 完整格式粘贴：使用PasteSpecial的xlPasteAllUsingSourceTheme参数，能完整同步Word单元格的字体、颜色、对齐方式、边框等所有格式。
• 输入验证：新增了表格编号的有效性检查，避免因输入错误导致代码报错。
• 资源清理：操作完成后主动关闭Word文档并退出应用，避免占用系统内存。

备选方案：手动控制格式（适合精细化需求） #

如果你不需要保留全部格式，只想选择性复制部分格式属性（比如只保留字体和颜色），可以逐个读取Word单元格的格式并应用到Excel，示例代码片段：

' 示例：复制字体相关格式
With .cell(iRow, iCol).Range.Font
    targetCell.Font.Name = .Name
    targetCell.Font.Size = .Size
    targetCell.Font.Bold = .Bold
    targetCell.Font.Color = .Color
    targetCell.Font.Italic = .Italic
End With
' 还可以继续添加对齐方式、单元格边框等格式的复制逻辑

这种方法的优势是灵活可控，但代码量会更大，适合有特定格式需求的场景。

内容的提问来源于stack exchange，提问作者amit kumar sahu