将Word复制到Excel并清除剪贴板消息IN WORD

Question

我正在从word doc复制到excel工作表。

但是，如果没有“剪贴板中的大量数据”对话框弹出，我就不能让Word应用程序退出。

Sub TKButton()

Dim wrdApp As Object
Dim wrdDoc As Object

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Open(thisisthefilepath.doc)

wrdApp.Selection.WholeStory
wrdApp.Selection.Copy

Sheets("TK").Paste Destination:=Sheets("TK").Range("A2")

wrdApp.Documents.Close (False)
wrdApp.Quit
Set wrdApp = Nothing

我试过了：

Application.displayAlerts = False

wrdApp.displayAlerts = False

wrdApp.cutcopymode = False

似乎没有什么能阻止它发生。