Open Microsoft Word Event Certificate from within Access
Hi!, I am trying to open a marriage certificate that I designed in MS-Word from within Access. I wish to use a table either containing names of husbands and wives, or allow the user to either type the name of husbands and their spouse's into a Textbox control and a date field to pick the date of their wedding took place. After having done this, the user pushes a button on the form and the marriage certificate opens up in word with both of their names written beautifully with italic font that I already created. Is this scenario possible in Access? Is this doable ?? I even tried this myself by placing bookmarks after the names placeholders for both the husband and wife, but this did not work because when I ran the sub routine, it created certificates for all the record sets that I have in my table. This is not what I want. I want the certificate to be generated for only the persons whose names are typed into the Text boxes. I am trying to design a marriage certificate issuing software. Can someone please help?? Here is the code I am using: '------------------Code Start----------------------- Sub OpenWordDoc(strDocName As String) Dim objApp As Object 'Opens the document Set objApp = CreateObject("Word.Application") objApp.Visible = True objApp.Documents.Open strDocName End Sub '------------------Code End------------------------- Then from the On Click event of the command button on the form (namedcmdOpenWordDocin this example) I pasted the following (where Me.FilePath is the name of the control on the form storing the path to the associated file): '------------------Code Start----------------------- Private Sub cmdOpenWordDoc_Click() 'Check to see that there is a document file path associated with the record If IsNull(Me.FilePath) Or Me.FilePath = "" Then MsgBox "Please Ensure There Is A File Path Associated " & _ "For This Document", _ vbInformation, "Action Cancelled" Exit Sub Else 'Check that the document specified in the file path is actually there If (Dir(Me.FilePath) = "") Then MsgBox "Document Does Not Exist In The Specified Location", _ vbExclamation, "Action Cancelled" Exit Sub Else 'Opens document in Word Call OpenWordDoc(Me.FilePath) End If End If End Sub '------------------Code End----------------------- Here's a separate code I used for the bookmarks example. Public Sub ExportNamesToWord() Dim wApp As Word.Application Dim wDoc As Word.Document Dim rs As DAO.RecordSet Set wApp = New Word.Application Set wDoc = wApp.Documents.Open ("C:\Users\Documents\MC.docx") 'MC (Marriage Certificate is the name of the word document) Set rs = CurrentDb.OpenRecordSet ("tblNames") If Not rs.EOF Then rs.MoveFirst Do Until rs.EOF wDoc.Bookmarks("FirstName").Range.Text = Nz(rs!FirstName, "") wDoc.Bookmarks("LastName").Range.Text = Nz(rs!LastName, "") wDoc.SaveAs "C:\Users\Documents\" & rs!ID & "_MC.docx" rs.MoveNext Loop End Sub I used the above codes separately and still I was not even close to achieving the desired result. What am I doing wrong here? Can someone please guide?