Question

如何用Word宏操作处理图片？让所有图片统一操作？

Answer 1

word2007以上版本使用docm格式可以保存宏，保存的时候选择类型为“带宏的word文档”就可以了，不用向下兼容。\x0d\x0a\x0d\x0a不用VBA是无法实现这一功能的，实际上宏只是用代码记录下操作便于重复使用，其实质与作法与VBA没有什么区别。不过，VBA是人工编写代码，宏是自动编写代码而已。\x0d\x0a\x0d\x0a创建宏：\x0d\x0a1、 创建新宏。点击工具“开发工具”里的分组“代码”里的“宏”命令代码，在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称（这里输入“CropPicture”），选择“宏的位置”为当前的文档。最后，点击“创建”命令按钮，会弹出VBA的IDE环境，里面已经给出CropPicture程序的程序头尾。如下：\x0d\x0aSub CropPicture()\x0d\x0a'\x0d\x0a' CropPicture 宏\x0d\x0a'\x0d\x0a'\x0d\x0a\x0d\x0aEnd Sub\x0d\x0a2、添加代码\x0d\x0a把下面代码里的Sub CropPicture()与End Sub之间的代码粘贴到上面提到的代码之间或者直接用下面的代码覆盖上面提到的代码。\x0d\x0a'剪切图片\x0d\x0aSub CropPicture()\x0d\x0aDim shps As InlineShapes, shp As InlineShape\x0d\x0aSet shps = ActiveDocument.InlineShapes\x0d\x0a'左、右、顶、底边各剪切20磅，根据需要修改就行了。\x0d\x0aFor Each shp In shps\x0d\x0aWith shp.PictureFormat\x0d\x0a.CropLeft = 20\x0d\x0a.CropRight = 20\x0d\x0a.CropTop = 20\x0d\x0a.CropBottom = 20\x0d\x0aEnd With\x0d\x0aNext\x0d\x0aEnd Sub\x0d\x0a添加热键\x0d\x0a点击word文档左上角的Office按钮(logo图标)，执行弹出菜单里的“word选项”，会弹出一个对话窗。\x0d\x0a在弹出的对话窗里点击左侧导航条“自定义”，点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮，会弹出“自定义键盘”对话窗。\x0d\x0a将“指定命令”的类型选择为“宏”，选择“将更改保存在”右侧的下拉列表，选择为你正在编辑的文档。这时，“宏”列表里会显示当前文档里的所有宏，我们选择“CropPicture”，然后将光标移入“新按新快捷键”文本框，按下“Ctrl+Q”键，点击“指定”命令按钮退出，即可。\x0d\x0a调用\x0d\x0a按键盘键^q，就可以直接调用宏“CropPicture”，帮你把当前文档里的所有图片向内剪切40磅了。