linyancheng

¦^´_ 1# iceandy6150


¦bExcel¤¤¡G

Shell "rundll32.exe url.dll,FileProtocolHandler " & ThisWorkbook.Path & "\¡³¡³¡³¡³¡³.doc", 1 '¡u¡³¡³¡³¡³¡³.doc¡v§ï¦¨WordÀɦW¡C°²³]WordÀɦb¦P¤@¸ê®Æ§¨¤¤¡C

¦bWord¤¤¡G

¦­´Áª©¥»¬O¬Û¹ï¸ô®|¡AOffice 2007¥H«á¬Oµ´¹ï¸ô®|¡C
¬°ÁקK³Â·Ð¡A¥i¦b§¹¦¨½s¿èWord¥D¤å¥ó«á¡A±N¨äÁ٭쬰¼Ð·ÇªºWord¤å¥ó¡AµM«á¦bThisDocument¤¤¥[¤J¥H¤U¥N½X¡G

Private Sub Document_Open()

    On Error Resume Next
   
    With ThisDocument.MailMerge
        .MainDocumentType = wdCatalog '¥D¤å¥ó«¬¦¡³]¬°«¬¿ý(¥Ø¿ý)¡A¤]¥i³]¬°«H«ÊwdEnvelopes¡B«H¥ówdFormLetters©Î¼ÐÅÒwdMailingLabels¡C
        .OpenDataSource Name:=ThisDocument.Path & "\¡³¡³¡³¡³¡³.xls" '¡u¡³¡³¡³¡³¡³.xls¡v§ï¦¨¸ê®Æ¨Ó·½ÀɦW¡C°²³]¨Ó·½Àɦb¦P¤@¸ê®Æ§¨¤¤¡C
        
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        
        .Execute True
    End With
   
    'ThisDocument.Close wdDoNotSaveChanges

End Sub