linyancheng

¦^´_ 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 '¨ú±o²Ä2¦C²Ä1Ä檺­È§@¬°±K½X

xlBook.Close SaveChanges:=False
xlApp.Quit

Dim password As String
Dim pdfFileName As String

'Ū¨úExcel¤å¥ó¤¤ªº±K½XÄæ¦ì
'¬Ù²¤Åª¨úExcelªºµ{¦¡½X

'³]¸mPDF¥[±K¿ï¶µ
Dim pdfSecurity As Object
Set pdfSecurity = CreateObject("AcroExch.PDDoc")
pdfSecurity.SetSecurity "user", "", 2, "", password, True '2¥Nªí128¦ìAES¥[±K

'Âà´«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

'¨ú±o­¶­±Á`¼Æ
pageNum = ActiveDocument.ComputeStatistics(wdStatisticPages)

'¹M¾ú¨C­Ó­¶­±
For i = 1 To pageNum
    '¦b¦¹²K¥[±N¨C¤@­¶­Ó§O¥t¦s¬°¥[±KPDFªºµ{¦¡