Copied excel table to Word, but need Word opening in landscape

Im not sure if this is possible or not, so I wanted to reach out. I currently have a macro to copy my excel table and have this table opened up in Word...and it works great. The only other thing I am trying to do is have this table viewed in landscape when word opens up instead of changing it to landscape within Word every single time I use this macro. Is this at all possible?

If there's a better way to have these tables fully viewable in word without changing it to landscape in general or changing anything within Word itself, then please inform me. I will not be the one viewing these copied tables, which is why I am asking if theres a way to code this so these tables are fully viewable upon Word opening up.

Here's the working code I have that opens up the copied table in Word...if that matters:

Please Login or Register  to view this content.

Thanks!

May I ask why you want it in Word?
You don't mention anything else like if it's part of a report or so or is it just that you don't what to send the the whole Excel file?
If this last is the reason you can format the worksheet as you would when you print it and then save the worksheet as loose PDF file.

Try:

Please Login or Register  to view this content.

Hello jennis7242,

The Code posted by macropod works flawlessly, but in VBE you will first have to enable MicrosoftWord ("Some Number") Object Library. In Office 2010 it is MicrosoftWord 14.0 Object Library.

HTH

Regards.

Originally Posted by Winon

The Code posted by macropod works flawlessly, but in VBE you will first have to enable MicrosoftWord ("Some Number") Object Library.

Given that jennis7242 already had:
Dim AppWord As Word.Application
it seemed self-evident the reference had already been set.

@ macropod,

That was exactly what I assumed as well, until I tested his and your Code. His Copy does Paste to Word, but only in Portrait. Your Code also erred with a message "Variable not defined". After I selected the Microsoftword Object Library, did your Code work as well, setting Word to Landscape. It will not work otherwise.

Regards.

If you don't have a reference to Word, the code posted by jennis7242 will error-out with 'Compile error: User-defined type not defined'.

This is how I have tested the Code posted by jennis7242;

Please Login or Register  to view this content.

If you test it, it only Pastes to Word in Portrait. Your Code does also not work without my instructions as posted in Post# 6.

As you post clearly shows, you changed the code by commenting-out As Word.Application. That is not how jennis7242 posted it...

If you're going to 'correct' me, you might at least test the code as posted.

I am not fighting with you macropod,

If you're going to 'correct' me, you might at least test the code as posted.

and that is exactly what I did, but your Code erred with a message saying, 'Compile error: User-defined type not defined'. Only when I selected the Microsoftword Object Library, did your Code work, setting Word to Landscape without any other issues. Please understand that it is not me trying to correct you, but rather sharing what I found happening on my System, which is running Windows 7 Professional with Office 2010. Hence my recommendation as mentioned in Post# 6.

Your Comment as per Post# 7,

Given that jennis7242 already had:
Dim AppWord As Word.Application
it seemed self-evident the reference had already been set.

proved not to be so, as his Code, with me commenting out -'As Word.Application, did copy to Word, but only in Portrait, without me having had to select the Microsoftword Object Library at all.

Regards.

Originally Posted by Winon

Your Comment as per Post# 7,

Originally Posted by macropod

Given that jennis7242 already had:
Dim AppWord As Word.Application
it seemed self-evident the reference had already been set.

proved not to be so, as his Code, with me commenting out -'As Word.Application, did copy to Word, but only in Portrait, without me having had to select the Microsoftword Object Library at all.

Rubbish, is all I can say. Try starting Excel again and running the code as posted by jennis7242, without a Word library reference.

Rubbish, is all I can say. Try starting Excel again and running the code as posted by jennis7242, without a Word library reference.

Before you make such a statement, please disable Word library reference on your system and test the attachment with my commenting out 'As Word.Application, then we'll see who is talking "Rubbish"!

Also regard this as my last comment to you on this Thread.

Thank you for the sample Winon. Nice to learn new stuff.

Cheers

Originally Posted by Winon

Before you make such a statement, please disable Word library reference on your system and test the attachment with my commenting out 'As Word.Application, then we'll see who is talking "Rubbish"!

The rubbish is the implication in your post #12 that not commenting out that line and not having a Word reference doesn't produce an error...

The rubbish is the implication in your post #12 that not commenting out that line and not having a Word reference doesn't produce an error...

Rubbish! Winon did not say what you accuse him of in Post 12.

I suggest you read the whole thread, not just post #12 in isolation.

You isolated Post 12, quoting Winon incorrectly. That is Rubbish!

You also quite comfortably choose to ignore his Post with a sample Workbook and instructions, which clearly shows your ignorance. I have tested it and it does exactly what he says. No wonder Winon is ignoring your selective self justification rubbish! Just try to be fair, and test Post 15, and be big enough to admit that Winon did prove you wrong.

@ myou,

Hi myou, thank you for your interest in this Thread but, as a favour, just let it be. I believe that anyone who reads this complete thread will draw their own conclusions based on my sample Workbook.

Just let it go please.

macropod has contradicted himself many a time, and is now groping with feeble excuses to escape embarrassment.

Regards.