VBA统一处理WORD中的图片大小.docx

Sub AdjustPicWidthAndHeight() Alt E AdjustPicWidthAndHeight 宏Dim n, mDim blnisinlineshape As BooleanDim mylineshape As InlineShapeOn Error Resume Next 忽略错误For Each mylineshape In ActiveDocument.InlineShapesIf mylineshape.Height mylineshape.Width ThenSelection.InlineShapes.ConvertToShapeSelection.ShapeRange.IncrementRotation 90End IfNextFor n = 1 To ActiveDocument.InlineShapes.Count inlineshapes类型的图片h = ActiveDocument.InlineShapes(n).Heightw = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比If h w Thenblnisinlineshape = tureSelection.InlineShapes(n).ConvertToShapeSelection.ShapeRange.IncrementRotation -90End IfNext nm = ActiveDocument.InlineShapes.CountFor n = 1 To 2 inlineshapes类型的图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比ActiveDocument.InlineShapes(n).Height = 153 设置图片高度为 243pxActiveDocument.InlineShapes(n).Width = 243 设置图片高度为153px ActiveDocument.InlineShapes(n).Range.Paragraphs(1).Range.ParagraphFormat.CharacterUnitFirstLineIndent = 0 ActiveDocument.InlineShapes(n).Range.Paragraphs(1).Range.ParagraphFormat.FirstLineIndent = 0 ActiveDocument.InlineShapes(n).Range.Paragraphs(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenterNext nFor n = 1 To 2 inlineshapes类型的图片ActiveDocument.Shapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 153 设置图片高度为 153pxActiveDocument.Shapes(n).Width = 243 设置图片高度为243pxNext nFor n = 3 To m inlineshapes类型的图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比ActiveDocument.InlineShapes(n).Height = 297 设置图片高度为 297pxActiveDocument.InlineShapes(n).Width = 405 设置图片高度为405pxNext nFor n = 3 To m inlineshapes类型的图片ActiveDocument.Shapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 297 设置图片高度为 297pxActiveDocument.Shapes(n).Width = 405 设置图片高度为405pxNext n With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 50 .SpaceBeforeAuto = False .SpaceAfter = 50 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceMultiple .LineSpacing = LinesToPoints(3) .Alignment = wdAlignParagraphCenter .WidowControl = False .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 10 .LineUnitAfter = 10 .MirrorIndents = False .TextboxTightWrap = wdTightNone .AutoAdjustRightIndent = True .DisableLineHeightGrid = False .FarEastLineBreakControl = True .WordWrap = True .HangingPunctuation = True .HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = True .AddSpaceBetweenFarEastAndDigit = True .BaseLineAlignment = wdBaselineAlignAuto End WithEnd SubSub 处理扫描照片() 处理扫描照片 宏Dim n, mDim blnisinlineshape As BooleanDim mylineshape As InlineShapeOn Error Resume Next 忽略错误m = ActiveDocument.InlineShapes.CountFor n = 1 To 2 inlineshapes类型的图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比ActiveDocument.InlineShapes(n).Height = 153 设置图片高度为 243pxActiveDocument.InlineShapes(n).Width = 243 设置图片高度为153pxNext nFor n = 1 To 2 inlineshapes类型的图片ActiveDocument.Shapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 153 设置图片高度为 153pxActiveDocument.Shapes(n).Width = 243 设置图片高度为243pxNext nFor n = 3 To m inlineshapes类型的图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比ActiveDocument.InlineShapes(n).Height = 297 设置图片高度为 297pxActiveDocument.InlineShapes(n).Width = 405 设置图片高度为405pxNext nFor n = 3 To m inlineshapes类型的图片ActiveDocument.Shapes(n).LockAspectRatio = msoFalse 不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 297 设置图片高度为 297pxActiveDocument.Shapes(n).Width = 405 设置图片高度为405pxNext n With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 50 .SpaceBeforeAuto = False .SpaceAfter = 50 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceMultiple .LineSpacing = LinesToPoints(3) .Alignment = wdAlignParagraphCenter .WidowControl = False .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 10 .LineUnitAfter = 10 .MirrorIndents = False .TextboxTightWrap = wdTightNone .AutoAdjustRightIndent = True .DisableLineHeightGrid = False .FarEast