ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Export cell data to a template in Word (https://www.excelbanter.com/excel-programming/394708-export-cell-data-template-word.html)

Mike

Export cell data to a template in Word
 
Good Morning All,

I have worked with macros in Excel before and with the help of this
discussion board managed to make some very complicated stuff work.

Now, I have a different problem...

I have data in an Excel sheet and based on that data I must compile a report
in Word.

The sheet is structured as follows:

Criteria - Company A - Company B - Company C

Info 1
Info 2
Info 3


Is it possible to create a macro to take information from each criteria and
each company and export that information to a template in Word (Basically
filling in the blanks). If it is possible, where should I begin?

Thanks,

Mike

[email protected]

Export cell data to a template in Word
 
On 3 Aug, 08:58, mike wrote:
Good Morning All,

I have worked with macros in Excel before and with the help of this
discussion board managed to make some very complicated stuff work.

Now, I have a different problem...

I have data in an Excel sheet and based on that data I must compile a report
in Word.

The sheet is structured as follows:

Criteria - Company A - Company B - Company C

Info 1
Info 2
Info 3

Is it possible to create a macro to take information from each criteria and
each company and export that information to a template in Word (Basically
filling in the blanks). If it is possible, where should I begin?

Thanks,

Mike


Yes, no problem at all - something like



Dim appwd As Object
On Error GoTo notloaded
Set appwd = GetObject(, "Word.Application")
notloaded:
If Err.Number = 429 Then
Set appwd = CreateObject("Word.Application")
End If
appwd.Visible = True
On Error GoTo 0
With appwd
.documents.Add Template:="Path and Name of Template"
'now fill out the document
appwd.activedocument.bookmarks("Whatever").Range.T ext =
Range("Wherever").Value

end with
set appwd=nothing



All times are GMT +1. The time now is 02:03 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com