Word怎么直接转换成图片格式的PDF

loquat · 发表于 2014-4-26 23:02

现在要实现只能是转成PDF，然后PDF转图片，然后图片再合并为PDF
在Word里尝试了copyaspicture方法，但是排版总是会混乱掉。

loquat · 发表于 2014-4-26 23:45

不知道还需要怎样优化才能转成PDF之后直接就不能复制文字

Sub word2picture()
Dim i%, j%
Dim aDoc As Document: Set aDoc = ActiveDocument
Dim aName$: aName = aDoc.Name
Dim wdApp As Word.Application: Set wdApp = GetObject(, "Word.Application") '获取已打开的Word程序
wdApp.Documents(aName).Windows(1).Visible = False
j = aDoc.Content.Information(wdActiveEndPageNumber)
For i = 1 To j
Selection.GoTo wdGoToPage, wdGoToAbsolute, i
Selection.Bookmarks("\page").Range.CopyAsPicture
Selection.PasteSpecial Placement:=wdInLine, DataType:=wdPasteEnhancedMetafile '在域代码区域粘贴图元文件
Next
wdApp.Documents(aName).Windows(1).Visible = True
End Sub

复制代码

loquat · 发表于 2014-4-27 19:49

直接用虚拟打印机一般都可以，但是问题是没法批量打印。。。

loquat · 发表于 2014-5-6 16:27

现在只能使用Zan Image Printer将word文档打印成一页一个图片
然后用这个工具http://www.compulsivecode.com/Project_ImageToPDF.aspx（支持命令行）
调用Shell合并生成的图片为pdf文件。

dwgzy · 发表于 2014-5-9 08:04

本帖最后由 dwgzy 于 2014-5-9 08:11 编辑

office2007以上版本可以在“保存类型”中选择另存为"PDF”格式。
wps可以在“文件”菜单下“输出为PDF格式”。
如图：
office中

wps文字中

loquat · 发表于 2014-5-9 08:37

dwgzy 发表于 2014-5-9 08:04
office2007以上版本可以在“保存类型”中选择另存为"PDF”格式。
wps可以在“文件”菜单下“输出为PDF格式 ...

是的，这样可以转pdf，但是转的pdf还是文字形式的，可以直接复制文本

dwgzy · 发表于 2014-5-9 09:47

loquat 发表于 2014-5-9 08:37
是的，这样可以转pdf，但是转的pdf还是文字形式的，可以直接复制文本

如果文件页数不多的话，可以尝试截图，粘贴到Word，再另存为PDF。

loquat · 发表于 2014-5-9 10:26

dwgzy 发表于 2014-5-9 09:47
如果文件页数不多的话，可以尝试截图，粘贴到Word，再另存为PDF。

如果没有页眉页脚的话，我可以直接通过PPT另存为一页一个图片。
但是有页眉就比较难处理。打印成图片，然后用工具处理成PDF也已经很方便了。。。
那个工具支持命令行的，可以用Shell去调用。
就是已经可以用VBA来完成了。。。

dwgzy · 发表于 2014-5-9 11:07

loquat 发表于 2014-5-9 10:26
如果没有页眉页脚的话，我可以直接通过PPT另存为一页一个图片。
但是有页眉就比较难处理。打印成图片，然 ...

呵呵，我们这都是草根阶层的另类思维。
不过结果出来了，别人才不问怎么弄的呢。

袁子亚 · 发表于 2017-4-8 11:06

先另存为PDF文件，然后用虚拟打印一次PDF，文字就无法复制了，也不存在排版问题

		自动登录	找回密码
密码			免费注册

[求助] Word怎么直接转换成图片格式的PDF