以下是小编为大家准备的word宏实现批量处理照片大小方法word办公/数码，本文共5篇，希望对大家有帮助。
篇1：word宏实现批量处理照片大小方法word办公/数码
Word批量怎么处理图片大小呢，如果一个word文档中有几百张图片我们如果一张张去处理很麻烦，下面我们一起来看利用word宏实现批量处理照片大小，
北街最近需要写的文档越来越多了，根据公司文档规范性，我要使用正规的格式和样式做一些图文混排的 Word ，例如使文档中的每一幅图片大小一致。下面的方法就是告诉大家 Word 批量处理统一图片大小的方法。
使用方法：把代码复制到 Visual Biscal 编辑器中，再回到 Word 界面，运行“宏”命令。
代码如下复制代码Sub setpicsize '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
操作步骤如下：
1. 打开要统一图片大小的 Word 文档，点击“工具”-“宏”-“Visual Biscal 编辑器，
2. 插入 normal 工程“模块”。 3. 在“模块”中粘贴上面的代码。 4. 保存，返回你要统一图片大小的 Word 文档。运行“工具”-“宏”-”宏命令”。 看一下结果，是不是你想要的统一图片大小。 用的两张图一个大一个小，统一后 400*300 还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。按比例缩放的方法和上面的是一样的，只是代码变化一下，过程就不熬述。VBA 代码如下：
代码如下复制代码Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
篇2：excel宏怎么设置?excel宏设置方法excel办公/数码
如果你是专业使用excel或word的朋友对于宏这个词估计并不陌生了，下面我来给大家介绍在excel中宏的设置方法，
Excel选项设置宏
1、打开要设置宏的Excel文件，然后点击“office菜单”中的“excel选项”：
2、然后在弹出的excel选项“信任中心”-“信任中心设置” 如下图所示： 3、“宏设置”之后，选择合适的选项后，单击下方的“确定”即可确认宏设置了：保存文件为启用宏的表1、现在我们点击“另存为”
2、然后我们再点击“保存类型”-“Excel 启用宏的工作簿” 输名字点击“保存”： 3、如下图所示的图标类型文件，即是已经启用宏的Excel工作簿文件了：1、如果你工作表有宏并且“禁用所有宏，并发出通知”那么打开不会有“选项”这个功能：
2、我们可以如下图所示点击“启用此内容”-“确定” 即可，篇3：EXCEL怎么录制宏?EXCEL录制宏的方法excel办公/数码
宏是一个可以提高工作效率的工具了，如果你能很好的使用宏那么我们做起事来会非常的方法哦，下面我就来给各位同学介绍在excel中怎么录制宏吧，
1、我们做一个简单的复制表的宏录制了。
2、先打开要制作 表，然后我们点击菜单上的“工具”--->“宏”--->“录制新宏”。 3、现在会弹出录制新宏的对话框了，在这里我们可以输入宏名，快捷键及相关说明了， 4、出现表示宏正在录制的状态框，这时针对当前表格的操作将会成为新录制为的操作功能组成部分。 5、现在我们只要复制全表，所以只要复制了，复制好了我们停止录制 6、录制好了现在我们点击菜单栏--->“宏”--->“宏”，弹出宏的对话框，单击执行。 7、到表2中我们按ctrl+v如果成功了说明就宏录制好了。 好了到这里就结了如果你对这个还有什么问题可以在下面的评论处问我哦。篇4：word宏的录制宏word办公/数码
在文档过程中，经常有某项工作要多次重复，这时可以利用 Word 的宏功能来使其执行，以提高效率，宏将一系列的Word 命令和指令组合在一起，形成一个命令，以实现任务执行的化。 用户可以创建并执行一个宏，以替代人工进行一系列费时而重复的 Word 操作。
录制宏时，可单击工具栏按钮和菜单选项。但是，宏录制器不能 录制文档窗口中的鼠标运动，如果要移动插入点、选定文本，滚动 文档，必须用键盘录制这些操作。
如果录制过程中出现对话框，只有选择对话框中的【确定】按钮 或【关闭】时，Word 才录制对话框，并录制对话框的所有选项设置。 例如，假设宏包括菜单中的【查找】或【替换】命令，如 果在【搜索范围】框中选择【全部】选项，则运行宏时进行全文搜 索。如果选择【向上】或【向下】选项，Word 会在查找到文档开头 或结尾时停止宏，并显示提示信息询问是否继续搜索。
9.1.1 录制宏
如果要录制宏，可以按以下步骤进行：
（1）单击【工具】菜单中的【宏】命令，从级联菜单中选择【录 制新宏】命令，出现【录制宏】对话框，如图9-1 所示。
（2）在【宏名】框中，键入要录制宏的名称。
（3）在【将宏保存到】框中，选择要保存宏的模板或文档。默 认使用Normal 模板，这样以后所有文档都可以使用这个宏。如果只 想把宏应用于某个文档或某个模板，就选择该文档或模板。
（4）在【说明】框中，输入对宏的说明，这样以后可以清楚该 宏的作用。
（5）如果不想将宏指定到工具栏、菜单或快捷键上，单击【确 定】按钮，进入宏的录制状态，开始录制宏，这时屏幕上出现【停 止录制】工具栏，该工具栏有两个按钮：【停止录制】和【暂停录 制】。同时，状态栏中的【录制】字样变黑。鼠标指针变成带有盒 式磁带图标的箭头。
（6）执行要录制在宏中的操作。
（7）录制过程中，如果有一些操作不想包含到宏中，单击【停止录制】工具栏上的【暂停录制】按钮，可暂停录制。再次单击【恢 复录制】按钮，可以恢复录制。
（8）录制完毕后，单击【工具】菜单中的【宏】命令，从级联 菜单中选择【停止录制】命令，停止录制宏。
注意：
如果给新宏命名与 Word 中已有的内置宏同样的名称，新宏中的 操作将代替已有的操作，
例如，【文件】菜单中的【关闭】命令与 一个名为【FileOpen】的宏相连，如果录制一个新宏并命名为 【FileOpen】，该新宏将与【关闭】命令相连。在选择【关闭】命 令时，Word 将执行录制的新操作。
如果要查看 Word 中的内置宏列表，请选择【工具】菜单中的【宏】 命令，从级联菜单中选择【宏】，出现【宏】对话框，再在【宏的 位置】下拉列表中选择【Word 命令】。
9.1.2 录制宏并指定到工具栏或菜单
如果要录制宏并指定到工具栏或菜单，可按如下步骤进行：
（1）单击【工具】菜单中的【宏】命令，从级联菜单中选择【录 制新宏】命令，出现【录制宏】对话框。
（2）在【宏名】框中，键入要录制宏的名称。
（3）在【将宏保存在】框中，选择要保存宏的模板或文档。
（4）在【将宏指定到】框中选择【工具栏】按钮，出现【自定 义】对话框。
（5）单击【命令】框中正在录制的宏，然后将其拖动到要指定 的工具栏或菜单中。
（6）单击【更改所选内容】按钮，出现一个弹出菜单，选择相 应命令可以为所录制的宏进行设置图标、命名等操作。
（7）单击【关闭】按钮开始录制宏。
（8）进行宏需要的各种动作后，停止录制宏。
9.1.3 录制宏并指定到键盘
如果要录制宏并指定到键盘，可按如下步骤进行：
（1）单击【工具】菜单中的【宏】命令，从级联菜单中选择【录 制新宏】命令，出现【录制宏】对话框。
（2）在【宏名】框中，键入要录制宏的名称。
（3）在【将宏保存在】框中，选择要保存宏的模板或文档。
（4）在【将宏指定到】框中选择【键盘】按钮，出现【自定义 键盘】对话框。
（5）选定【命令】框中正在录制的宏，在【请按新快捷键】框 中键入所需快捷键，单击【指定】按钮即可定义快捷键。
（6）单击【关闭】按钮开始录制宏。
（7）进行宏需要的各种动作后，停止录制宏。
篇5：快速从excel中提取office数据宏实现方法excel办公/数码
本文章介绍了关于快速从excel中提取office数据宏实现方法，不过需要一点点编程知识不过不懂也没关系，直接按本文章操作就可以实现了，
方法一：利用快捷键逐个提取
这个实例的效果是：点选要提取数据的单元格后，只要按一下Ctrl+d键，数据就自动拷贝到你指定的位置，并且可以连续操作，后拷贝的数据会自动顺延到指定位置的下一单元格中。
Step1
启动Excel新建一个文件，保存为DataCenter.xls。点击“工具→宏→录制新宏”菜单命令，设置宏名为CopyRange，快捷键设为Ctrl+d（注意：不要跟系统的快捷键冲突），点击“确定”按钮。
Step2
点击“工具→宏→停止录制”菜单命令。怎么刚开始录制就要停止呢？这样做的目的只是要获得一个带有快捷键的宏的框架，具体代码还得自己输入。按Alt+F11键打开Visual Basic编辑器窗口，双击打开“工程”窗格中的“模块1”，删除最后的“End Sub”语句并加入如下代码：
代码如下复制代码Selection.Copy '拷贝所选单元格
TheSel = ActiveCell.Address '存储单元格位置
For I = 1 To 100 '设定从H列的第1行开始，到100行停止，H、1、100这三个参数，你可以根据需要改动
If Range（“H” & I） = “” Then '如果H列I行为空
Range（“H” & I）.Select '选择H列I行的单元格
ActiveSheet.Paste '粘贴单元格
Range（TheSel）.Select '回到拷贝位置
GoTo line1 '跳出循环
End If
Next I
line1： End Sub
Step3
关闭Visual Basic编辑器窗口返回Excel，
将其他Excel表格复制到DataCenter.xls中，点选需要提取数据的单元格，按Ctrl+d键，就可以把它拷贝到H列的第1行了，其他数据的提取以此类推。
方法二：多单元格同时提取
上面的方法一次只能提取一个单元格，在此基础上再增加一个简单的宏，可以达到一次提取多个单元格的效果。
Step1
首先假设如图所示是需要提取数据的表格形式。录制一个新宏，名称为CopyAll，快捷键设为Ctrl+e，在宏内输入以下代码（这次千万别删除“End Sub”）：
图1 表格例子
代码如下复制代码Range（“B1”）.Select '选择“姓名”后的数据
CopyRange '调用上一方法中的宏，下同
Range（“B2”）.Select '选择“性别”后的数据
CopyRange
Range（“B3”）.Select '选择“年龄”后的数据
CopyRange
Range函数中的参数，表示你想要提取数据的单元格位置，可以根据需要随意设置。
Step3
返回Excel，在B1、B2、B3单元格中分别输入“张小乐”、“男”、“18”。按Ctrl+e键，这些人物数据很快就被拷贝到H1～H3单元格中。以此类推可继续提取其他数据
★word文档怎么加密?word加密的方法word办公/数码
★yy密码忘了怎么办？yy密码忘了找回来方法电脑新手办公/数码
★office 激活方法(word,excel,ppt)电脑新手办公/数码
★Win8.1系统命令提示符在哪？win8.1命令提示符打开方法电脑新手办公/数码
文档为doc格式
