word怎么转为不可修改之图片形式的pdf(无需加密)

Universal Document Converter这个可以将word转为不可修改的pdf图片格式,从官网下的免费的(时间是发博客的当天),很好用,也可以官网自己下载。

使用方法:安装后打印选中这个udc,然后选择打印属性即可
在这里插入图片描述

效果:acrobat无法选中文字,这是在没有加密的情况下。
在这里插入图片描述
资源如下:
官网:https://www.print-driver.com/download

csdn:https://download.csdn.net/download/Davidietop/12416175
缺点是右下角有水印:
在这里插入图片描述
经过测试,这水印跟转换后的pdf内容一样,很强,不可修改!不介意就用吧。
可以用acrobat剪切pdf去掉右下角水印应用到每一页。
在这里插入图片描述

可以用acrobat把水印的外链去掉:
在这里插入图片描述
在这里插入图片描述

以下是一个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、付费专栏及课程。

余额充值