Hi folks,

As a follow on to my previous question (Thanks again for the help)......I
want to copy and paste data from MS Excel into MS Word. Is this even possible
with VBA?

For example:

If I have text in cell B3, and I want to copy it into my MSWord document,
right justify it and format it to be Bold and Italic......then I want to
enter a space below this text in MS Word, and copy in the cell value from
cell A4 onto the next line of my Word document left justified?

Does that make sense....can I do this?

Jon Peltier has some really good information on this topic...

http://peltiertech.com/Excel/XL_PPT.html


Mark

"dimm" <(E-Mail Removed)> wrote in message
news:E314BA1C-AD78-4B32-BD2A-(E-Mail Removed)...
> Hi folks,
>
> As a follow on to my previous question (Thanks again for the help)......I
> want to copy and paste data from MS Excel into MS Word. Is this even
> possible
> with VBA?
>
> For example:
>
> If I have text in cell B3, and I want to copy it into my MSWord document,
> right justify it and format it to be Bold and Italic......then I want to
> enter a space below this text in MS Word, and copy in the cell value from
> cell A4 onto the next line of my Word document left justified?
>
> Does that make sense....can I do this?

Thankyou, that helps a lot, but I have another question. John gives a macro
example for pasting into word as below from Excel, but what if the user has
another instance of Word open apart from my file (myfile.doc).

How do I specify that myfile.doc should be selected instead of any other
open word document?


' Reference existing instance of Word
Set WDApp = GetObject(, "Word.Application")
' Reference active document
Set WDDoc = WDApp.ActiveDocument
' Reference active slide

' Copy the range
Selection.Copy

' Paste the range
WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
Placement:= wdInLine, DisplayAsIcon:=False

' Clean up
Set WDDoc = Nothing
Set WDApp = Nothing
End If

End Sub

"Mark Ivey" wrote:

> Jon Peltier has some really good information on this topic...
>
> http://peltiertech.com/Excel/XL_PPT.html

Jon may be able to answer that question better than me...

Mark

"dimm" <(E-Mail Removed)> wrote in message
news:358D8797-ABCF-45CF-A05E-(E-Mail Removed)...
> Thankyou, that helps a lot, but I have another question. John gives a
> macro
> example for pasting into word as below from Excel, but what if the user
> has
> another instance of Word open apart from my file (myfile.doc).
>
> How do I specify that myfile.doc should be selected instead of any other
> open word document?
>
>
> ' Reference existing instance of Word
> Set WDApp = GetObject(, "Word.Application")
> ' Reference active document
> Set WDDoc = WDApp.ActiveDocument
> ' Reference active slide
>
> ' Copy the range
> Selection.Copy
>
> ' Paste the range
> WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
> Placement:= wdInLine, DisplayAsIcon:=False
>
> ' Clean up
> Set WDDoc = Nothing
> Set WDApp = Nothing
> End If
>
> End Sub
>
> "Mark Ivey" wrote:
>
>> Jon Peltier has some really good information on this topic...
>>
>> http://peltiertech.com/Excel/XL_PPT.html

I just did this yesterday:
http://www.microsoft.com/office/comm...r=US&sloc=&p=1

Clearly, you will have to customize it a little for your own situation, but
that should give you (most of) what you want.


Regards,
Ryan--

--
RyGuy


"Mark Ivey" wrote:

> Jon may be able to answer that question better than me...
>
> Mark
>
> "dimm" <(E-Mail Removed)> wrote in message
> news:358D8797-ABCF-45CF-A05E-(E-Mail Removed)...
> > Thankyou, that helps a lot, but I have another question. John gives a
> > macro
> > example for pasting into word as below from Excel, but what if the user
> > has
> > another instance of Word open apart from my file (myfile.doc).
> >
> > How do I specify that myfile.doc should be selected instead of any other
> > open word document?
> >
> >
> > ' Reference existing instance of Word
> > Set WDApp = GetObject(, "Word.Application")
> > ' Reference active document
> > Set WDDoc = WDApp.ActiveDocument
> > ' Reference active slide
> >
> > ' Copy the range
> > Selection.Copy
> >
> > ' Paste the range
> > WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
> > Placement:= wdInLine, DisplayAsIcon:=False
> >
> > ' Clean up
> > Set WDDoc = Nothing
> > Set WDApp = Nothing
> > End If
> >
> > End Sub
> >
> > "Mark Ivey" wrote:
> >
> >> Jon Peltier has some really good information on this topic...
> >>
> >> http://peltiertech.com/Excel/XL_PPT.html
>