- 欢迎访问起航教学!
在Word2017下创建一个名片制作模板
12-14 18:43:46 分类:办公技巧 浏览次数: 615次
标签:办公技巧大全,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 谢谢支
尽管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 谢谢支
相关热词搜索:
- ·上一篇:更改默认的度量单位
- ·下一篇:Word中将公式完整显示出来
分享到:
收藏
评论排行
办公技巧 热门排行
- · PowerPoint2017教程:平抛运动的实现
- · 粘贴预览 Excel2017粘贴效果预览功能
- · 在Word2017文档中替换字符技巧
- · 轻松找回Office2017传统界面
- · 用Word 2017书签编辑长文档
- · 将PowerPoint2017幻灯片打包成CD并刻录
- · Word2017应用技巧荟萃
- · word2017怎样设置和灵活应用页眉和页脚
- · 如何删除最近的Word2017文档记载
- · 经典Word 2017小技巧
- · PowerPoint2017丰富图片优化编辑
- · 禁止未授权用户修改 Word 2017 文档
- · 两种方法解决Office2017和office 2017
- · Word2017中显示或隐藏标尺网格线和导航
- · 提取PowerPoint2017中的图片
- · 在PowerPoint2017(PPT)中插入Excel图
- · 在Word2017中设置折页和拼页页边距
- · 用Web版式视图将Excel2017表格转为Wor
- · 设置Excel2017数据精度 保障准确性
- · Word2017很多你看不见的技巧
- · Word2017中智能标记的设置
- · Word 2017文档中设置纸张大小技巧
- · Office 2017安装后出现的Q盘分区有什么
- · 利用Word2017新功能除去修订