ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Word > 如何运用WORD VBA将WORD的表格的每7个纵向单元格整理为1行

如何运用WORD VBA将WORD的表格的每7个纵向单元格整理为1行

作者:绿色风 分类: 时间:2022-08-18 浏览:118
楼主
xmyjk
Q:如何运用WORD VBA将WORD的表格的每7个纵向单元格整理为1行,并移动里面的图片,如下面图所示。

 整理成为:
 

A:
  1. Sub test()
  2.     Dim i&, j&
  3.     For i = 1 To 6 '先增加表格的列数,增加至7列
  4.         With ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range '选定第一个单元格
  5.             .Select
  6.             Selection.InsertColumnsRight '增加一列
  7.         End With
  8.     Next
  9.     For i = 2 To ActiveDocument.Tables(1).Rows.Count '从纵向第二个图片开始历遍
  10.         ActiveDocument.Tables(1).Cell(i, 1).Range.Select '选择单元格
  11.         Selection.Cut '剪贴
  12.         ActiveDocument.Tables(1).Cell((i - 1) \ 7 + 1, (i - 1) Mod 7 + 1).Range.Select '选择目标单元格
  13.         Selection.PasteAndFormat (wdPasteDefault) '黏贴
  14.     Next
  15. ActiveDocument.Tables(1).Cell((i - 1) \ 7 + 2, 1).Range.Select '选择整理后,有数据单元格最后一行的下一行的第一个单元格
  16. Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend '选定向右扩展6列
  17. Selection.MoveDown Unit:=wdLine, Count:=7, Extend:=wdExtend '选定向下扩展至表格尾部
  18. Selection.Cells.Delete ShiftCells:=wdDeleteCellsEntireRow '删除多余空行
  19. End Sub

14.zip
2楼
い卋玑┾宝珼
妃妃学东西真快,学习ING
3楼
eliane_lei
向弦月学习!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap