① 如何調整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