coreldraw vba脚本教程-流水号生产-高级版

1、新建三个按钮控件分别命名为mubiaobtn，liushui，CommandButton1新建两个文本框用于输入范围分别命名为from，to；新建六个文本框用于变量的定义分别命名为qnum，qnum1，qnum2，hnum，hnum1，hnum2 ，其他控件请参照上次的增强版经验教程，布局及效果如下；

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