在Word2003下名片制作模板
关键字：宏 名片模板
尽管Word2003提供的\"向导\"、\"信封和标签\";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2003的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
一、页面及图文框设置
首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
进入Word 2000，在\"文件\"菜单中选择\"页面设置\"命令。选定\"纸型\"卡，指定\"宽度\"和\"高度\"分别为19.5厘米和29.5厘米（标准名片纸张规格）。选定\"cust页边距\"卡，指定上、下、左、右边距均为基本演绎法 第一季0.7厘米。单击\"确定\"按钮，退出\"页面设置\"。
从\"插入\"菜单中选择\"文本框|横排\"命令，在当前文档空白处拖动鼠标，任意画一个文本
框。从\"格式\"菜单中选择\"文本框\"命令，在\"文本框\"卡中，单击\"转换为图文框\"按钮，确认后，再选\"格式|图文框\"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米（标准名片规格）。单击\"确定\"按钮，退出\"图文框\"设置。
从\"格式\"菜单中选择\"边框和底纹\"命令，在\"边框\"卡中，设置\forty"无\"边框。单击\"确定\"按钮，将图文框的边框取消。
二、定义\"复制排版\"工具按钮
接下来，我们定义一个\"复制排版\"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
选中图文框，选择\"工具|宏sp是什么|宏录制\"菜单。在\"宏录制\"对话框中：
①指定一个宏名--\"复制排版北京的翻译公司\"；
②指定将宏保存在当前文档；
③单击\"工具栏\"按钮，弹出\"自定义\"对话框。
在\"自定义\"对话框的\"工具栏\"卡中，单击\"新建\"按钮。指定工具栏名为\"名片\"，工具栏的有效范围为当前文档，然后\"确定\"。
在\"自定义\"对话框的\"命令\"卡中，将宏\"Project.NewMacros.复制排版\"拖动到新建工具栏。单击\"更改所选内容\"irony按钮，修改工具栏按钮名为\"复制排版\"。
\"关闭\"自定义对话框，\"停止chevroler\"宏录制。
用\"工具|宏|宏\"菜单，选择前面定义宏\"复制排版\"，单击\"编辑\"按钮，进入编辑状态。
将以下代码输入或复制进去：
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)
.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个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameRight \'水平相对于页边距、右侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = wdFrameCenter \'垂直相对于页边距、居中
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
End With
Selection.MoveLeft Unit:=wdItem \'选中第7个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameRight \'水平相对于页边距、右侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = CentimetersToPoints(6.4) \'垂直相对于页面、6.4厘米
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
End With
Selection.MoveLeft Unit:=wdItem \'选中第8个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameLeft \'水平相对于页边距、左侧不多不少
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = CentimetersToPoints(6.4) \'垂直相对于页面、6.4厘米
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
End With
Selection.MoveLeft Unit:=wdItem \'选中第9个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameRight \'水平相对于页边距、右侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = wdFrameTop \'垂直相对于页边距、顶端
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
End With
Selection.MoveLeft Unit:=wdItem \'选中第10个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameLeft \'水平相对于页边距、左侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = wdFrameTop \'垂直相对于页边距、顶端
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
End With
最后，关闭宏编辑器，用\"另存为\"菜单，将文档保存为\businessplan"文档模板\"，取名\"名片模板\"。整个一个名片制作模板即告完成。
