【办公-WORD】vba 统一改变word文档所有的图片大小 然后导出成PDF

原创 2016年06月01日 10:08:23

如果您有一推图片且大小一样,想用word转成PDF,那么我推荐您使用VBA来调整图片大小,先给word设置 “页面布局-页边距”全部设置成0,再调整成合适的纸张大小,然后启动VBA 【Alt +F11】,粘贴如下代码,修改代码中自定义的宽高(如果不知道,那么先设置一张看看那个宽高最合适),最后 【F5】运行代码等待统一修改完成即可。

Sub 改变图片大小()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
    If iSha.Type = wdInlineShapePicture Then
       iSha.LockAspectRatio = msoFalse '不锁定纵横比
            iSha.Width = CentimetersToPoints(22#)  '宽22#CM
                iSha.Height = CentimetersToPoints(28.91) '高28.91CM
                End If
                Next
End Sub


版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

怎样将图片格式的PDF文档变成word 文字识别

怎样将图片格式的PDF文档变成word? 软件有很多  但是推荐“CAJViewer”软件, 用它打开PDF文件; 再用其自带的OCR文字识别功能识别图片中的文字; 复制粘贴到Word或发送到Word...

ASP.NET将word文档转换成pdf的代码

一、添加引用 using Microsoft.Office.Interop.Word;     二、转换方法   /**//// /// 把Word文件转换成pdf文件 ...
  • whaxrl
  • whaxrl
  • 2014-02-25 12:39
  • 1057

【转】PDF转换成Word文档

应该说,PDF文档的规范性使得浏览者在阅读上方便了许多,但倘若要从里面提取些资料,实在是麻烦的可以。回忆起当初做毕业设计时规定的英文翻译,痛苦的要命,竟然傻到用Print Screen截取画面到画图板...
  • shaoz
  • shaoz
  • 2011-10-03 16:13
  • 359

办公系统中MS Word文件转换为PDF技术方案

MS Word文件转换为PDF技术方案比较多,比较常见的方案是使用开源的OpenOffice,但是此方案存在兼容的问题,有些文件转换不了或出现问题。而采用现成的产品,成本又比较高。通过对各种Word转...
  • xiaoyw
  • xiaoyw
  • 2014-11-27 14:57
  • 1121

如何将在线pdf转换成word文档

当下很多大学生毕业前要进行论文答辩,需要借助网站查阅专业的文献,以作参考使用。而大部分平台文章采用的是PDF文件格式。PDF作为一种通用性和阅读性的电子文书,虽然便于我们浏览,但是其缺乏的编辑功能,让...

怎样快速将在线pdf转换成word文档

遇到PDF转换成Word格式文件时,人们往往不知道如何下手,事实上无需下载各种各样的PDF转换器,在线就可以轻松搞定PDF文档转换,从而为大家腾出大量时间来休息,何乐而不为呢?   究竟什么是pdf...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)