Create a Word Doc from Access

[Sade]

Ok, I'm thinking this shouldn't be too much of an issue, but in my bone-headedness, I can't find the right commands. We are tracking complaints for our hospital, and I need each record to have an individual hyperlinked cell that points to the complaint description in a Word document (The description can be multiple pages long).

I can create the hyperlink by using code I found on this site.

Private Sub cmdFollowLink_Click()
Dim oWordApp As Object
Dim strAddress As String

strAddress = Forms!Form2!txtAddress

Set oWordApp = CreateObject("Word.Application")
oWordApp.Document.Open "C:\" & strAddress & ".doc"
oWordApp.Visible = True

End Sub

This opens a pre-existing Word document, but I need it to actually create one.

I'm thinking I just need to change the word "Open" to "New" or something like that, but I'm having trouble finding the right word.

Thanx

Sade

 

[Norie]

Sade

To create a new Word document use Add.

oWordApp.Documents.Add

To name the new document I think you would have to save it.

oWordApp.Documents(1).SaveAs "C:\" & strAddress & ".doc"

By the way the code you posted is incorrect, it should be Documents not Document.

 

[Sade]

Great, I'll give it a shot.

thanx

Sade.