[ÇóÖú] Âé·³¸ø¶Îvba´úÂ룬ʵÏÖaccessÊý¾Ý×Ô¶¯µ¼Èëµ½wordÖÐ

Private Sub µ¼³öword_Click()
    On Error GoTo ErrorHandler
    Dim strTemplate As String
    Dim strFileName As String
    Dim objApp As Object    'New Word.Application
    Dim objDoc As Object    'Word.Document
    Dim objField As Object    'Word.Field
    Dim rst As Object
    Dim blnNoQuit As Boolean

    strTemplate = CurrentProject.Path & "\Ä£°å\֪ͨµ¥Ä£°å.doc"


    'ÉèÖÃÊó±êÖ¸ÕëΪɳ©ÐÎ×´
    DoCmd.Hourglass True

    Set objApp = CreateObject("Word.Application")
    Set objDoc = objApp.Documents.Open(strTemplate)
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl֪ͨµ¥ WHERE ID=" & ID, , 4)    'dbReadOnly
    If Not rst.EOF Then
        strFileName = CurrentProject.Path & "\´æ·ÅλÖÃ\" & "֪ͨµ¥" & rst!ID & ".doc"
        'Èç¹ûÎļþÒÑ´æÔÚ£¬ÏÈɾ³ýÒÑÓÐÎļþ
        If Dir(strFileName) <> "" Then Kill strFileName
        objDoc.FormFields("¸Ö½î°óÔúÌ¥¾ß").result = rst!¸Ö½î°óÔúÌ¥¾ß
        objDoc.FormFields("ÇÅÁºÃû³Æ").result = rst!ÇÅÁºÃû³Æ
        objDoc.FormFields("ÏäÁº±àºÅ").result = rst!ÏäÁº±àºÅ
        objDoc.FormFields("·ÝÊý").result = Nz(rst!·ÝÊý)
        objDoc.FormFields("¸Ö½îµõװʱ¼ä").result = Format(rst!¸Ö½îµõװʱ¼ä, "yyyyÄêmÔÂdÈÕ")
        objDoc.FormFields("½»½ÓÈË").result = rst!½»½ÓÈË
        objDoc.FormFields("×Ö¶Î1").result = rst!×Ö¶Î1
    End If
    rst.Close
    objDoc.SaveAs strFileName
    Beep
    If MsgBox("µ¼³öÒÑÍê³É£¬ÊÇ·ñ´ò¿ª¸ÃÎļþ£¿", vbQuestion + vbYesNo, "µ¼³öÍê³É") = vbYes Then
        objApp.Visible = True
        objDoc.Saved = True
        blnNoQuit = True
    End If

ExitHere:
    On Error Resume Next
    If Not blnNoQuit Then
        If Not objDoc Is Nothing Then objDoc.Saved = True
        If Not objApp Is Nothing Then objApp.Quit
    End If
    '»Ö¸´Êó±êÖ¸Õë
    DoCmd.Hourglass False
    'ÊͷŶÔÏó±äÁ¿ÄÚ´æ
    Set objApp = Nothing
    Set objDoc = Nothing
    Set rst = Nothing
    Exit Sub

ErrorHandler:        '´íÎó´¦Àí³ÌÐò
    If Err = 70 Then
        MsgBox "²»ÄÜÌæ»»Îļþ£¬ÒòΪÎÞ·¨É¾³ýÒÑÓÐÎļþ£¬¿ÉÄܵÄÔ­ÒòÓУº" & vbCrLf & vbCrLf & _
               "1.¸ÃÎļþ´¦ÓÚ´ò¿ª×´Ì¬¡£" & vbCrLf & _
               "2.ûÓжԴËĿ¼µÄдÈëȨÏÞ¡£", vbCritical
    Else
        MsgBox Err.Description, vbCritical, "³ö´í #" & Err
    End If
    Resume ExitHere

End Sub[filename]µ¼³öword.mdb[/filename][filename]֪ͨµ¥Ä£°å.doc[/filename]

3Â¥: Originally posted by deephill at 2014-02-17 23:11:07
Ä£°å²»¶®¡£
Óð´¼ü¾«ÁéÀ´×ö£¬Ò²²»ºÃ¸ãѽ