返回列表 上一主題 發帖

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

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-10-21 17:15 | 只看該作者

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

想請問一下

合併列印指定來源，都是絕對路徑

如果換資料夾或來源檔放到別的槽，就找不到了

有辦法設定相對路徑嗎?


例如我有一個資料夾，裡面放個ACCESS檔

其他WORD檔的來源都是該ACCESS檔

不論我把這個資料夾搬去C槽或D槽

仍然可以使用


若無法設定相對路徑，有其他替代方案能達成嗎?

謝謝
收藏 分享
哈囉~大家好呀

linyancheng

帖子
228 
主題
73 
精華
2 
積分
333 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2024-10-13 
3#
發表於 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

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
2#
發表於 2015-10-23 03:23 | 只看該作者
回復 1# iceandy6150

應該無法設定成相對路徑，只能重新設定新路徑
可參考~https://support.microsoft.com/zh-tw/kb/275934
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題