将单元格值从excel复制并粘贴到word，而不更改格式

Question

我正在尝试将一个大的合并单元格“复制并粘贴”到Microsoft Word文件中。它工作正常，但格式不完全相同（全黑，没有粗体......）。 有没有办法可以保持相同的格式？ 这是我的代码：

Sub OpenMWord()

Dim oWApp As Object
Dim oWDoc As Object
Dim sText As String
Dim iCntr As Long
'
Set oWApp = New Word.Application
Set oWDoc = oWApp.Documents.Add() '("C:\Documents\Doc1.dot") 'You can     specify your template here
'
'Adding new Paragraph
'
Dim para As Paragraph
Set para = oWDoc.Paragraphs.Add
'
para.Range.text = textWORD

'
oWDoc.Paragraphs.Add

'
oWApp.Visible = True


End Sub

谢谢

Answer 1

从Excel复制单元格后，尝试使用

Selection.PasteExcelTable False, False, False

PasteExcelTable的参数是：
LinkedToExcel - 你想要假（或者你呢？）
WordFormatting - 你想要假
RTF - 富文本格式，你想要假。