ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦X¨Ö¦C¦L¨Ó·½¥i¥H³]¬Û¹ï¸ô®|¶Ü?

[µo°Ý] ½Ð°Ý¦X¨Ö¦C¦L¨Ó·½¥i¥H³]¬Û¹ï¸ô®|¶Ü?

·Q½Ð°Ý¤@¤U

¦X¨Ö¦C¦L«ü©w¨Ó·½¡A³£¬Oµ´¹ï¸ô®|

¦pªG´«¸ê®Æ§¨©Î¨Ó·½ÀÉ©ñ¨ì§Oªº¼Ñ¡A´N§ä¤£¨ì¤F

¦³¿ìªk³]©w¬Û¹ï¸ô®|¶Ü?


¨Ò¦p§Ú¦³¤@­Ó¸ê®Æ§¨¡A¸Ì­±©ñ­ÓACCESSÀÉ

¨ä¥LWORDÀɪº¨Ó·½³£¬O¸ÓACCESSÀÉ

¤£½×§Ú§â³o­Ó¸ê®Æ§¨·h¥hC¼Ñ©ÎD¼Ñ

¤´µM¥i¥H¨Ï¥Î


­YµLªk³]©w¬Û¹ï¸ô®|¡A¦³¨ä¥L´À¥N¤è®×¯à¹F¦¨¶Ü?

ÁÂÁÂ
«¢Åo~¤j®a¦n§r

¦^´_ 1# iceandy6150


    ¦­´Áª©¥»¬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
Word§e²{·¥­PªºÀRºA¤§¬ü¡AExcel®i²{·¥­Pªº°ÊºA¤§¬ü¡C

TOP

¦^´_ 1# iceandy6150

À³¸ÓµLªk³]©w¦¨¬Û¹ï¸ô®|¡A¥u¯à­«·s³]©w·s¸ô®|
¥i°Ñ¦Ò~https://support.microsoft.com/zh-tw/kb/275934
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD