excel - VBA：将表格从 Excel 粘贴到 Word 在 Mac 上崩溃

Question

以下 VBA 代码在 Windows 中完美运行，可以从 Excel 复制表格并将其粘贴到 Word 模板中。

在 Mac 上，粘贴步骤不起作用并导致 Excel 和 Word 崩溃（没有错误消息，只是停止响应，我必须强制退出）。

我试过使用

.Selection.PasteAndFormat Type:=wdFormatOriginalFormatting

代替

.Selection.PasteExcelTable False, False, False

但我得到了同样的行为。

如果我在最后一步之前停止宏，然后手动粘贴到 Word 中，它就可以工作。该表已正确复制到剪贴板中，我可以粘贴它。

Sub testPasteMac()

Dim wordApp As Object
Dim FName As String
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1")

'Copy the table from Excel
ws.Range("A1:E4").Copy

'Open Word
On Error Resume Next
Set wordApp = GetObject(, "word.Application")
If Err = 429 Then
    Set wordApp = CreateObject("word.Application")
    Err.Clear
End If

'Display Word application
On Error Resume Next
wordApp.Activate
On Error GoTo 0

'Path to Word template file
FName = ThisWorkbook.Path & Application.PathSeparator & "FileName.dotx"

'Open template as new file
wordApp.Documents.Add Template:=FName

'Paste clipboard into Word document
With wordApp
    .Selection.Goto what:=-1, Name:="bookmarkName"
    .Selection.PasteExcelTable False, False, False
    '.Selection.PasteAndFormat Type:=wdFormatOriginalFormatting
End With

End Sub

我使用 Excel for Mac 版本 16.18 VisualBasic 7.1

标签： excelvbamacosms-word