Word2000下创建名片制作模板

宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。

将以下代码输入或复制进去：

　　Selection.Cut '剪切选中的图文框

　　For k = 1 To 10 '粘贴10次

　　　　Selection.Paste

　　Next

　　Selection.MoveLeft Unit:=wdItem '选中第1个图文框

　　With Selection.Frames(1)

　　　　.HorizontalPosition = wdFrameLeft '水平相对于页边距、左侧　　　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin　　　　.VerticalPosition = wdFrameBottom '垂直相对于页边距、低端　　　　.RelativeVerticalPosition = wdRelativeVerticalPositionMargin

　　End With

　　Selection.MoveLeft Unit:=wdItem '选中第2个图文框

　　With Selection.Frames(1)

　　　　.HorizontalPosition = wdFrameRight '水平相对于页边距、右侧　　　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin　　　　.VerticalPosition = wdFrameBottom '垂直相对于页边距、低端 　　　　.RelativeVerticalPosition = wdRelativeVerticalPositionMargin

　　End With

　　Selection.MoveLeft Unit:=wdItem '选中第3个图文框

　　With Selection.Frames(1)

　　　　.HorizontalPosition = wdFrameRight '水平相对于页边距、右侧　　　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin　　　　.VerticalPosition = CentimetersToPoints(17.7) '垂直相对于页面、17.7厘米　　　　.RelativeVerticalPosition = wdRelativeVerticalPositionPage

　　End With

　　Selection.MoveLeft Unit:=wdItem '选中第4个图文框

　　With Selection.Frames(1)[next]

　　　　.HorizontalPosition = wdFrameLeft '水平相对于页边距、左侧　　　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin　　　　.VerticalPosition = CentimetersToPoints(17.7) '垂直相对于页面、17.7厘米　　　　.RelativeVerticalPosition = wdRelativeVerticalPositionPage

　　End With

　　Selection.MoveLeft Unit:=wdItem '选中第5个图文框

　　With Selection.Frames(1)

　　　　.HorizontalPosition = wdFrameLeft '水平相对于页边距、左侧　　　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin　　　　.VerticalPosition = wdFrameCenter '垂直相对于页边距、居中　　　　.RelativeVerticalPosition =wdRelativeVerticalPositionMargin

　　End With

　　Selection.MoveLeft Unit:=wdItem '选中第6个图文

……