用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 UnitwdItem \'选中第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. 直接用鼠标双击\"名片模板\"或进入WORD后，打开\"名片模板\"。
2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
3. 选中名片样板图文框。
4. 单击\"名片\"工具栏上的\"复制排版\" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
5. 用\"文件\"菜单中的\"打印\"命令将整联名片打印输出。
6．如果需要，可\"另存为\"一个Word文档。
    以上操作简单、方便、高效，读者不妨试一试。