word文档转化为图片格式的pdf

1、将word文档加水印后，另存为pdf。

2、使用工具pdf2jpg，导出独立的一张张jpg图片。

3、使用PPT中的“插入相册”功能，导入一张jpg图片。此时自动产生一个新的PPT演示文稿文件，文档格式并不是A4大小。

4、删除刚才导入的图片，在页面布局中调整文档尺寸为A4大小(21*29.7)。

5、点插入相册，选择“编辑相册”，选中所需导入的所有图片，确定后会将每一张图片按A4大小（原始大小）插入到单独的PPT页中。

6、另存为PDF，完成。

7、当然，也可以先把所有图片直接插入相册，使用VBA调整图片尺寸。代码如下：

Sub edit(    For i = 1 To ActivePresentation.Slides.Count            For j = 1 To ActivePresentation.Slides.Item(i).Shapes.Count                ActivePresentation.Slides.Item(i).Shapes.Item(j).LockAspectRatio=msoFalse

 ActivePresentation.Slides.Item(i).Shapes.Item(j).Width = 21 * 28.32                ActivePresentation.Slides.Item(i).Shapes.Item(j).Height = 29.7 * 28.32                ActivePresentation.Slides.Item(i).Shapes.Item(j).Left = 0                ActivePresentation.Slides.Item(i).Shapes.Item(j).Top =          Next    NextEnd Sub

备注：乘以28.32是单位的转换，从厘米到像素。