怎么批量处理word中的照片？

1、第一步,新建一个word文档;

2、第二步,按ALT+F11键,打开VBA(此界面就是用来编写代码)

3、第三步,找到你要处理的word文档,单击右键—一插入——模块,将命令复制

粘帖到对话框中,单击运行即可;具体操作如下:

4、批量处理图片大小：修改图片高度和宽度

For Each isha In Activedocument. Inline Shapes

If ishaType wdinline Shape Picture Then

isha. Lockaspectratio= msofalse'不锁定纵横比

isha Width Centimeterstopoints(24.66)3i 5CM

isha Height= Centimeters Topoints(13. 7)7) 5CM

End If

End sub

5、方法二、批量处理图片大小(自动为图片命名)

代码如下

Sub Insertpico

Dim myfile As Filedialog

Set myfile Application Filedialog(mso File Dialog Filepicker

With mvfile

nitialfilename = 1:

If Show=-1 Then

For each fn In Selecteditems

6、Selection. Movedown

End if

Selection Text= Basename(fn)'函数取得文件名

7、Selection Endkey

If Selection Start= Active Document: Content. end-1 Then 'u it

标在文末

8、Paragraph'在文末添加一空段

Selection. Movedown

Next fn

Else