作者：绿色风
分类：
时间：2022-08-18
浏览：118
楼主
xmyjk |
Q:如何运用WORD VBA将WORD的表格的每7个纵向单元格整理为1行，并移动里面的图片，如下面图所示。
 整理成为：
A:- Sub test()
- Dim i&, j&
- For i = 1 To 6 '先增加表格的列数，增加至7列
- With ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range '选定第一个单元格
- .Select
- Selection.InsertColumnsRight '增加一列
- End With
- Next
- For i = 2 To ActiveDocument.Tables(1).Rows.Count '从纵向第二个图片开始历遍
- ActiveDocument.Tables(1).Cell(i, 1).Range.Select '选择单元格
- Selection.Cut '剪贴
- ActiveDocument.Tables(1).Cell((i - 1) \ 7 + 1, (i - 1) Mod 7 + 1).Range.Select '选择目标单元格
- Selection.PasteAndFormat (wdPasteDefault) '黏贴
- Next
- ActiveDocument.Tables(1).Cell((i - 1) \ 7 + 2, 1).Range.Select '选择整理后，有数据单元格最后一行的下一行的第一个单元格
- Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend '选定向右扩展6列
- Selection.MoveDown Unit:=wdLine, Count:=7, Extend:=wdExtend '选定向下扩展至表格尾部
- Selection.Cells.Delete ShiftCells:=wdDeleteCellsEntireRow '删除多余空行
- 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总版主之一