返回列表 上一主題 發帖

[發問] 薪資單合併列印後，轉成個別PDF並加密

amihoim

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
Win7 
軟體版本
office365 
閱讀權限
10 
註冊時間
2019-10-22 
最後登錄
2023-3-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-3-30 22:07 | 只看該作者

[發問] 薪資單合併列印後，轉成個別PDF並加密

合併列印
我的問題跟excel版這篇文有點類似
http://forum.twbts.com/viewthread.php?tid=19785

公司想要將薪資單，以電子郵件PDF加密的方式，寄給同仁。

大致想法是以excel(薪資計算單)，與WORD(薪資格式檔)進行合併列印後，
匯成一張一張的PDF並加密，
再自動寄發電子郵件+挾帶薪資PDF文件，寄到員工本人的電子信箱。

請問該怎麼設計?  感謝各位大神
收藏 分享

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
2#
發表於 2023-3-31 07:20 | 只看該作者
回復 1# amihoim


    謝謝前輩發表此主題與範例
建議前輩上傳薪資管理檔案和理想中的pdf檔
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

linyancheng

帖子
228 
主題
73 
精華
2 
積分
333 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2024-10-13 
3#
發表於 2023-4-15 18:44 | 只看該作者
回復 1# amihoim


Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim password As String

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Your\Excel\File\Path.xls")
Set xlSheet = xlBook.Sheets("Sheet1")

password = xlSheet.Cells(2, 1).Value '取得第2列第1欄的值作為密碼

xlBook.Close SaveChanges:=False
xlApp.Quit

Dim password As String
Dim pdfFileName As String

'讀取Excel文件中的密碼欄位
'省略讀取Excel的程式碼

'設置PDF加密選項
Dim pdfSecurity As Object
Set pdfSecurity = CreateObject("AcroExch.PDDoc")
pdfSecurity.SetSecurity "user", "", 2, "", password, True '2代表128位AES加密

'轉換Word為PDF
pdfFileName = "C:\Your\PDF\File\Path.pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfFileName, ExportFormat:=wdExportFormatPDF, _
    OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, _
    DocumentStructureTags:=True, _
    SecurityDescriptor:=pdfSecurity

Dim i As Integer
Dim pageNum As Integer

'取得頁面總數
pageNum = ActiveDocument.ComputeStatistics(wdStatisticPages)

'遍歷每個頁面
For i = 1 To pageNum
    '在此添加將每一頁個別另存為加密PDF的程式
Word呈現極致的靜態之美，Excel展現極致的動態之美。

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題