1、新建三个按钮控件分别命名为mubiaobtn，liushui，CommandButton1新建两个文本框用于输入范围分别命名为from，to；新建六个文本框用于变量的定义分别命名为qnum，qnum1，qnum2，hnum，hnum1，hnum2 ，其他控件请参照上次的增强版经验教程，布局及效果如下；
2、为模板指定也就是CommandButton1编写代码如下：Dim q As Shape, muban As ShapeRan爿讥旌护ge, num As Shape, num1 As Shape, num2 As ShapePrivate Sub CommandButton1_Click()Set muban = ActiveSelectionRangeOn Error Resume NextSet num = ActiveSelection.Shapes.FindShape("num")Set num1 = ActiveSelection.Shapes("num1")Set num2 = ActiveSelection.Shapes("num2")End Sub
3、为流水指定也就是liu衡痕贤伎shui编写代码如下：Private Sub liushui_Click()On Error Resume NextActiveDocument.Unit = cdrMillimeterDim s As Shape, p As ShapeRange, n As String, n1 As String, n2 As String, d As Integerd = 1For i = from.Text To too.Textn = qnum.Text & i & hnum.Textn1 = qnum1.Text & i & hnum1.Textn2 = qnum2.Text & i & hnum2.TextSet p = muban.Duplicate()p.LeftX = p.LeftX + (p.SizeWidth + 10) * dnum.Text.Story.Text = nnum1.Text.Story.Text = n1num2.Text.Story.Text = n2d = d + 1Next iEnd SubPrivate Sub mubiaobtn_Click()Set q = ActiveShapeEnd Sub
4、代码已经编写完成，效果如下 欢迎参考指正 cdrvba欢迎您
