一键调整Word中所有图片的大小

这是利用AHK实现一键调整Word中所有图片的大小，方便批量打印图片。

;-----------------------------------------
; 一键调整Word中所有图片的大小  By FeiYue
;
; 用法：为了方便图片打印，可以先统一调整大小，再手动微调旋转
;-----------------------------------------; 热键左Win键启动
LWin::
SetBatchLines, -1; 获取COM对象，图片类型为InlineShapes，1cm等于28.35px
doc:=Word_Get().ActiveDocumentLoop % doc.InlineShapes.Count
{r:=doc.InlineShapes(A_Index), r.LockAspectRatio:=0if (r.Height > r.Width)r.Height := 12 * 28.35, r.Width := 7 * 28.35elser.Width := 12 * 28.35, r.Height := 7 * 28.35
}
MsgBox, 4096,, 执行完毕！, 1
return;======== 下面是函数 ========;-- 获取Word窗口的COM对象
Word_Get(WinTitle="Microsoft Word")
{static objTryif (obj.Version)return objreturn obj:=Office_Get(WinTitle)
};-- 获取Excel窗口的COM对象
Excel_Get(WinTitle="Microsoft Excel")
{static objTryif (obj.Version)return objreturn obj:=Office_Get(WinTitle)
};-- 获取PowerPoint窗口的COM对象
PowerPoint_Get(WinTitle="Microsoft PowerPoint")
{static objTryif (obj.Version)return objreturn obj:=Office_Get(WinTitle)
};-- 获取所有Office窗口的COM对象  By FeiYue
Office_Get(WinTitle="")
{static h:=DllCall("LoadLibrary", "Str","oleacc", "Ptr")SetTitleMatchMode, 2WinGet, idlist, List, % WinTitle ? WinTitle : "A"Loop, % idlist{id:=idlist%A_Index%WinGet, ControlList, ControlListHwnd, ahk_id %id%For i,hWnd in StrSplit(ControlList, "`n"){ControlGetPos, x, y, w, h,, ahk_id %hWnd%if (w<100 or h<100)Continueif DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", 0xFFFFFFF0, "Ptr", 0*(VarSetCapacity(IID,16)+NumPut(0x0000000000020400,IID,"Int64")+NumPut(0x46000000000000C0,IID,8,"Int64"))+&IID, "Ptr*", pacc)=0{Acc:=ComObject(9, pacc, 1)Tryif (Acc.Application.Version)return Acc.Application}}}MsgBox, 4096,, Error: Can't Get Object From ACC !Exit
}

一键调整Word中所有图片的大小相关推荐

如何批量调整Word中mathtype公式的大小
尊敬的读者您好:笔者很高兴自己的文章能被阅读,但原创与编辑均不易,所以转载请必须注明本文出处并附上本文地址超链接以及博主博客地址:https://blog.csdn.net/vensmallzeng. ...
如何批量处理Word中的图片大小
用宏批量定位word中图片位置 word文档里面有多幅图,但图片的缩进位置不统一,有些靠右,有些居中,有些靠左等等. 能否通过编制宏一次完成调整,让所有图片靠左,或居中. 通过宏可以批量完成一 ...
Word中的字体大小
Word中的字体大小 Word对字体大小采用两种不同的度量单位,其中一种是以"号"为度量单位,如常用的"初号.小初.一号.小一--七号.八号"等:另一种是以国际 ...
如何设置Matlab输出到Word中图片的大小
方法一:快速型核心方法:设置Word显示比例100%,Matlab的图像大小与屏幕所见的相同:根据Word的排版要求,估计Matlab图像在Word中的大小,进而调整图像大小.具体操作:(以下操作应对 ...
android ratingbar 大小,Android 调整Ratingbar中的小星星大小
做新空间项目的时候,写到评价模块,就需要用到Ratingbar这个控件,问题是这个控件中的星星大小实在无法满足需求,只有三种样式,不可以直接设置大小一:首先是属性值的定义: android:id=& ...
如何在Microsoft Word中更改纸张大小
Documents come in different shapes and sizes, like legal or brochure. In Word, you can change the pa ...
怎么调整Word中编号和文字中间的空格距离？
日常学习或办公编写Word文档时,为了让整体内容更有条理性,方便阅读,经常会给段落添加项目编号.下面以极速办公speedoffice为例详细讲解添加项目编号可能会遇到的几个问题. 方法1:选中文本,鼠 ...
Word中的字体大小（几号－几磅）
Word对字体大小采用两种不同的度量单位,其中一种是以"号"为度量单位,如常用的"初号.小初.一号.小一--七号.八号"等:另一种是以国际上通用的"磅 ...
Word中的字体大小（几号－几磅）【转】
转自:http://www.cnblogs.com/guosj/archive/2011/08/18/2145166.html 谢谢分享! Word对字体大小采用两种不同的度量单位,其中一种是以&q ...

一键调整Word中所有图片的大小

这是利用AHK实现一键调整Word中所有图片的大小，方便批量打印图片。

一键调整Word中所有图片的大小相关推荐

最新文章

热门文章