[分享]使用WORD宏制作工资条源码

clz624

Sub 生成工资条()
    Selection.CurrentRegion.Offset(2, 0).Select
    Cells(Selection.Row, Selection.Column).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Range("A1").Select
    Do Until ActiveCell = ""
        Selection.Insert Shift:=xlDown
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        ActiveCell.Offset(2, 0).Range("A1").Select
    Loop
    Application.CutCopyMode = False
End Sub

dozhihang

[em08]