Requesting VBA Code to Copy from Word as Bmp

Hi. I have a Word doc which consists of of some paragraphs of text,
tables, and a few inserted pictures. The contents of this Word doc
are constantly changing. My aim is to copy all of its contents as a
single bmp file, and then paste this bmp file into an Excel xls file.

The steps I've used to try to do this manually are:
(1) Ctrl & A (select all)
(2) Ctrl & C (copy)
(3) place my cursor at the desired location on the Excel file and
use Edit > Paste Special - Picture (Enhanced Metafile).

The resulting paste into Excel does include all the text and table info
but not any of the pictures. I am hoping for the means to get a
"complete" copy and paste (that includes any inserted pictures from
the Word doc), and the proper Word VBA code to do this.

I know the Word VBA for steps 1 and 2 are:

Selection.WholeStory
Selection.Copy

Since the second line of code above does not perform a
"complete" copy, I'm sure that line will have to be changed.

Could you please tell me what the proper code would be to
achieve this? I would be most appreciative for your help.

(By the way. To me it is "odd" that this can be easily done from
Excel into Word. In Excel, if you paint in an area while holding
down the Shift key, you will be able to copy any of its contents
(including bitmaps) and then paste this as a single bitmap
into Word. I say "odd", because I would have thought this to be
a simple matter going from Word into Excel.)

I look forward to your answers and you have my sincere thanks.

God bless you.

Ken Wilson

Shauna
Fri Aug 04 18:54:00 CDT 2006

Hi Ken

I can't reproduce what you're experiencing. That is, when I do ctrl-a,
ctrl-c and then (in Excel) Edit > Paste Special as a picture I bring in
text, tables and pictures, whether the pictures are in-line or floating.

Can you tell us what version of Word you're using, and tell us some more
about the pictures: how were they inserted into the Word document?

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word


<KenWilson1000@gmail.com> wrote in message
news:1154707706.264758.74500@s13g2000cwa.googlegroups.com...
> Hi. I have a Word doc which consists of of some paragraphs of text,
> tables, and a few inserted pictures. The contents of this Word doc
> are constantly changing. My aim is to copy all of its contents as a
> single bmp file, and then paste this bmp file into an Excel xls file.
>
> The steps I've used to try to do this manually are:
> (1) Ctrl & A (select all)
> (2) Ctrl & C (copy)
> (3) place my cursor at the desired location on the Excel file and
> use Edit > Paste Special - Picture (Enhanced Metafile).
>
> The resulting paste into Excel does include all the text and table info
> but not any of the pictures. I am hoping for the means to get a
> "complete" copy and paste (that includes any inserted pictures from
> the Word doc), and the proper Word VBA code to do this.
>
> I know the Word VBA for steps 1 and 2 are:
>
> Selection.WholeStory
> Selection.Copy
>
> Since the second line of code above does not perform a
> "complete" copy, I'm sure that line will have to be changed.
>
> Could you please tell me what the proper code would be to
> achieve this? I would be most appreciative for your help.
>
> (By the way. To me it is "odd" that this can be easily done from
> Excel into Word. In Excel, if you paint in an area while holding
> down the Shift key, you will be able to copy any of its contents
> (including bitmaps) and then paste this as a single bitmap
> into Word. I say "odd", because I would have thought this to be
> a simple matter going from Word into Excel.)
>
> I look forward to your answers and you have my sincere thanks.
>
> God bless you.
>
> Ken Wilson
>

KenWilson1000
Sat Aug 05 06:14:55 CDT 2006

Thank you, Shauna, for replying. You are right. I re-tried the steps
mentioned
and all seemed to work fine today. (Even the pictures were included int
the
created bitmap.) Why I had problems yesterday, I don't know. Hot
weather?
My computer? Microsoft?

Anyway, thanks again, and ahve a beauttiful and happy day!!

Ken

Shauna Kelly wrote:
> Hi Ken
>
> I can't reproduce what you're experiencing. That is, when I do ctrl-a,
> ctrl-c and then (in Excel) Edit > Paste Special as a picture I bring in
> text, tables and pictures, whether the pictures are in-line or floating.
>
> Can you tell us what version of Word you're using, and tell us some more
> about the pictures: how were they inserted into the Word document?
>
> Hope this helps.
>
> Shauna Kelly. Microsoft MVP.
> http://www.shaunakelly.com/word
>
>
> <KenWilson1000@gmail.com> wrote in message
> news:1154707706.264758.74500@s13g2000cwa.googlegroups.com...
> > Hi. I have a Word doc which consists of of some paragraphs of text,
> > tables, and a few inserted pictures. The contents of this Word doc
> > are constantly changing. My aim is to copy all of its contents as a
> > single bmp file, and then paste this bmp file into an Excel xls file.
> >
> > The steps I've used to try to do this manually are:
> > (1) Ctrl & A (select all)
> > (2) Ctrl & C (copy)
> > (3) place my cursor at the desired location on the Excel file and
> > use Edit > Paste Special - Picture (Enhanced Metafile).
> >
> > The resulting paste into Excel does include all the text and table info
> > but not any of the pictures. I am hoping for the means to get a
> > "complete" copy and paste (that includes any inserted pictures from
> > the Word doc), and the proper Word VBA code to do this.
> >
> > I know the Word VBA for steps 1 and 2 are:
> >
> > Selection.WholeStory
> > Selection.Copy
> >
> > Since the second line of code above does not perform a
> > "complete" copy, I'm sure that line will have to be changed.
> >
> > Could you please tell me what the proper code would be to
> > achieve this? I would be most appreciative for your help.
> >
> > (By the way. To me it is "odd" that this can be easily done from
> > Excel into Word. In Excel, if you paint in an area while holding
> > down the Shift key, you will be able to copy any of its contents
> > (including bitmaps) and then paste this as a single bitmap
> > into Word. I say "odd", because I would have thought this to be
> > a simple matter going from Word into Excel.)
> >
> > I look forward to your answers and you have my sincere thanks.
> >
> > God bless you.
> >
> > Ken Wilson
> >