Copy Word into Excel and clear Clipboard message IN WORD

Asked Apr 21 '16 at 19:59

Active Apr 21 '16 at 20:20

Viewed 69 times

I am copying from word doc to excel worksheet.

However I cannot not get the Word App to quit without the "Large amount of data in clipboard" dialog box popping up at the end.

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

I have tried:

Application.displayAlerts = False

wrdApp.displayAlerts = False

wrdApp.cutcopymode = False

Nothing seems to stop it from happening.

edited Apr 21 '16 at 20:20

asked Apr 21 '16 at 19:59

Wifil

1

OR just add `wrdApp.Application.CutCopyMode = False` before the line to close the document. – BruceWayne Apr 21 '16 at 20:05
@BruceWayne wrdApp.Application.CutCopyMode = False gives me a runtime error object doesn't support this property or method. – Wifil Apr 21 '16 at 20:08
What about just `Application.cutCopyMode = False`? (Or alternatively, skip the clipboard completely and just set the two ranges equal to eachother?) – BruceWayne Apr 21 '16 at 20:10
@BruceWayne it doesn't throw an error nor stop the problem. – Wifil Apr 21 '16 at 20:11
I don't see you using the `.putinClipboard` method anywhere. But I'm the one that doesn't read.... -1 – MoondogsMaDawg Apr 21 '16 at 20:13
Before closing, what if you copy a tiny bit of data? Hopefully then it'll be so little the prompt isn't necessary. – BruceWayne Apr 21 '16 at 20:13
1

Word doesn't have CutCopyMode, that's an Excel thing. Copying a single character works well. – Cindy Meister Apr 21 '16 at 20:28

Copy Word into Excel and clear Clipboard message IN WORD

0 Answers0