返回列表 上一主題 發帖

[發問] 請問合併列印來源可以設相對路徑嗎?

linyancheng

帖子
235 
主題
78 
精華
2 
積分
345 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2026-6-1 
1# 跳轉到 »
發表於 2020-4-1 13:03 | 顯示全部帖子
回復 1# iceandy6150


    早期版本是相對路徑，Office 2007以後是絕對路徑。
為避免麻煩，可在完成編輯Word主文件後，將其還原為標準的Word文件，然後在ThisDocument中加入以下代碼：

Private Sub Document_Open()

    On Error Resume Next
   
    With ThisDocument.MailMerge
        .MainDocumentType = wdCatalog '主文件型式設為型錄(目錄)，也可設為信封wdEnvelopes、信件wdFormLetters或標籤wdMailingLabels。
        .OpenDataSource Name:=ThisDocument.Path & "\○○○○○.xls" '「○○○○○.xls」改成資料來源檔名。假設來源檔在同一資料夾中。
        
        '.Destination = wdSendToNewDocument
        '.SuppressBlankLines = True
        
        'With .DataSource
            '.FirstRecord = wdDefaultFirstRecord
            '.LastRecord = wdDefaultLastRecord
        'End With
        
        '.Execute True
    End With
   
    'ThisDocument.Close wdDoNotSaveChanges

End Sub
Word呈現極致的靜態之美，Excel展現極致的動態之美。

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題