WORD根据n复制行数

LMY123

Sub test()
     n = 8
'''     n = ActiveDocument.Tables(1).Cell(10, 2) 怎么把n=8换成这一句，也就是把n等于常量换成n等于变量

    ActiveDocument.Tables(1).Cell(9, 2).Select
    Selection.Copy
    Selection.MoveDown Unit:=wdLine, Count:=n - 1, Extend:=wdExtend
    Selection.Paste

    ActiveDocument.Tables(1).Cell(9, 3).Select
    Selection.Copy
    Selection.MoveDown Unit:=wdLine, Count:=n - 1, Extend:=wdExtend
    Selection.Paste

    ActiveDocument.Tables(1).Cell(9, 4).Select
    Selection.Copy
    Selection.MoveDown Unit:=wdLine, Count:=n - 1, Extend:=wdExtend
    Selection.Paste

    ActiveDocument.Tables(1).Cell(9, 5).Select
    Selection.Copy
    Selection.MoveDown Unit:=wdLine, Count:=n - 1, Extend:=wdExtend
    Selection.Paste

End Sub
原表.rar (8.31 KB, 下载次数: 14)

2014-12-22 22:09 上传

点击文件名下载附件

效果表.rar (8.34 KB, 下载次数: 14)

2014-12-22 22:09 上传

点击文件名下载附件

413191246se

楼主，根据网友介绍，现在Word2003有自动填充的功能，就是：具体到你的文档，请把（C30        桩基        2014-12-16        大成）这四个单元格都选中，按“复制”按钮，再把要“粘贴”的区域选中，再按一下“粘贴”按钮，即可。