1

我有一个宏，该宏当前从 Excel 电子表格中的一系列单元格中复制表格，然后将其粘贴到 Word 文档（该文档之前在宏中创建为 WordApp）。但是，我希望使用粘贴选项“使用目标样式”将其粘贴到 Word 文档中，该选项是 Word 中的粘贴样式选项之一。有谁知道是否有办法将它嵌入到 Excel 的 VBA 代码中？

这是我当前的代码（假设“WordApp”是暗字应用程序，并且代码中已经包含了一个新文档）。

         'Select table data
            Sheets("Sheet3").Select
            Range("I11:P18").Select
            Selection.Copy
         'Paste table into word doc
            WordApp.Selection.TypeParagraph
            WordApp.Selection.Paste

任何帮助将不胜感激，因此我终于可以完成这个巨大的 VBA 项目！

编辑：

不幸的是，这不起作用——它以我不想要的格式粘贴它。我尝试使用此代码，但出现运行时错误 5342，显示“指定的数据类型不可用”并突出显示 .PasteAndFormat 代码行。有谁知道为什么会出现错误？我从对象浏览器中获得了该代码，所以我不确定它为什么无法识别它：

        Sheets("Sheet3").Select
        Range("H21:P34").Select
        Selection.Copy
    'Paste Q1-7 table into word doc
        WordApp.Selection.PasteAndFormat (WdPasteOptions.wdUseDestinationStyles)

拜托，谁能解决这个问题，我将不胜感激。这是我一直在研究的一个巨大的宏项目的最后一个细节，我只想总结一下。

4

2 回答 2

2

I figured it out on my own. Here's the code that pastes it as a table, the way that I wanted it to be pasted, without having to use word's paste as destination styles option.

        Sheets("Sheet3").Select
        Range("H21:P34").Select
        Selection.Copy
    'Paste Q1-7 table into word doc
        WordApp.Selection.PasteExcelTable False, True, False
于 2013-09-06T15:41:53.997 回答
-1 
WordApp.Selection.Range.PasteSpecial DataType:=wdPasteText

这行得通吗？我有一个宏，它只将一个单元格文本粘贴到 Word 中，但我没有可用资源在 Word 中测试它。

于 2013-09-05T17:29:48.423 回答