Hi, I use code that sends a range of excel tables to bookmarks in word. It
all works well (I have modified the following code if curious
http://www.vbaexpress.com/kb/getarticle.php?kb_id=133 )

Once a table or picture is sent to word, I'd like to be able to format it Eg
IncrementRotation -90 or wdAutoFitContent


I get a run time error on the 3rd line of the following code:

appWrd.Selection.PasteSpecial DataType:=wdPasteRTF, Placement:=wdInLine
appWrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
appword.Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

I've tried a few ways of trying to pick up the table i've just created in
word, but struggling.

Any help would be appreciated.

Regards
Simon

Probably a typo: yo types appword instead of appWrd

Cheers
--
AP

"Simon" a écrit dans le message de news:
...
Hi, I use code that sends a range of excel tables to bookmarks in word. It
all works well (I have modified the following code if curious
http://www.vbaexpress.com/kb/getarticle.php?kb_id=133 )

Once a table or picture is sent to word, I'd like to be able to format it
Eg
IncrementRotation -90 or wdAutoFitContent


I get a run time error on the 3rd line of the following code:

appWrd.Selection.PasteSpecial DataType:=wdPasteRTF, Placement:=wdInLine
appWrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
appword.Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

I've tried a few ways of trying to pick up the table i've just created in
word, but struggling.

Any help would be appreciated.

Regards
Simon

Hi, thanks Ardus....you were correct....table works ok now.

However I'm still having trouble trying the control a 'picture' in word. I'm
using the following code:

appWrd.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile,
Placement:=wdInLine
appWrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
appWrd.Selection.Shape(1).ShapeRange.IncrementRota tion -90

I get a run time error on the third line. Any idea how I can rotate the
picture I have just pasted into word?


"Ardus Petus" wrote:

Probably a typo: yo types appword instead of appWrd

Cheers
--
AP

"Simon" a écrit dans le message de news:
...
Hi, I use code that sends a range of excel tables to bookmarks in word. It
all works well (I have modified the following code if curious
http://www.vbaexpress.com/kb/getarticle.php?kb_id=133 )

Once a table or picture is sent to word, I'd like to be able to format it
Eg
IncrementRotation -90 or wdAutoFitContent


I get a run time error on the 3rd line of the following code:

appWrd.Selection.PasteSpecial DataType:=wdPasteRTF, Placement:=wdInLine
appWrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
appword.Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

I've tried a few ways of trying to pick up the table i've just created in
word, but struggling.

Any help would be appreciated.

Regards
Simon