将Excel范围复制到Word作为表问题

Question

我在复制Excel范围并通过VBA将其粘贴为Word中的表格时遇到问题。 当我使用以下内容将Excel表复制并粘贴到Word时，我的超链接不会复制过来（ExcelDataRange是Excel.Range，WordText = MyWordDoc.Selection）。

ExcelDataRange.Copy
WordText.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True

所以我的解决方法是通过这样的循环一次插入一个超链接（ Set WordTable = MyWordDoc.Tables(NewlyAddedTable) ）：

For J = 1 To WordTable.Columns.Count
    If LenB(ExcelDataRange.Cells(4, J).Value2) > 0 Then
        MyWordDoc.Hyperlinks.Add WordTable.Cell(4, J).Range, _
        ExcelDataRange.Cells(4, J).Hyperlinks(1).Address, ExcelDataRange.Cells(4, J).Hyperlinks(1).SubAddress
    End If
Next J

此方法的问题是.SubAddress不能从Excel完全复制过来。 我的链接包含：“ \\\\ NetworkName \\ ItemOfInterest”，但复制结果为“ \\ NetworkNameItemOfInterest”。 第一个反斜杠和中间的反斜杠正在丢失。

如果我手动将表格从Excel复制并粘贴到Word，则超链接将存在且正确。

编辑：我正在使用RTF：= True来使表具有与Excel完全相同的格式，但这不是继承超链接的内容。 我之所以使用此参数，是因为当设置为false时，行高是不可调整的。

Answer 1

我正在使用RTF：= True参数将Excel范围的格式导入Word表中，但这不允许复制超链接。 因此，我使用了：

.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=True, RTF:=False

RTF:=False允许超链接正确插入。 缺点是我必须添加额外的代码来格式化Word表以匹配Excel范围。