统一设置word文档中的图片大小的宏。
Sub 统一图片尺寸()
'仅适用于嵌入式图片
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoTrue
'不锁定纵横比
.ScaleHeight = 100
.ScaleWidth = 100
Sub set100()
Dim j As Long
'计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).ScaleHeight = 100 '设置高度显示比例
ActiveDocument.InlineShapes(j).ScaleWidth = 100
'设置宽度显示比例
使用宏的方式, 批量修改word中图片的大小
使用宏批量修改word中图片大小
操作Word对象----在指定位置插入图片并设置大小
没有更多推荐了，豆丁微信公众号
君，已阅读到文档的结尾了呢~~
WORD中图片大小统一调整宏设置方法
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
WORD中图片大小统一调整宏设置方法
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口热门搜索：
&&&&&&DOCX文档下载
游客快捷下载
会员登录下载
下载资源需要10元
邮箱/手机号：
您支付成功后，系统会自动为您创建此邮箱/手机号的账号，密码跟您输入的邮箱/手机号一致，以方便您下次登录下载和查看订单。注：支付完成后需要自己下载文件，并不会自动发送文件哦！
支付方式：
已注册用户请登录：
当日自动登录&&
&&合作网站一键登录：
1、本站资源不支持迅雷下载，请使用浏览器直接下载(不支持QQ浏览器)；
2、文档下载后都不会有金锄头文库的水印，预览文档经过压缩，下载后原文更清晰；
3、所有的PPT和DOC文档都被视为“模板”，允许上传人保留章节、目录结构的情况下删减部份的内容；下载前须认真查看，确认无误后再购买；
4、所有文档都是可以预览的，金锄头文库作为内容存储提供商，无法对各卖家所售文档的真实性、完整性、准确性以及专业性等问题提供审核和保证，请慎重购买；
5、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确)，网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据；
6、如果您还有什么不清楚的，可以点击右侧栏的客服对话；
下载须知 | 常见问题汇总
批量删除WORD文档中的图片宏替换
批量删除 WORD 文档中的图片 有时要一次性删除某个 Word 文档中所有图片．一张一张地寻找图片并按下 DEL 键删除真是麻烦死了，这时你有一般两种方法可以选择一、可以让“查找和替换”功能帮你的忙，在 Word 中同时按下 “Ctrl＋H” 键打开“查找和替换”对话框，点击“替换”标签中的“ 更多” 按钮，再选择“特殊格式→图形”项，这时会在“查找内容”中自动输入“g” ，最后直接按下“ 全部替换”按钮即可彻底删除所有图片。（想要知道高级的查找替换功能，可以搜索 word 的通配符、正则表达式等内容）二、用宏程序删除 WORD 图片有时在 word 中使用第一种方法不能奏效，可以使用宏代码的方式进行删除，如果一次无法删除完全，可以多运行几遍。代码如下Sub Macro1For Each ShapeRange In ActiveDocument.ShapesShapeRange.DeleteNext ShapeRangeEnd Sub附 Word 通配符查找详解（Wildcards ）通配符使用规则如下 任意单个字符 键入
例如，st 可查找“sat”和“set”。 任意字符串 键入 * 例如，s*d 可查找“sad”和“started”。 单词的开头 键入 例如，in 查找“in”和“within”，但不查找“interesting” 。 指定字符之一 键入 [ ] 例如，w[io]n 查找“win”和“won”。 指定范围内任意单个字符 键入 [-] 例如，[r-t]ight 查找“right”和“sight” 。必须用升序来表示该范围。 中括号内指定字符范围以外的任意单个字符 键入 [x-z] 例如，t[a-m]ck 查找“tock”和“tuck” ，但不查找“tack” 和“tick” 。 n 个重复的前一字符或表达式 键入 {n} 例如，fe{2}d 查找“feed” ，但不查找 “fed”。 至少 n 个前一字符或表达式 键入 {n,} 例如，fe{1,}d 查找“fed”和“feed”。 n 到 m 个前一字符或表达式 键入 {n,m} 例如，10{1,3} 查找“10”、“100”和“1000”。 一个以上的前一字符或表达式 键入
例如，lot 查找“lot”和“loot”。 特殊意义的字符 键入 \ 例如，f[\]t 查找“ft”
对查询结果没有影响，是一个替换时分组的概念 例子 用\2 \1 替换John Smith，得到结果 Smith John 即\1 代表 John，\2 代表 Smith
本文（批量删除WORD文档中的图片宏替换）为本站会员（haoword）主动上传，金锄头文库仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。
若此文所含内容侵犯了您的版权或隐私，请立即阅读金锄头文库的“”【网址:】，按提示上传提交保证函及证明材料，经审查核实后我们立即给予删除！
温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。
分享当前资源【批量删除WORD文档中的图片宏替换】到朋友圈，您即可以免费下载此资源！
微信扫一扫分享到朋友圈
操作提示：任选上面一个二维码，打开微信，点击“发现”使用“扫一扫”，即可将选择的网页分享到朋友圈
您可能感兴趣的------------------------------------------------------------------------------------------------------
元price_share
&|&川公网安备 12号&|&经营许可证（蜀ICP备号-1）(C) by Sichuan Goldhoe Inc. All Rights Reserved.
&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>一、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>本站提供全自助服务，购买后点击下载按钮可以下载到你电脑或手机（系统不会发送文档到您的邮箱），请注意查看下载存放位置；&/span>&/p>&p>&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>二、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>本站具有防盗链功能，所以不要使用迅雷、旋风、网际快车等第三方辅助下载工具（不支持&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>QQ浏览器&/span>），否则下载下来的文件只是网页或乱码；&/span>&br/>&/p>&p>&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>三、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>由于网络原因、下载知识欠缺、本地电脑&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>或&/span>手机阻止下载等问题无法解决时，需要提供以下&/span>&span style=&font-family: 微软雅黑, &Microsoft YaHei&; color: rgb(255, 0, 0);&>任意一条信息&/span>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>给我们，我们才能更及时地为你服务：&/span>&br/>&/p>&p>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>3.1、如果是注册的会员，请告诉我们你的会员账号；&/span>&/p>&p>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>3.2、如果是游客下载的，请告诉我们你下载时填写的手机或者邮箱；&/span>&/p>&p>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>3.3、如果是微信或QQ快捷登陆的，请告诉我们你的微信或QQ昵称；&/span>&/p>&p>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>3.4、如果这些你仍然无法确定，请告诉我们你的付款单号（我们可以通过单号反过来查询你的账号和下载记录）&/span>&a href=&https://www.jinchutou.com/i-93.html& target=&_blank& style=&text-decoration: color: rgb(255, 192, 0); font-family: 微软雅黑, &Microsoft YaHei&;&>&span style=&color: rgb(255, 192, 0); font-family: 微软雅黑, &Microsoft YaHei&;&>看看什么是单号？&/span>&/a>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>；&/span>&/p>&p>&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>四、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>需要下载哪份文档，请发送文档网址，而不是截图，更不要直接把标题给我们；&/span>&br/>&/p>&p>&strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>五、&/span>&/strong>&span style=&font-family: 微软雅黑, &Microsoft YaHei&;&>其它下载常见问题详见：&/span>&a href=&https://www.jinchutou.com/info-0-23-1.html& target=&_blank& style=&font-family: 微软雅黑, &Microsoft YaHei&;&>https://www.jinchutou.com/info-0-23-1.html&/a>&br/>&/p>&p>&br/>&/p>" />
&span id=&_baidu_bookmark_start_2& style=&display: line-height: 0&>?&/span>&span id=&_baidu_bookmark_start_4& style=&display: line-height: 0&>?&/span>&/p>&p>&span style=&font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>& & 鉴于本网发布稿件来源广泛、数量较多, 系统审核过程只针对存在明显违法有害内容（如色情、暴力、反动、危害社会治安及公共安全等公安部门明文规定的违法内容）进行处理，难以逐一核准作者身份及核验所发布的内容是否存在侵权事宜, 如果著作权人发现本网已转载或摘编了其拥有著作权的作品或对稿酬有疑议, 请及时与本网联系删除。&/span>&/p>&p>&strong style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 white-space: background-color: rgb(255, 255, 255);&>& & 侵权处理办法参考版权提示一文：&/strong>&a href=&https://www.jinchutou.com/h-59.html& target=&_blank& textvalue=&https://www.jinchutou.com/h-59.html&>https://www.jinchutou.com/h-59.html&/a>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>&&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>1、如涉及内容过多，需要发送邮箱，请电子邮箱到，我们会及时处理；&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>2、系统一旦删除后，文档肯定是不能下载了的，但展示页面缓存需要一段时间才能清空，请耐心等待2-6小时；&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>3、请版权所有人（单位）提供最起码的证明（证明版权所有人），以便我们尽快查处上传人；&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>4、请文明对话，友好处理；&/span>&/p>&p>&span style=&color: rgb(102, 102, 102); font-family: 微软雅黑, Arial, &Times New Roman&; font-size: 14 background-color: rgb(255, 255, 255);&>5、为了杜绝以前再有类似的侵权事情，可以为我们提供相应的关键字，便于管理人员添加到系统后能有效排除和抵制与您（贵单位）相关版权作品上传；&/span>&/p>&p>&span id=&_baidu_bookmark_end_5& style=&display: line-height: 0&>?&/span>&span id=&_baidu_bookmark_end_3& style=&display: line-height: 0&>?&/span>&/p>" />
&span style=&color: rgb(85, 85, 85); font-family: 微软雅黑; background-color: rgb(255, 255, 255);&>& & 为了维护合法，安定的网络环境，本着开放包容的心态共建共享金锄头文库平台，请各位上传人本着自律和责任心共享发布有价值的文档；本站客服对于上传人服务前，有以下几点可提前参阅：&/span>&/p>&p>&span style=&color: rgb(85, 85, 85); font-family: 微软雅黑; background-color: rgb(255, 255, 255);&>1、本站上传会员收益见：&a href=&https://www.jinchutou.com/h-36.html& target=&_blank&>https://www.jinchutou.com/h-36.html&/a> &/span>&/p>&p>2、本站不会为任何刚注册的上传会员特批解除上传限制，普通会员每天可以上传50份，值班经值会审核其上传内容，请自行观察自己上传的文档哪些在“临时转换中”（审核通过），哪些在审核拒绝中，连续坚持几天都没有任何文档被拒的情况下，根据文档质量和发布分类是否正常等考量合格后值班经理会特批升级会员等级，相应的权益也同时上升。&/p>&p>3、上传人本着友好、合作、共建、共享的原则，请耐心仔细的查看《&a href=&https://www.jinchutou.com/i-143.html& target=&_blank&>违禁作品内容处理规则》；&/a>&a href=&https://www.jinchutou.com/i-143.html& target=&_blank&>https://www.jinchutou.com/i-143.html&/a>&/p>&p>4、上传人可以观注本站公告，查看其它被公示永久封禁的原因&a href=&https://www.jinchutou.com/news-1.html& target=&_blank&>https://www.jinchutou.com/news-1.html&/a>&/p>&p>5、其它问题可以参阅上传常见问题指引：&a href=&https://www.jinchutou.com/info-0-25-1.html& target=&_blank&>https://www.jinchutou.com/info-0-25-1.html&/a>&/p>" />word宏操作处理图片_百度知道
word宏操作处理图片
是这样的，我有个word，一次拖了上千张图到word里面，这些图都是统一尺寸格式，但是这些图周围都有空白，拖到word里面之后，我将一张张进行裁剪（将周围空白去掉），然后居中。我打开...
是这样的，我有个word，一次拖了上千张图到word里面，这些图都是统一尺寸格式，但是这些图周围都有空白，拖到word里面之后，我将一张张进行裁剪（将周围空白去掉），然后居中。我打开宏之后（我用的word03版文档格式操作，docx版图片不能宏操作，只能自己编程，我不会），记录宏，将宏指定为组合键ctrl+Q，将第一张图裁剪完成之后，居中。完成第一张图的操作，并关闭宏。然后点击第二张图，点击组合键ctrl+Q，当然第二张图就变成跟第一张一样自动裁剪居中。我想一次选中后面剩下的所有图，点击组合键ctrl+Q，让所有图都这样操作，但是这样操作是不行的，我不知道有什么好的解决方案。跪求帮助！最好不要告诉我编程，因为我不会，告诉我操作就好。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
我是呐个谁i知道合伙人
我是呐个谁i
采纳数：47
获赞数：8056
word2007以上版本使用docm格式可以保存宏，保存的时候选择类型为“带宏的word文档”就可以了，不用向下兼容。不用VBA是无法实现这一功能的，实际上宏只是用代码记录下操作便于重复使用，其实质与作法与VBA没有什么区别。不过，VBA是人工编写代码，宏是自动编写代码而已。创建宏：1、 创建新宏。点击工具“开发工具”里的分组“代码”里的“宏”命令代码，在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称（这里输入“CropPicture”），选择“宏的位置”为当前的文档。最后，点击“创建”命令按钮，会弹出VBA的IDE环境，里面已经给出CropPicture程序的程序头尾。如下：Sub CropPicture()'' CropPicture 宏''End Sub2、添加代码把下面代码里的Sub CropPicture()与End Sub之间的代码粘贴到上面提到的代码之间或者直接用下面的代码覆盖上面提到的代码。'剪切图片Sub CropPicture()Dim shps As InlineShapes, shp As InlineShapeSet shps = ActiveDocument.InlineShapes'左、右、顶、底边各剪切20磅，根据需要修改就行了。For Each shp In shpsWith shp.PictureFormat.CropLeft = 20.CropRight = 20.CropTop = 20.CropBottom = 20End WithNextEnd Sub添加热键点击word文档左上角的Office按钮(logo图标)，执行弹出菜单里的“word选项”，会弹出一个对话窗。在弹出的对话窗里点击左侧导航条“自定义”，点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮，会弹出“自定义键盘”对话窗。将“指定命令”的类型选择为“宏”，选择“将更改保存在”右侧的下拉列表，选择为你正在编辑的文档。这时，“宏”列表里会显示当前文档里的所有宏，我们选择“CropPicture”，然后将光标移入“新按新快捷键”文本框，按下“Ctrl+Q”键，点击“指定”命令按钮退出，即可。调用按键盘键^q，就可以直接调用宏“CropPicture”，帮你把当前文档里的所有图片向内剪切40磅了。
mfkinfo知道合伙人
来自电脑网络类芝麻团
采纳数：2802
获赞数：4002
参与团队：
word2007以上版本使用docm格式可以保存宏，保存的时候选择类型为“带宏的word文档”就可以了，不用向下兼容。不用VBA是无法实现这一功能的，实际上宏只是用代码记录下操作便于重复使用，其实质与作法与VBA没有什么区别。不过，VBA是人工编写代码，宏是自动编写代码而已。创建宏：&&&&1、&创建新宏。点击工具“开发工具”里的分组“代码”里的“宏”命令代码，在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称（这里输入“CropPicture”），选择“宏的位置”为当前的文档。最后，点击“创建”命令按钮，会弹出VBA的IDE环境，里面已经给出CropPicture程序的程序头尾。如下：&&&&&&&&Sub&CropPicture()&&&&&&&'&&&&&&&&'&CropPicture&宏&&&&&&&&'&&&&&&&&'&&&&&&&&End&Sub&&&&2、添加代码&&&&把下面代码里的Sub&CropPicture()与End&Sub之间的代码粘贴到上面提到的代码之间或者直接用下面的代码覆盖上面提到的代码。&&&&'剪切图片Sub&CropPicture()Dim&shps&As&InlineShapes,&shp&As&InlineShapeSet&shps&=&ActiveDocument.InlineShapes'左、右、顶、底边各剪切20磅，根据需要修改就行了。For&Each&shp&In&shps&&&&With&shp.PictureFormat&&&&&&&&.CropLeft&=&20&&&&&&&&.CropRight&=&20&&&&&&&&.CropTop&=&20&&&&&&&&.CropBottom&=&20End&WithNextEnd&Sub添加热键点击word文档左上角的Office按钮(logo图标)，执行弹出菜单里的“word选项”，会弹出一个对话窗。在弹出的对话窗里点击左侧导航条“自定义”，点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮，会弹出“自定义键盘”对话窗。将“指定命令”的类型选择为“宏”，选择“将更改保存在”右侧的下拉列表，选择为你正在编辑的文档。这时，“宏”列表里会显示当前文档里的所有宏，我们选择“CropPicture”，然后将光标移入“新按新快捷键”文本框，按下“Ctrl+Q”键，点击“指定”命令按钮退出，即可。调用按键盘键^q，就可以直接调用宏“CropPicture”，帮你把当前文档里的所有图片向内剪切40磅了。
本回答被网友采纳
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}