如何把word保存为pdf并加密

当我们在网络上传输文件时,如果怕文件被泄露,最好的办法就是把我们需要传输的word文件保存为pdf格式并加密。然后把密码记下即可。具体步骤如下:

1、如果是word,将该文件另存为

 2、选择合适的存储位置,将文档保存类型选为PDF

3、选择 选项 功能

4、把  使用密码加密文档  的勾打上,并确认

5、输入文档的加密密码,并确认

 6、打开时,输入文档的加密密码即可

 7、加密后的pdf,文档标题会显示 已加密

 

 

 

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是一个Word VBA宏,可以实现另存为PDF并设置储存位置、改名和加密: ```vb Sub SaveAsPDF() Dim filePath As String Dim fileName As String Dim dlgSaveAS As FileDialog Set dlgSaveAS = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs) With dlgSaveAS .Title = "另存为PDF" .InitialFileName = ActiveDocument.FullName .Filters.Clear .Filters.Add "PDF 文件", "*.pdf" .FilterIndex = 1 If .Show = -1 Then filePath = .SelectedItems(1) fileName = Mid(filePath, InStrRev(filePath, "\") + 1) fileName = Left(fileName, Len(fileName) - 4) & ".pdf" '更改文件名为PDF格式 filePath = Left(filePath, InStrRev(filePath, "\")) & fileName ActiveDocument.ExportAsFixedFormat OutputFileName:= _ filePath, ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, OptimizeFor:= _ wdExportOptimizeForPrint, Range:=wdExportAllDocument, _ Item:=wdExportDocumentContent, IncludeDocProps:=True, _ KeepIRM:=True, CreateBookmarks:= _ wdExportCreateNoBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False 'PDF加密设置 Set PDFSecurity = CreateObject("AcroExch.PDDoc") PDFSecurity.Open (filePath) PDFSecurity.SetSecurity "user password", "owner password", 0 '输入密码即可打开 PDFSecurity.Save 1, filePath PDFSecurity.Close MsgBox "保存成功!" End If End With End Sub ``` 这个宏会弹出一个文件保存对话框,让用户选择储存位置和文件名。保存PDF文件后,会调用Acrobat的COM接口来加密PDF文件,输入密码后才能打开PDF文件。如果不需要加密,可以将PDF加密设置部分的代码删除。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值