Mail Merge help

[mbatestblrock]

Hi there, I am using office 2007. I know a little vba, but not too much. I have a pretty simple database that has a couple tables and one form. My goal is to be able to hit a button on the form and have all that information merge into a word doc.

I have accomlished this by using the mail merge wizard with access, but I was hoping for something a bit quicker for day to day use.

Also the only way I could find to do it was merging to word from a table and not the form record.


I have been searching and found this may be able to be done with a word template that includes bookmarks??
I was hoping for some advise on how to accomplish this with the button in the form that kind of does all of the work for me. The template will never change and neither will the fields in my access form.


any information or pointer would be amazing

Thanks guys!

[mbatestblrock]

Anyone???


I have a somewhat update..

I was checking into an access book...

I can get this to work using this..

Public Sub MergetoWord()
' This method creates a new document in
' MS Word using Automation
  Dim rsCust As New ADODB.Recordset
  Dim sSQL As String
  Dim WordObj As Word.Application
  Dim iTemp As Integer
 
On Error Resume Next
 
  sSQL = "SELECT * FROM Customers " _
    & "WHERE CustomerNumber = " _
    & Forms!Orders![CustomerNumber]
 
  rsCust.Open sSQL, CurrentProject.Connection
 
  If rsCust.EOF Then
    MsgBox "Invalid customer", vbOKOnly
    Exit Sub
  End If
 
  DoCmd.Hourglass True
 
  'Try to get a running instance of Word:
  Set WordObj = GetObject(, "Word.Application")
  If Err.Number <> 0 Then
    'An error is thrown if Word is not running,
    'so use CreateObject to start up Word:
    Set WordObj = CreateObject("Word.Application")
  End If
 
  'Make sure the user can see Word:
  WordObj.Visible = True
 
  'Warning:
  'Specify the correct drive and path to the
  'file named Thanks.dotx in the line below.
 
  WordObj.Documents.Add _
  Template:="C:\Thanks.dotx", NewTemplate:=False
 
  With WordObj.Selection
    .GoTo what:=wdGoToBookmark, Name:="FullName"
    .TypeText rsCust![ContactName]
 
    .GoTo what:=wdGoToBookmark, Name:="CompanyName"
    .TypeText rsCust![CompanyName]
 
    .GoTo what:=wdGoToBookmark, Name:="Address1"
    .TypeText rsCust![Address1]
 
    .GoTo what:=wdGoToBookmark, Name:="Address2"
    If IsNull(rsCust![Address2]) Then
      .TypeText ""
    Else
      .TypeText rsCust![Address2]
    End If
 
    .GoTo what:=wdGoToBookmark, Name:="City"
    .TypeText rsCust![City]
 
    .GoTo what:=wdGoToBookmark, Name:="State"
    .TypeText rsCust![State]
 
    .GoTo what:=wdGoToBookmark, Name:="Zipcode"
    .TypeText rsCust![Zipcode]
 
    .GoTo what:=wdGoToBookmark, Name:="PhoneNumber"
    .TypeText rsCust![PhoneNumber]
 
    .GoTo what:=wdGoToBookmark, Name:="NumOrdered"
    .TypeText Forms!Orders![Quantity]
 
    .GoTo what:=wdGoToBookmark, Name:="ProductOrdered"
    If Forms!Orders![Quantity] > 1 Then
      WordObj.Selection.TypeText Forms!Orders![Item] & "s"
    Else
      WordObj.Selection.TypeText Forms!Orders![Item]
    End If
 
    .GoTo what:=wdGoToBookmark, Name:="FName"
 
    iTemp = InStr(rsCust![ContactName], " ")
 
    If iTemp > 0 Then
      .TypeText Left$(rsCust![ContactName], iTemp - 1)
    End If
    .GoTo what:=wdGoToBookmark, Name:="LetterName"
    .TypeText rsCust![ContactName]
 
    DoEvents
    WordObj.Activate
    .MoveUp wdLine, 6
  End With
 
  'Set the Word Object to Nothing to free resources:
  Set WordObj = Nothing
  DoCmd.Hourglass False
 
End Sub
 
 
 
 
Private Sub Command12_Click()
 
End Sub
 

I have to open the Module and run it...

I having one heck of time trying to figure out how to make this happen with a button on the form.. I did an on click, and pasted that same code in there, and it wont do ANYTHING I made sure all the references were checked as well.

I am stumped! This is for someone else, if it the DB were for me Id be fine running the module manually, but I don't think this person will want to that.

How can I get that button to run that module???

[NeoPa]

Can you explain what happened a bit more precisely.
I can't help much with the logic of the MS Word stuff, but hopefully I can throw some light on why it's not running the code. I will need a bit more information as to what exactly is happening though.