如何将Word 2013中带格式的段落复制到Excel并保留格式？

我之前也踩过Word和Excel格式交互的坑！你的代码现在只粘贴了格式却没带上文本内容，这就是核心问题。下面给你两种可行的解决方案，帮你实现带格式文本的完整复制：

方案一：用xlPasteFormattedText同时粘贴文本和格式 #

这个参数会直接把Word段落的带格式文本完整导入Excel单元格，是最直接的实现方式：

Private Sub Load_Schedule()
    Dim ParaCount As Integer
    Dim targetSheet As Worksheet
    
    ' 提前缓存工作表对象，减少重复调用开销
    Set targetSheet = Sheets(FileName)
    targetSheet.Activate
    targetSheet.Columns(1).AutoFit
    
    For ParaCount = 1 To wDoc.Paragraphs.Count
        ' 复制Word段落的完整带格式内容
        wDoc.Paragraphs(ParaCount).Range.Copy
        ' 粘贴带格式文本到目标单元格
        targetSheet.Cells(ParaCount, 1).PasteSpecial _
            Paste:=xlPasteFormattedText, _
            Link:=False, _
            DisplayAsIcon:=False
    Next ParaCount
    
    ' 清空剪贴板，避免影响后续操作
    Application.CutCopyMode = False
End Sub

方案二：不依赖剪贴板，直接通过对象模型传递（更高效） #

如果不想用剪贴板，可以分开处理文本内容和格式，运行速度会更快：

Private Sub Load_Schedule()
    Dim ParaCount As Integer
    Dim targetSheet As Worksheet
    Set targetSheet = Sheets(FileName)
    
    targetSheet.Activate
    targetSheet.Columns(1).AutoFit
    
    For ParaCount = 1 To wDoc.Paragraphs.Count
        With wDoc.Paragraphs(ParaCount).Range
            ' 先赋值纯文本内容
            targetSheet.Cells(ParaCount, 1).Value = .Text
            ' 再复制格式到单元格
            .Copy
            targetSheet.Cells(ParaCount, 1).PasteSpecial Paste:=xlPasteFormats
        End With
    Next ParaCount
    
    Application.CutCopyMode = False
End Sub

为什么原代码没生效？ #

你原代码里用Range.FormattedText.Copy后，只调用了xlPasteFormats——这个参数仅粘贴格式，不粘贴文本内容，所以单元格要么是空的，要么只有格式没有文字。换成xlPasteFormattedText就会同时把文本和格式都导入进来。

额外：项目符号的保留 #

如果你还要把项目符号同步到相邻单元格，可以在循环里加这段判断：

With wDoc.Paragraphs(ParaCount).Range.ListFormat
    If .ListType <> wdListNoNumbering Then
        targetSheet.Cells(ParaCount, 2).Value = .ListString
    End If
End With

注意：Word里的一些复杂格式（比如多级列表、特殊艺术字）可能无法在Excel中完全还原，这是因为两个软件的格式系统存在差异。如果遇到这种情况，你可能需要用VBA逐个设置单元格的格式属性（比如字体、颜色、缩进等）来模拟Word的格式效果。

内容的提问来源于stack exchange，提问作者Rod Naugler