Results 1 to 2 of 2

Thread: Solved: Use Access to Open Series of Word Docs, and return

  1. #1
    VBAX Regular
    Feb 2008

    Solved: Use Access to Open Series of Word Docs, and return

    I've read some similar threads, but not exact so I'm hoping someone can give me a few pointers or head me in the right direction.

    I have 50+ word templates (fill-in blank) - complex and need to maintain their look.

    I need to create several paths that utilize various combinations of the templates for the user to complete a series of documents and save the word document to a folder. I have created a table that maintains the 6 paths and document order for each, template storage path and name, and save storage path and name.

    I would like to have the user click on a button to choose a path, then loop through the documents - open word template, fill in blanks, save/close word document, return to access and loop to next document... I'm having trouble figuring out how to allow the user to fill in items on the word document close/save and return to where they left the access loop.

    (Also, this is a low tech environment. I added the DAO library but would prefer to use as few as possible.)

    Here's what I have so far (not complete): Any help is appreciated!
    Private Sub cmdNewTNClient_Click()
    On Error GoTo Err_cmdNewTNClient_Click
    Dim oApp As Object
        Dim dotString As String
        Dim pathString As String
        Dim saveString As String
        Dim docString As String
        Dim intString As Integer
        Dim dtDate As Date
        Dim numValue As Integer
        Dim iCnt As Integer
        Dim db As DAO.Database
        Dim rs1 As DAO.Recordset
        Dim rs2 As DAO.Recordset
        Dim nameString As String
        Set db = CurrentDb()
        Set rs1 = db.OpenRecordset("qryNewTNClient")
        Do Until rs1.EOF
            dotString = rs1![Template_Name]
            pathString = rs1![Storage_Location] & "\"
            Const conTEMPLATE_NAME = pathString & dotString
        'Open Word Instance
        Set oApp = CreateObject("Word.Application")
        oApp.Visible = True
        'Open Template as Document
        oApp.Documents.Add Template:=(conTEMPLATE_NAME)
    ' Save the document.
    saveString = "D:\Completed\NewTNClient\"
    docString = rs1![Document_Name]
    nameString = rs2![Client_Name]
    oApp.ActiveDocument.SaveAs FileName:=saveString & nameString & "_" & docString, FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
        ' Quit Word.
        ' Clear the variable from memory.
        'Set oApp = Nothing
        Set rs = Nothing
        Set db = Nothing
        Exit Sub
        MsgBox Err.Description
    End Sub

  2. #2
    VBAX Regular
    Feb 2008
    fyi - I switched to using excel and word cross automation. You can see the solution in with the help of fumei

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts