用Word2003制作名片.doc

在Word2003下名片制作模板 关键字：宏 名片模板 尽管Word2003提供的向导、信封和标签;功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2003的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。 一、页面及图文框设置 首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。 进入Word 2000，在文件菜单中选择页面设置命令。选定纸型卡，指定宽度和高度分别为19.5厘米和29.5厘米（标准名片纸张规格）。选定页边距卡，指定上、下、左、右边距均为0.7厘米。单击确定按钮，退出页面设置。 从插入菜单中选择文本框|横排命令，在当前文档空白处拖动鼠标，任意画一个文本框。从格式菜单中选择文本框命令，在文本框卡中，单击转换为图文框按钮，确认后，再选格式|图文框菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米（标准名片规格）。单击确定按钮，退出图文框设置。 从格式菜单中选择边框和底纹命令，在边框卡中，设置无边框。单击确定按钮，将图文框的边框取消。 二、定义复制排版工具按钮 接下来，我们定义一个复制排版工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 选中图文框，选择工具|宏|宏录制菜单。在宏录制对话框中： 指定一个宏名-复制排版； 指定将宏保存在当前文档； 单击工具栏按钮，弹出自定义对话框。 在自定义对话框的工具栏卡中，单击新建按钮。指定工具栏名为名片，工具栏的有效范围为当前文档，然后确定。 在自定义对话框的命令卡中，将宏Project.NewMacros.复制排版拖动到新建工具栏。单击更改所选内容按钮，修改工具栏按钮名为复制排版。 关闭自定义对话框，停止宏录制。 用工具|宏|宏菜单，选择前面定义宏复制排版，单击编辑按钮，进入编辑状态。 将以下代码输入或复制进去： 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 最后，关闭宏编辑器，用另存为菜单，将文档保存为文档模板，取名名片模板。整个一个名片制作模板即告完成。 三、使用方法 用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。 1. 直接用鼠标双击名片模板