format word table exported from excel

[gremlins]

I have some excel vba that produces different types of reports from a form. One of the options is to export the data to word. In order to do this I copy the part of the spreadsheet and paste it into word using the following code:

Set wordobj = CreateObject("Word.Application")
With wordobj
...
Worksheets("chartdata").Select
Worksheets("chartdata").Range("A1:G19").Select
Selection.Copy
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
.typeparagraph
.typeparagraph
.ParagraphFormat.Alignment = 0
.Paste

the problem is that the table spills over the right hand side of the page. I need to move the table to the left slightly so that all the cells fit on the page. Is there any way to either change the word page indents or select the table and move it?

Cheers

 

[Dreamboat]

In Word, at least (I'm no coder), you can Edit-Go to-Table...

And then you could do Table-Properties and center it on the page?

You can record those macros to get the code...

Anne Troy

http://www.vbaexpress.com/forum

 

[SkipVought]

...or

insert a section break-next page

change the page orientation to landscape

insert the excel table

insert a section break-next page

change the page orientation to portrait.

Skip,

_{[red]Be advised:[/red]
Alcohol and Calculus do not mix!
If you drink, don't derive!}

 

[Naug]

insert a section break-next page

change the page orientation to landscape

insert the excel table

insert a section break-next page

change the page orientation to portrait.



and how is that done? also how to remove that break afterwords?

 

[macropod]

Hi Gremlins,

Using the macro recorder to move the table to 1cm left of the left margin returns the following line of code:
Selection.Tables(1).Rows.LeftIndent = CentimetersToPoints(-1)
Try using that as your starting point.

Cheers