① 如何调整word中照片的尺寸
刚回答过一个不是你吧,一并粘过来吧.
word2007 选定一张图片后，然后点击“格式相似的文本”，就可以把本文档里的全部图片选定，，然后再在图片工具栏里把长宽修改成相同的尺寸。
2003等:
一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片
Sub Macro()
Mywidth=10'10为图片宽度（厘米）
Myheigth=10'10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
② 求：word中用vba实现删除长宽都小于10mm的图片
以下程序供您参考，希望对你有所帮助。
PS: 操作前请将WORD文档另作备份，谨防误操作，因数据丢失而致遗恨万年！！！
（引用外来程序均请养成数据备份的好习惯！！！）
Sub picDelete()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oShape As Shape
Dim oInLineShape As InlineShape
mSize = 10 '设置图片高宽限值为10CM
nRate = 28.345 '默认图片分辨率Dpi=72Px, cm(厘米):Px（像素）=1:28.345,
With oDoc
For Each oShape In .Shapes '删除文字环绕型图片
If oShape.Width < mSize * nRate And oShape.Height < mSize * nRate Then
oShape.Delete
End If
Next
For Each oInLineShape In .InlineShapes '删除嵌入型图片
If oInLineShape.Width < nRate * nRate And oInLineShape.Height < mSize * nRate Then
oInLineShape.Delete
End If
Next
End With
oDoc.Save '文档保存
End Sub