Data Automation from Excel to Word

Does anyone know how to get cell data (from multiple) cells into a Word
Document (New or a Template) by the click of a form button??

Adam,

The following Excel macro will copy all data from selected cells into a new
Word document

Sub moveToWord()
Set x = CreateObject("Word.Application")
x.Documents.Add
x.Visible = True

For Each cl In Selection

x.Selection.TypeText CStr(cl.Value)
x.Selection.TypeParagraph

Next
End Sub

http://HelpExcel.com

"Adam" wrote:

> Does anyone know how to get cell data (from multiple) cells into a Word
> Document (New or a Template) by the click of a form button??

So I just put this into the VBA code for a command button, correct?

"galimi" wrote:

> Adam,
>
> The following Excel macro will copy all data from selected cells into a new
> Word document
>
> Sub moveToWord()
> Set x = CreateObject("Word.Application")
> x.Documents.Add
> x.Visible = True
>
> For Each cl In Selection
>
> x.Selection.TypeText CStr(cl.Value)
> x.Selection.TypeParagraph
>
> Next
> End Sub
>
> http://HelpExcel.com
>
> "Adam" wrote:
>
> > Does anyone know how to get cell data (from multiple) cells into a Word
> > Document (New or a Template) by the click of a form button??

Forgot to mention that. You can tie this code to a form command button, or
use the code in between Sub and End Sub directly into a Command Button from
the Control Toolbox or a UserForm.

http://HelpExcel.com

"Adam" wrote:

> So I just put this into the VBA code for a command button, correct?
>
> "galimi" wrote:
>
> > Adam,
> >
> > The following Excel macro will copy all data from selected cells into a new
> > Word document
> >
> > Sub moveToWord()
> > Set x = CreateObject("Word.Application")
> > x.Documents.Add
> > x.Visible = True
> >
> > For Each cl In Selection
> >
> > x.Selection.TypeText CStr(cl.Value)
> > x.Selection.TypeParagraph
> >
> > Next
> > End Sub
> >
> > http://HelpExcel.com
> >
> > "Adam" wrote:
> >
> > > Does anyone know how to get cell data (from multiple) cells into a Word
> > > Document (New or a Template) by the click of a form button??