- ·上一篇:如何做个人信息word
- ·下一篇:word脚注超过20如何加圆圈
word如何统一处理
1.如何用Word宏操作处理图片?让所有图片统一操作?
方法如下:
1. 先打开存有图片的word。
2. 在打开的文档中,选择在“工具”菜单中选择“宏”--“宏”。
3. 随后弹出“宏”对话框,在宏名中输入setpicsize。
4. 宏名起好了,单击“创建”按钮进入Visual Basic 编辑器,输入代码。
5. 关闭入Visual Basic 编辑器,返回word,重新选择“工具”--“宏”--“宏”(或者直接按Alt+F8),再次进入宏的界面,在弹出的宏名中选择"setpicsize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小。
2.word怎么批量处理相片
在Word中,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub xx()
Dim xPic As InlineShape
For Each xPic In ThisDocument.InlineShapes
xPic.LockAspectRatio = msoTrue
xPic.Width = xPic.Width / 2
Next
End Sub
在此界面直接按F5运行此宏,图片大小变为原来的1/4。如果想变为原来的1/9,请把粗体的2改为3.
能帮到你的话,望采纳最佳哦。
3.word中如何将大量图片批处理统一的尺寸大小
设置图片高度为 99px ActiveDocument.InlineShapes(n).Height = 99 '忽略错误 For n = 1 To ActiveDocument:(之后单击运行即可) Dim n '.Width = 71 '; 在Sub 宏名()与End Sub之间编写如下代码;设置图片宽度 71px Next n For n = 1 To ActiveDocument;InlineShapes类型图片 ActiveDocument.InlineShapes.Shapes.InlineShapes(n);设置图片高度为 99px ActiveDocument.Width = 71 '.Shapes(n),输入宏名——(非数字)——创建.Height = 99 '.Shapes(n)选择工具——宏——宏(Alt+F8调出宏编辑窗口).Count '图片个数 On Error Resume Next 'Shapes类型图片 ActiveDocument.Count '。