Send data to Word document

  • Thread starter Thread starter Tizz
  • Start date Start date
T

Tizz

This seems like a very easy task, but I just can't seem to get started. I
have an Excel spreadsheet that has lots of data. I want to programically
send data from the spreadsheet to the existing Word document.

Step 1: Open the file. The full path of the file is in cell A1.
Step 2: Export data. For instance, I need cell A5 data to be placed at the
bookmark named "Inflation." The data in cell A6 needs to be placed at the
bookmark named "Return"

Thanks for any help!!!
 
This seems like a very easy task, but I just can't seem to get started. I
have an Excel spreadsheet that has lots of data. I want to programically
send data from the spreadsheet to the existing Word document.

Step 1: Open the file. The full path of the file is in cell A1.
Step 2: Export data. For instance, I need cell A5 data to be placed at the
bookmark named "Inflation." The data in cell A6 needs to be placed at the
bookmark named "Return"
Click to expand...

This is fairly rudimenatary (especially in error handling) but it
should get you started.

First, in Excel's Visual Basic Editor go to the Tools menu ->
References item, and find the Microsoft Word Object Library for your
version of Word. Check the box next to it.

Now you can use this:

Sub ExportDataToWord()

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

If Dir(Range("A1").Value, vbNormal) = "" Then
MsgBox "The file specified in cell A1 cannot be found."
Exit Sub
End If

Set wdApp = CreateObject("Word.Application")

wdApp.Visible = True

Set wdDoc = wdApp.Documents.Open(Range("A1").Value)

With wdApp
.Selection.GoTo What:=wdGoToBookmark, Name:="Inflation"
.Selection.TypeText Text:=Range("A5").Value
.Selection.GoTo What:=wdGoToBookmark, Name:="Return"
.Selection.TypeText Text:=Range("A6").Value
End With

Set wdDoc = Nothing
Set wdApp = Nothing

End Sub
 
Thank you!!!


Hank Scorpio said:
This is fairly rudimenatary (especially in error handling) but it
should get you started.

First, in Excel's Visual Basic Editor go to the Tools menu ->
References item, and find the Microsoft Word Object Library for your
version of Word. Check the box next to it.

Now you can use this:

Sub ExportDataToWord()

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

If Dir(Range("A1").Value, vbNormal) = "" Then
MsgBox "The file specified in cell A1 cannot be found."
Exit Sub
End If

Set wdApp = CreateObject("Word.Application")

wdApp.Visible = True

Set wdDoc = wdApp.Documents.Open(Range("A1").Value)

With wdApp
.Selection.GoTo What:=wdGoToBookmark, Name:="Inflation"
.Selection.TypeText Text:=Range("A5").Value
.Selection.GoTo What:=wdGoToBookmark, Name:="Return"
.Selection.TypeText Text:=Range("A6").Value
End With

Set wdDoc = Nothing
Set wdApp = Nothing

End Sub
Click to expand...
 
Back
Top