word中批量修改图片大小的两个方法
前言:
对于把ppt的内容拷贝到word中:
对ppt的一页进行复制,然后粘贴到word中
如果要的是ppt运行过程中的内容,在qq运行的情况下,按Ctrl+Alt+A截屏,按勾,然后可以直接粘贴到word中(生成的图片已经在剪贴板中了)
////////////////////////////////////////////////////////////////////////////////////////////////////
1.图片只需要符合文档大小即可
方法:插入图片,word自动处理图片大小。
按插入
按图片
看一下下方的文件名
按Ctrl+A(全选),图片的顺序按照电脑文件的顺序排列的
每一次按Ctrl+点击图片,被点击的图片放在首位
效果:
////////////////////////////////////////////////////////////////////////////////////////////////////
2.图片需要修改为具体的大小
把图片复制,直接在word中粘贴,图片以原始大小显示
////////////////////////////////////////////////////////////////////////////////////////////////////
或插入图片:
原来的word为:
////////////////////////////////////////////////////////////////////////////////////////////////////
按视图
按宏,查看宏,输入setpicsize,按创建
复制并粘贴以下程序 并按调试+编译,看看程序有没有错误
Sub setpicsize()
Dim i
Dim Height, Weight
Height =
Weight = On Error Resume Next '忽略错误
For i = To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
Next i For i = To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
Next i
End Sub
(来自网络程序修改)
如果没有错误,保存(Ctrl+S)并退出(Alt+F4)
然后按宏,查看宏,选择名字为setpicsize的宏,并按运行,稍等片刻即可完成
或者直接在代码页面按运行+运行子过程(F5)
效果:
如果下一次要修改图片的大小时,
按宏,查看宏,选择名字为setpicsize的宏,并按编辑
修改图片大小,如高度为100,宽度为50,修改Height和Weight的值即可
然后编译,保存,退出,运行这个宏即可
////////////////////////////////////////////////////////////////////////////////////////////////////
程序1:
查看每张图片的大小,方便后续的修改
Sub GetPhotoSize()
Dim str As String
Dim i For i = To ActiveDocument.InlineShapes.Count
'cstr:数字转字符串
str = str + CStr(i) + ": "
str = str + CStr(ActiveDocument.InlineShapes(i).Height) + " "
str = str + CStr(ActiveDocument.InlineShapes(i).Width) + " "
'chr(13)代表换行
str = str + Chr()
Next i
MsgBox str
End Sub
效果:
////////////////////////////////////////////////////////////////////////////////////////////////////
程序2:
修改第x张图片到第y张图片的大小(可以分成很多段)
Sub ModifyPhoto1()
Dim i, x, y
Dim Height, Weight
Height =
Weight =
'修改第x张图片到第y张图片的大小
x =
y =
On Error Resume Next '忽略错误
For i = To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
If i >= x And i <= y Then
ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
End If
Next i For i = To ActiveDocument.Shapes.Count 'Shapes类型图片
If i > k Then
ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
End If
Next i
End Sub
效果:
////////////////////////////////////////////////////////////////////////////////////////////////////
程序3:
修改某一些图片的大小为某个值,修改另一些图片的大小为另外一个值(可以分成很多段,用boolean)
Sub ModifyPhoto2()
'修改某一些图片的大小为某个值,修改另一些图片的大小为另外一个值
Dim i, ans
'100为图片最大数量,可以修改
Dim vis( To ) As Boolean
Dim Height1, Weight1
Dim Height2, Weight2
Height1 =
Weight1 =
Height2 =
Weight2 = On Error Resume Next '忽略错误
For i = To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
vis(i) = False
Next i
'x(k)=true means modify the k_th photo
For i = To
vis(i) = False
Next i
For i = To
vis(i) = False
Next i For i = To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
If vis(i) = True Then
ActiveDocument.InlineShapes(i).Height = Height1 '设置图片高度为 Height_px
ActiveDocument.InlineShapes(i).Width = Weight1 '设置图片宽度 Weight_px
Else
ActiveDocument.InlineShapes(i).Height = Height2 '设置图片高度为 Height_px
ActiveDocument.InlineShapes(i).Width = Weight2 '设置图片宽度 Weight_px
End If
Next i
End Sub
效果:
////////////////////////////////////////////////////////////////////////////////////////////////////
程序4:当图片大小大于(或小于)某个值时,修改为另外一个值。
效果:
////////////////////////////////////////////////////////////////////////////////////////////////////
程序5:删去所有的图片,只剩下文字
Sub DeletePhoto()
On Error Resume Next '忽略错误
'两个for循环不能用同一个变量
'因为photo1指的是所有在ActiveDocument.InlineShapes的元素
'因为photo2指的是所有在ActiveDocument.Shapes的元素,二者被定义后不可改变
Dim photo1, photo2 As Range
For Each photo1 In ActiveDocument.InlineShapes
photo1.Delete
Next
For Each photo2 In ActiveDocument.Shapes
photo2.Delete
Next
End Sub
效果(有可能剩下一些换行符):
////////////////////////////////////////////////////////////////////////////////////////////////////
程序6:在程序变通5只剩下文字的基础上,删去换行符
Sub changeCharacter()
With Selection.Find
'原来的内容
.Text = "^p"
'要修改成的内容,如果为""相当于删除
.Replacement.Text = ""
'wrap() 方法把每个被选元素放置在指定的内容或元素中。规定包裹(wrap)被选元素的内容。
.Wrap = wdFindContinue
End With
'进行修改操作
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
效果:
(也可以做 1个换行变成2个换行的操作,使文档看起来更舒服:.Text="^p" .Replacement.Text="^p")
////////////////////////////////////////////////////////////////////////////////////////////////////
程序变通7:删去所有的文字,只剩下图片
Sub DeleteCharacter()
Dim word As Range
For Each word In ActiveDocument.Words
'NoProofing:如此如果拼写和语法检查程序忽略指定的文本。如果仅有某些指定的文本将NoProofing属性设置为True ,则返回wdUndefined 。读/写长。
'图片值为-1,文字值为0
If word.NoProofing = Then
word.Delete
End If
Next word
End Sub
以下是错误程序:
'With Selection.Find
' .Text = True
' .Replacement.Text = ""
' .Wrap = wdFindContinue
'End With
'Selection.Find.Execute Replace:=wdReplaceAll 'Dim ch As Range
'For Each ch In ActiveDocument.Words
' ch.Delete
'Next
效果:
////////////////////////////////////////////////////////////////////////////////////////////////////
程序8:第x张图片到第y张图片改变顺序,变成第y张图片(原来)到第x张图片(原来)
////////////////////////////////////////////////////////////////////////////////////////////////////
程序9:把所有的图片保存在一个文件夹下,或转移图片到另外一个word文档
////////////////////////////////////////////////////////////////////////////////////////////////////
程序10:把某些字加粗和改变颜色
Sub ModifyCharacter()
Dim str As String
str = "图片"
With Selection.Find
.Text = str
.Replacement.Font.Bold = True
.Replacement.Font.Color = wdColorRed
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
之前
现在:
附: Word通配符查找详解(Wildcards) 通配符使用规则如下:
任意单个字符 键入 ?
例如,s?t 可查找“sat”和“set”。 任意字符串 键入 *
例如,s*d 可查找“sad”和“started”。 单词的开头 键入<
例如,<(inter) 查找“interesting”和“intercept”,但不查找“splintered”。 单词的结尾 键入>
例如,(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{}d 查找“feed”,但不查找“fed”。 至少 n 个前一字符或表达式 键入 {n,}
例如,fe{,}d 查找“fed”和“feed”。 n 到 m 个前一字符或表达式 键入 {n,m}
例如,{,} 查找“”、“”和“”。 一个以上的前一字符或表达式 键入 @
例如,lo@t 查找“lot”和“loot”。 特殊意义的字符 键入 \
例如,f[\?]t 查找“f?t” ( )
对查询结果没有影响,是一个替换时分组的概念 例子:
用\ \1替换(John) (Smith),得到结果Smith John 即\1代表John,\2代表Smith
(来自网络)
word中批量修改图片大小的两个方法的更多相关文章
- [Word]中批量修改图片大小和缩放比例方法
最近小编遇到一个问题:需要将一篇厘米.打开.宏名起好了,单击"创建"进入.返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击&quo ...
- word中批量修改图片大小
一,在word中按alt+f11组合键,进入VBA模式二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块三,把下面代码复制,粘贴进去.四,更改数值, 改一下宽度和高度数值(10) ...
- python 批量修改图片大小
一个文件夹下面有好多图片格式是jpg大小是1920*1080,把它们处理成1280*720并按原先图片的名保存在另一路径下这里首先要找到给定路径下所有的图片文件,然后在修改图片文件的大小,这里用到PI ...
- Word 中批量修改所有表格格式样式
1. 引言 我们在使用Word排版编写书籍时候,可能会带有许多表格,上百,甚至上千个表格都是有可能的.这么多的表格对于后期的样式修改是非常不利的,有什么好的方法能够一次性修改文档中所有的表格,将其统一 ...
- Wordpress编辑器(Tinymce)在Chrome中动态修改图片大小
Chrome不支持tinymce中图片动态修改大小,可以在theme的functions.php中加入下面代码在Tinymce中模拟这一功能: function tinymce_editor_sett ...
- matlab批量修改图片大小
转自:http://blog.csdn.net/cike0cop/article/details/53087995 %author:coplin %time:2016-10-10 %function: ...
- Ubuntu 批量修改图片大小
现在的相机拍摄出来的照片通常远远大于电脑屏幕,不但尺寸很大,占用磁盘量也很大,我都是拍完照片立马就将其缩小到差不多HD的分辨率 改图片分辨率的软件有很多,除了耳熟能详的PS,Ubuntu下也有开源gi ...
- Linux中如何使用gThumb批量调整图片大小
Linux中如何使用gThumb批量调整图片大小 导读 如果你的工作涉及到图片编辑和处理,就一定会有同时对多张图片进行批量大小调整的经历.虽然大多数图片编辑应用都能够非常容易地批量调整多张图片,但对于 ...
- 使用Adobe Photoshop CC 2015批量修改图片尺寸
最近在工作中遇到一个问题,当时客户给的图片尺寸与我要求的图片不符,由于图片非常的多,如果一张一张的修改,十分的麻烦,后来经过一位同事的指点,发现Adobe Photoshop CC 2015可以实现批 ...
随机推荐
- Python_每日习题_0001_数字组合
# Topic: There are four digits: 1, 2, 3 and 4. # How many different three digits can be formed witho ...
- 作业20171026 alpha-2及alpha发布成绩
申诉 对成绩有疑问或不同意见的同学,请在群里[@杨贵福]. 申诉时间截止2017年11月21日 17:00. 成绩 scrum01 scrum02 scrum03 scrum04 scrum05 sc ...
- Scrum Meeting 5
第五次会议 No_00:工作情况 No_01:任务说明 待完成 已完成 No_10:燃尽图 No_11:照片记录 待更新 No_100:代码/文档签入记录 No_101:出席表 ...
- 基于SSH框架开发的《高校大学生选课系统》的质量属性的实现
基于SSH框架开发的<高校大学生选课系统>的质量属性的实现 对于可用性采取的是错误预防战术,即阻止错误演变为故障:在本系统主要体现在以下两个方面:(1)对于学生登录模块,由于初次登陆,学生 ...
- iOS开发设计多个target
创建target有两种方式, 1>.是通过新建target可以通过File-->New-->Target,然后选择其中一个模板来创建,app类型的target进行创建 2>.另 ...
- TitleLayout——一个Android轻松实现通用、标准、支持沉浸式状态栏的标题栏库
TitleLayout 多功能.通用的.可在布局或者使用Java代码实现标题栏:支持沉浸式状态栏,支持左侧返回按钮(不需要手动实现页面返回),左侧支持图片+文字.图片.文字:右侧支持图片.文字等. 堆 ...
- shell脚本--文件测试
文件测试是指测试某一个文件或者目录是否存在 测试文件格式[ 操作符 目录或者文件 ] 注意左括号和操作符之间有一个空格,文件或者目录 与右边的括号之间也有一个空格. -d 测试是否为目录 -e ...
- MySQL: Connection Refused,调整 mysql.ini中的 max_connections
连接相同的结构的MySQL数据库,一套库Tomcat启动正常,另一套库一直报Connection Refused. 可以断定是连接数太小了.查找mysql.ini中的 max_connections, ...
- shell获取帮助
一.內建命令与外部命令 1.內建命令 内建命令是 shell 程序的一部分,是一些比较简单的 Linux 系统命令,这些命令是写在bash源码的builtins里面的,由 shell 程序识别并在 s ...
- pandas取值
#!/usr/bin/env python # -*- coding: utf-8 -*- # @Time : 2018/5/24 15:03 # @Author : zhang chao # @Fi ...