1、Comment 微微微微1: 图片高度Comment 微微微微2: 图片宽度Comment 微微微微3: 起始行宏的打开：在工具中有，或者是 alt+F8Word中调整图片宏：Sub setpicsize()Dim jFor j = 1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(j).Height = 160ActiveDocument.InlineShapes(j).Width = 210Next jEnd Sub这个宏是用于 word中，统一调整图片的大小，可以一次性将所有的图片调整到统一的大小。Exce
2、l中插入行：Sub 插入行()Range(“A1 “).SelectDo While Selection “ “Selection.Offset(1, 0).SelectSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelecti
3、on.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertComment 微微微微4: 要插入多少行，就要多少个插入Comment 微微微微5: 共插入行数Selection.EntireRow.InsertSelection.EntireRow.InsertSelection.Offset(22, 0).SelectLoopRange(“A1 “).SelectEnd Sub这个宏是用于在 excel中批量插入空行比如要在每一行的后面都插入 22个空行就可以运行此宏结果如下注意：由于没有学过 VB语言，插入行这个宏，没有完善，不能自动停止，当你需要插入空行的行运行过后直接按 ESC 键退出，结束宏的运行
