Import Access Information into Word

[PhilOwens]

Hi all,

I was hoping that someone could point me in the right direction or if nothing more, tell me that I am attempting the impossible (which I think I very well might be).

Quick overview - I have a form which shows and allows the modification of data. This all works well. I have created 2 buttons, one opens an Excel file and enters data into the template.....co de as follows (thanks to people for helping me with this bit of code a few days ago!!!)

Set appExcel = CreateObject("E xcel.Applicatio n")

With appExcel
.UserControl = True
Set wkbWorkBook = .workbooks.Open (TemplatePathAs system)
If Err <> 0 Then
MsgBox "Template file not found", vbOKOnly + vbCritical, "Error"
.Quit
GoTo ExitSub
End If
.Visible = True
End With

appExcel.Cells( 10, 4) = tbox_DRL
appExcel.Cells( 11, 4) = tbox_DocNo
appExcel.Cells( 12, 4) = tbox_Rev
appExcel.Cells( 13, 4) = getuser

This works happily but I have also been asked to enter similar data into a word document template. I use similar code to open the word template.

Set wdApp = CreateObject("W ord.Application ")

With wdApp

Set wdDoc = .Documents.Open (TemplatePath)

If Err.Number <> 0 Then 'Word isn't already running
MsgBox "Template file not found", vbOKOnly + vbCritical, "Error"
.Quit
GoTo ExitSub
End If
.Visible = True
End With

wdApp.Visible = True


The word template consists of a single table in which the data needs to be added.

Is it possible to direct the information into the correct cells on the word document?

Cheers

Phil

[FishVal]

Hi all,

I was hoping that someone could point me in the right direction or if nothing more, tell me that I am attempting the impossible (which I think I very well might be).

Quick overview - I have a form which shows and allows the modification of data. This all works well. I have created 2 buttons, one opens an Excel file and enters data into the template.....co de as follows (thanks to people for helping me with this bit of code a few days ago!!!)

Set appExcel = CreateObject("E xcel.Applicatio n")

With appExcel
.UserControl = True
Set wkbWorkBook = .workbooks.Open (TemplatePathAs system)
If Err <> 0 Then
MsgBox "Template file not found", vbOKOnly + vbCritical, "Error"
.Quit
GoTo ExitSub
End If
.Visible = True
End With

appExcel.Cells( 10, 4) = tbox_DRL
appExcel.Cells( 11, 4) = tbox_DocNo
appExcel.Cells( 12, 4) = tbox_Rev
appExcel.Cells( 13, 4) = getuser

This works happily but I have also been asked to enter similar data into a word document template. I use similar code to open the word template.

Set wdApp = CreateObject("W ord.Application ")

With wdApp

Set wdDoc = .Documents.Open (TemplatePath)

If Err.Number <> 0 Then 'Word isn't already running
MsgBox "Template file not found", vbOKOnly + vbCritical, "Error"
.Quit
GoTo ExitSub
End If
.Visible = True
End With

wdApp.Visible = True


The word template consists of a single table in which the data needs to be added.

Is it possible to direct the information into the correct cells on the word document?

Cheers

Phil

Hi, Phil.

Your db never stops improving ;)

You can modify word document table in just a similar manner.

 
With wdDoc.Tables(1)
.Cell(10, 4).Range = tbox_DRL
'...........................
End With
 
 

I strongly recommend you use Object Browser in VBA window. This will help you to familiarize with application object model.

Good luck.

[PhilOwens]

Hi, Phil.

Your db never stops improving ;)

You can modify word document table in just a similar manner.

 
With wdDoc.Tables(1)
.Cell(10, 4).Range = tbox_DRL
'...........................
End With
 
 

I strongly recommend you use Object Browser in VBA window. This will help you to familiarize with application object model.

Good luck.

Hi FishVal,

If i get a payrise out of this database I do believe that I owe you a percentage cut :p

Works a treat. Always slightly annoying that all I needed to know was a few little lines of code and everything falls into place.

Thank you greatly for your help!

Phil