原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
自动调整word文档中的图片大小及版式,word文档版式,怎么调整word文档大小,word版式,word版式设置,word中文版式,word2007中文版式,word版式在哪里,word阅读版式视图,word2010中文版式
批量设置word 里图片的大小及版式的技巧
1.批量设置固定大小
工具-宏-新建
Sub setpicsize() 设置图片大小
Dim n 图片个数
On Error Resume Next 忽略错误
For n = 1 To ActiveDocument.Shapes.Count Shapes类型图片
ActiveDocument.Shapes(n).Height = 70 设置图片高度为 70px
ActiveDocument.Shapes(n).Width = 80 设置图片宽度 80px
Next n
End Sub
运行即可
2.批量按比率缩小或放大
新建宏
Sub setpicsize() 设置图片大小
Dim n 图片个数
Dim picwidth
Dim picheight
On Error Resume Next 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes 类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.7 设置高度为0.7倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.7 设置宽度为0.7倍
Next n
For n = 1 To ActiveDocument.Shapes.Count Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.7 设置高度为0.7倍
ActiveDocument.Shapes(n).Width = picwidth * 0.7 设置宽度为0.7倍
Next n
End Sub3批量将图片转成嵌入型
新建宏
Sub 图片转嵌入型()
Dim apic As Shape
Application.ScreenUpdating = False
For Each apic In ActiveDocument.Shapes
apic.ConvertToInlineShape 转换为嵌入型
Next
Application.ScreenUpdating = True
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.ParagraphFormat
.LeftIndent = MillimetersToPoints(0)
.RightIndent = MillimetersToPoints(0)
.SpaceBefore = 6
.SpaceBeforeAuto = False
.SpaceAfter = 6
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
.WidowControl = False
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = MillimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
文档评论（0）