Exporting to word question

bonekrusher · Nov 25, 2005

Hi, I copied this code from one of the threads but I am having trouble with one line. The line that loads the info from Access in to my word template:

The Info I want in access is in a table called "Table 2" and the Field is called test "Test" (table2.test)

Please help!!!

Private Sub Command4_Click()

'Declare the follwing
Dim objWord As Object

'Set word as an application and make it invisible
Set objWord = CreateObject("Word.Application")
objWord.Visible = False 'True is visible

'path and name of the template your are using.
objWord.Documents.Add ("C:\Temp\AccessTest1.dot")

'This is for the bookmark that you created in the template
objWord.ActiveDocument.Bookmarks("bmCusDetails").Select

'This is the field in access that containts the data that has to be entered at the
'bookmark
objWord.Selection.Text = ???????

'Word (or the document that you created with the template, will now open)
objWord.Visible = True

Set objWord = Nothing

End Sub

Bat17 · Nov 25, 2005

The Info I want in access is in a table called "Table 2" and the Field is called test "Test" (table2.test)

Is there just one record in the table? if not what are the details of the criteria to filter to the record you need?

Peter

bonekrusher · Nov 25, 2005

There is no criteria, its just a Table with one record. Eventually it will be one table with many records or may be a query.

Thanks for the help!

bonekrusher · Nov 25, 2005

Well had some luck. I was able to do. I used the following code:

objWord.Selection.Text = Forms![frmselectList]![Text27]

Text27 is on the form which use the control source [table2]![test]. Now my new question is; I have a list box based on a query. I want all the items in the list box to be exported to my word Template. any idea

bonekrusher · Nov 26, 2005

Can anyone help me with this?

Thanks

Bat17 · Nov 28, 2005

you will need to create a recordset in code and loop through it to insert the text into word.

HTH

Peter

bonekrusher · Nov 28, 2005

Thanks Peter...As I am a novice, where is a good place to start?

Bat17 · Nov 28, 2005

something along this lines I think

Code:

Sub Word_1()
Dim appWord As Object
Dim wdDoc As Object
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("table2")

Set appWord = CreateObject("Word.Application")
Set wdDoc = appWord.Documents.Add ("C:\Temp\AccessTest1.dot")

rst.MoveNext
While Not rst.EOF
    objWord.Selection.Text = rst![test]
   rst.MoveNext
Wend
 

appWord.Quit 'savechanges:=False
Set wdDoc = Nothing
Set appWord = Nothing
End Sub

Not sure if that will give you a list or just keep over-writing the previous result but it should give you a start.

Peter

bonekrusher · Nov 28, 2005

Wow thanks, I'll give it a try!

bonekrusher · Nov 29, 2005

Can you look at this?

Peter, Can you look at this DB? It has the code above, but just keeps looping and Word never pops up.

Thanks,

Phil

bonekrusher · Nov 29, 2005

Having trouble uploading the file.....

alastair69 · Nov 29, 2005

bonekrusher said:
Having trouble uploading the file.....

Hello i have just download your example db and it looks like just may of forgoten to declare objword as it errors and says "Object required"

bonekrusher · Nov 29, 2005

Thanks, I am a noobie. Can you help me with the code?

alastair69 · Nov 29, 2005

bonekrusher said:
Thanks, I am a noobie. Can you help me with the code?

I think so when i have done it i will attach it and put in back in here

bonekrusher · Nov 29, 2005

Thank you very much!!

Bat17 · Nov 29, 2005

OK, I have tweaked a bit more. The code assumes a bookmark called 'book1'. I don't know the Word object model very well so hopefully alistair will come up with something

Peter

Code:

Sub Command2_Click()
Dim appWord As Object
Dim wdDoc As Object
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("table2")

Set appWord = CreateObject("Word.Application")
Set wdDoc = appWord.Documents.Add("C:\Temp\Accesstest2.dot")
wdDoc.Bookmarks("book1").Select
rst.MoveNext
While Not rst.EOF
    With appWord.Selection
        .Move Unit:=4
        .InsertParagraphAfter
        .Collapse Direction:=1
        .TypeText (rst![test])
        'rst![test]
    End With
   rst.MoveNext
Wend
 
appWord.Visible = True
'appWord.Quit 'savechanges:=False
Set wdDoc = Nothing
Set appWord = Nothing
End Sub

alastair69 · Nov 29, 2005

Bat17 said:

OK, I have tweaked a bit more. The code assumes a bookmark called 'book1'. I don't know the Word object model very well so hopefully alistair will come up with something

Peter

Code:

Sub Command2_Click()
Dim appWord As Object
Dim wdDoc As Object
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("table2")

Set appWord = CreateObject("Word.Application")
Set wdDoc = appWord.Documents.Add("C:\Temp\Accesstest2.dot")
wdDoc.Bookmarks("book1").Select
rst.MoveNext
While Not rst.EOF
    With appWord.Selection
        .Move Unit:=4
        .InsertParagraphAfter
        .Collapse Direction:=1
        .TypeText (rst![test])
        'rst![test]
    End With
   rst.MoveNext
Wend
 
appWord.Visible = True
'appWord.Quit 'savechanges:=False
Set wdDoc = Nothing
Set appWord = Nothing
End Sub

Checking my understanding want is the final document going to produce.

Alastair

bonekrusher · Nov 29, 2005

Wow, its works great!!!! cant thank you both enough!!

THANK YOU!

Exporting to word question

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Attachments

Registered User.

Attachments

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Registered User.

Similar threads

Users who are viewing this thread