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" <(E-Mail Removed)> a écrit dans le message de news:
DBEFE093-AEFB-48A1-8346-(E-Mail Removed)...
> 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.IncrementRotation -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" <(E-Mail Removed)> a écrit dans le message de news:
> DBEFE093-AEFB-48A1-8346-(E-Mail Removed)...
> > 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
> >
> >
> >
> >
>
>
>