在Word2017下创建一个名片制作模板

标签：办公技巧大全,http://www.qihang56.com 在Word2017下创建一个名片制作模板,
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
　　
　　一、页面及图文框设置
　　
　　首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
　　
　　进入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)
www.qihang56.com 　　
　　.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
www.qihang56.com 　　
　　.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文档。
　　
　　以上操作简单、方便、高效，读者不妨试一试。
　　
　　本文来自 http://www.qihang56.com 谢谢支