VBA code to import data from excel to word

[danboi1010]

Hi, I am trying to get a macro to insert the data held in cell a1 into a word letter.

Private Sub CommandButton1_Click()

'Open Word


Dim WrdApp As Word.Application
Dim WrdDoc As Word.Document
Dim MyText As String
Dim Selection As String








Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = True
WrdApp.Activate
Set WrdDoc = WrdApp.Documents.Add






WrdApp.Selection.TypeText Text:="Hello"
WrdApp.Selection.TypeParagraph
WrdApp.Selection.TypeParagraph
WrdApp.Selection.TypeText Text:="Bye"
WrdApp.Selection.TypeParagraph
WrdApp.Selection.TypeParagraph






WrdApp.ActiveDocument.SaveAs Filename:="C:\Users\Dan.docx"


WrdApp.Quit




End Sub

This code does exactly what i want it to do but i cannot work out how to import the data held in a1 into the word letter.

I feel like it should be

WrdApp.Selection.cell = ("A1")

but of course it's not!

Any help would be great. Thanks.Dan.

 

[Macropod]

You really shouldn't be working with Selections; Use range objects instead. For example:
WrdDoc.Tables(1).Cell(1,1).Range.Text = "Hello World!"

 

[danboi1010]

HI Macropod,

Thanks for that. TBH i haven't a clue when it comes to macros! I just recorded one and then followed the text. The reason i'm using selection is because i want to write a full letter within the VB code rather than use mail merge, and at certain points I would like to be able to import data from a cell rather than type in "Hello Word" eg. select cell a1 and for the data held in that cell to appear in the word letter. I hope that makes a bit of sense!

 

[Macropod]

i want to write a full letter within the VB code rather than use mail merge, and at certain points I would like to be able to import data from a cell rather than type in "Hello Word" eg. select cell a1 and for the data held in that cell to appear in the word letter.

You might save yourself a lot of work using a mailmerge. That said, you could replace "Hello World!" with the appropriate worksheet/cell reference (e.g. ActiveSheet.Range("A1").Text)