VBA - 将 Excel 表格转换为 Word 中的文本答案

【问题标题】：VBA - Convert Excel Table to Text in WordVBA - 将 Excel 表格转换为 Word 中的文本
【发布时间】：2016-04-04 16:56:08
【问题描述】：

我的目标是将 Excel 表格转换为文本

我在 Excel 中复制了范围，然后出现以下代码...

' =============== ' 在 WORD 中转换 ' ===============

Dim wApp As Word.Application
Dim wDoc As Word.Document

Set wApp = CreateObject("word.application")
wApp.Visible = True

Set wDoc = wApp.Documents.Add

With wDoc.Content
    .PasteExcelTable False, False, False
    .Tables(1).Select
    .Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True
End With

最后一行代码失败，抛出运行时错误 5907...此位置没有表。

这是一个用 Word 本身编写的宏，在我手动粘贴到 Word 后运行没有错误，但我想使用上述解决方案，因为我也在 Excel 中运行此表上的代码，然后将其导入 Word 并尝试使用一个例程而不是两个例程。

With Selection
    .WholeStory
    .PasteExcelTable False, False, False
    .Tables(1).Range.Select
    .Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _
        NestedTables:=True
End With

感谢您的帮助... grinnZ

【问题讨论】：

标签： vba excel ms-word

【解决方案1】：

With wDoc.Content
    .PasteExcelTable False, False, False
    .Tables(1).Rows.ConvertToText _
                Separator:=wdSeparateByDefaultListSeparator, _
                NestedTables:=True
End With

【讨论】：

您的解决方案有效。如果我有代表，我会投票。谢谢。
您不需要投票，但如果它解决了您的问题，那么单击复选标记将其标记为答案将对遇到相同问题的其他人有所帮助。