用Word2003制作名片.docVIP

在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