Paste "CopyPicture" from Excel into a existing Word Document at the end of the document

[CWever]

Hi All,

I have been trying to find a solution for a minor issue I am having.
I have an Excel with the following VBA code (below), which Copy a table (as a picture) and paste it into a 'open' word document.
I have this running. The issue is, it paste where the cursor is. This means, if the cursor is at the end of the document, it paste it where I want it.
However, if the cursor in between the text, I still want it to paste it at the end of the document. However, I can't get this to work, for the cursor to jump to the end of the document before the paste.

I have tried Endkey with move and so on, but I believe these VBA codes are for WORD VBA and not Excel VBA.

Any help would be much appreciated.

CWever

Please Login or Register  to view this content.

[GeoffW283]

I'm no expert in this area, but I did have a project recently when I wanted to do something similar.

What I did was create a bookmark in the MS-Word document at the point where the Excel data is to be pasted. I called the bookmark "t_schedule"

Then in Excel with wdDoc as the open MS-Word doc:

Please Login or Register  to view this content.

There's probably a cleaner way if you always want to go to the end programmatically.

If this doesn't work for you and there are no other responses you might want to ask a moderator to move this to the VBA section where you may be more likely to get help.

[CWever]

GeoffW283,

Yes I know of this "trick" with the Bookmark, however, the word documents is not always the same documents. And I'm not the one who is preparing the document. I'm creating a few excel templates which other will use to generate reports.
I will take up your idea to move the post.

MOD : would it be possible to move it to VBA thread? Thanks.

CWever

[AliGW]

Thread moved.

[karedog]

Maybe :

Please Login or Register  to view this content.

[CWever]

karedog,

Thanks that works.

Now I would like to understand why now the EndKey works, and what does the Const wdStory does.
Much Appreciated.

CWever

[karedog]

You are welcome.

Please read this webpage "Jumping to the Start or End of a Document" for Microsoft Word VBA :
https://word.tips.net/T000120_Jumpin..._Document.html

You can try to copy paste that code in your MsWord document to test that it really works.

Now, since we controlling the word document from Excel (not by Word itself), we must call this code as the method of Word object, by :
With wdAppExport '--> This is the Microsoft Word object
.Selection.EndKey Unit:=wdStory '--> because this code is between [With wdAppExport .. End With) block, so we can call the Word VBA method from here



And now about the wdStory,
Because the MsWord object is referred by late binding --> GetObject(, "Word.Application"), Excel will not understand the value of MsWord's builtin constants, i.e. wdStory, so we must tell Excel, what the value of this constant is, by this line :
Const wdStory As Long = 6

Of course, you can also directly use the number, like this :
.Selection.EndKey Unit:=6 '--> remove the "Const wdStory As Long = 6" code line, and replace the wdStory with "6", this will also worked
but it is not meaningful to the programmer, what is this "6" refer to ? If we write wdStory, it is easier for us to remember, oh we want go to then end of the Story.

That's it.

[CWever]

You are welcome.

Understood.

I went so deep in to understanding Early Binding and Late binding, that I didn't think of this the reason why wdStory wouldn't be recognize. That went over my head.
Thanks for explaining, now it is clear. And yes, I need Late Binding, because of different MS Office Versions and also different Win OS. This Template I'm creating is for 30 to 50 different people who will use it.

thanks again,

CWever