复制范围从excel到word - 将段落间距设置为零

Question

我正在尝试将格式化的范围从excel复制到word。为此，我使用下面的代码（Macro to copy excel range of data as table to word goes outside margins）。除行间距外，它工作正常。在excel中，我不使用行间距（如果我理解正确，则不能在单元格内控制）。当我复制到单词时，除了在段落后设置为10的行间距外，一切正常。

因此，有没有办法控制VBA宏中的行间距（设置为零），该行从excel复制到word并保留所有其他excel格式？

Sub ExportToWord()

Dim wdApp As Object
Dim wd As Object

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
    Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wd = wdApp.Documents.Add

wdApp.Visible = True

ThisWorkbook.Worksheets("sheetName").Range("table").Copy

wdApp.Selection.PasteExcelTable False, False, False

End Sub