Word中按页面宽度调整图片的宏

这段时间在搞一些书法的东西。从视频上直接截图，粘贴到word里就会按照页宽直接设置图片宽度，但重新排版改变了页边距之后就难看了。做了个VBA宏解决问题。

已经很久不搞挨踢了，但还是很以拥有IT技能为荣，确实比普通人擅长解决问题。目前觉得，离开IT本行也能用得到的IT技能有：Html，正则表达式，Office。当然别忘了还有男人必备技能——装系统。

 

Sub 按页宽调整图片()

pw = ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - ActiveDocument.PageSetup.RightMargin

Dim oInlineShape As InlineShape

For Each oInlineShape In ActiveDocument.InlineShapes

With oInlineShape

.ScaleWidth = 100 '先都设成原始大小

If .Width > pw Then

.Width = pw '然后调整为页宽

End If

End With

Next

End Sub