中国喷墨论坛-喷墨技术应用-数码影像-数码印刷-数码印花
标题:
用WORD做名片 此法可行!!!!
[打印本页]
作者:
要命的恩恩
时间:
2008-7-11 10:08
标题:
用WORD做名片 此法可行!!!!
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。
: e! \# }. {1 N* I
页面及图文框设置
# X. E7 m" q2 ^( c ?
首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。
* f% w( T& b8 W
进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
8 b: H* E; @7 f- r" L. R& E. W& E
从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。
5 h# t( t7 c# s( z* M! r( x* B+ f3 I
从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。
' ~# g9 H' R7 Q, M# W- q# h, f3 {: w
定义"复制排版"工具按钮
+ x$ B% l& v [
接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
- V. |' h! q0 K3 S; ]8 C+ l* U
选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中:
% O j3 u9 ~' P: z$ Q! Z9 w4 D
①指定一个宏名--"复制排版";
4 ~6 ?" ? E5 z. n3 a4 U2 S& M; n' D
②指定将宏保存在当前文档;
% x& \$ B5 J, [
③单击"工具栏"按钮,弹出"自定义"对话框。
0 ^- h4 `: u, _" q, l* V
在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。
' k& l( T# n) ~
在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。
; R. {% |& e( k; n
"关闭"自定义对话框,"停止"宏录制。
" d# a8 y4 |2 `8 ?5 S
用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。
6 ^3 ^ |- F' Q5 \7 ?$ v
4 `" D7 t5 S5 c( m
将以下代码输入或复制进去:
7 U& }+ i3 U- r$ u( A
Selection.Cut "剪切选中的图文框
$ V* w# F M5 U( ]$ j5 M1 D
For k = 1 To 10 "粘贴10次
* M2 G% U4 _5 Q# K M
Selection.Paste
# ?9 c( z. E, F. H3 N T6 z
Next
7 X3 `8 |9 d4 Z% U1 v' ]
Selection.MoveLeft Unit:=wdItem "选中第1个图文框
! @6 f9 k6 K! Q6 e6 W# D+ V
With Selection.Frames(1)
9 }8 _8 f* j9 D" [# _- V
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
. ]& @* Y: T, k* ^& A5 b
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( }/ V6 E' N; A9 ?$ n; m* `
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
! R& x" P$ j7 g' A
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
" N Y# v' P( p$ y! H
End With
' m6 B3 e+ R/ q/ y
Selection.MoveLeft Unit:=wdItem "选中第2个图文框
/ ~3 c; i2 T/ [# C6 H0 g
With Selection.Frames(1)
6 o7 S8 I. [* J: }1 O+ T$ B+ q
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
% ]( j$ g; i k4 U' X6 @& @/ `
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
8 b L W, b- C6 g5 O- A9 m
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
8 g/ W# r+ D! r6 k8 P4 H
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
0 }" L3 r2 S* P! F( E
End With
2 n" _8 d! }8 x- L
Selection.MoveLeft Unit:=wdItem "选中第3个图文框
0 n3 p4 Y. F) ]5 _
With Selection.Frames(1)
) v; @ R4 J0 X& l( M' v3 c- @
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
5 k8 Z# K4 G0 {
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' j6 f, R& g9 k6 {4 E& z' _
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
% T9 Y6 T9 j; I2 B- ~' x/ r
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
! J! M" v( z% o5 X6 @6 b
End With
2 Z$ U) R# E% \5 d
Selection.MoveLeft Unit:=wdItem "选中第4个图文框
' I1 {' ]. _+ W# A
With Selection.Frames(1)
$ _8 w# @( [' Q0 r5 b! d# B. [' o
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
2 k- `" z2 J7 G/ }! ]
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
9 Q/ [' q' q8 j. g+ Y. {0 g6 G( i; T w
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
6 U; q6 b% d% ]2 Y5 z: x! ]
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
/ ? W9 G/ W, E5 i$ N8 W2 Q
End With
# x2 N; l8 k; ^9 a3 V4 w' _
Selection.MoveLeft Unit:=wdItem "选中第5个图文框
6 X8 `: u6 A% }) B+ N% k, z8 m0 F5 k
With Selection.Frames(1)
- z, T$ J% m- u9 O, w
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
9 J& h% L. @$ l+ v& _; a/ K; n- D
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
3 X. K( @. d- ^2 c7 [7 E
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
% v) p3 n) e% R, M& k4 d8 c8 d
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
4 b3 o$ O7 O" G- |# c1 ?2 R G
End With
+ [- ?: I# U0 k' V
Selection.MoveLeft Unit:=wdItem "选中第6个图文框
2 S5 w5 n: N' W0 ]
With Selection.Frames(1)
( X$ s, N/ H" ~2 U+ K: m% u! x9 E
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
& D* ]' _8 |$ _) N
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
$ C% I# _- c* X# H4 T
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
! M" S K# L9 \+ m
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
) N6 h, \0 b4 p
End With
- [ U8 A& L% n" c
Selection.MoveLeft Unit:=wdItem "选中第7个图文框
1 h: X' \) K5 X
With Selection.Frames(1)
. D- I/ S4 P2 T) Z- L$ E( h
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
' U- ]1 b/ }9 X: }$ G8 C) V
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, a+ t8 X* O7 H* K+ e( M; M
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
5 D. u6 F& w- i; v! \% k; j
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
, l' b# u7 ^. }- ]; c7 x+ `
End With
$ ]* R. E4 w# g9 ?
Selection.MoveLeft Unit:=wdItem "选中第8个图文框
" q) P# F. ?, L3 w& F
With Selection.Frames(1)
' G' L0 f7 }9 n9 x
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
& j5 T7 J& Y4 E' H8 G
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
6 U7 A8 C! @6 h
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
$ t& m( f4 a1 }6 e# ?; b, R
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
3 g7 I' t) T8 l( u' z9 w" ^$ H
End With
9 q* d7 W6 I( d; u; L, q2 q6 A z
Selection.MoveLeft Unit:=wdItem "选中第9个图文框
- p3 E0 w9 Z8 ]; l4 h1 j+ a
With Selection.Frames(1)
! w! |( p, W( d7 X! t; _; b
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
6 _! u- s2 `2 @: }% e
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) Q" f' Y8 f4 V; r I! @% h( v
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
3 f* u$ L7 U2 c7 M6 W0 B
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
4 a$ z9 n5 h) V# x
End With
5 _( ^8 l. l- l6 T0 U7 e2 {; j
Selection.MoveLeft Unit:=wdItem "选中第10个图文框
! g0 W5 D& p7 c. r/ z
With Selection.Frames(1)
: `1 A2 Q. `/ ]
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
$ [. g) |: x" c- u
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, O9 K9 y9 F3 y4 W1 g
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
/ w4 Q' ]1 j) U) U5 ^* e+ s3 u8 t
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
/ _& K! j, ^5 ]
End With
4 E: ]2 o& H! x* N
最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
" m' _. N0 V- o- G2 v! l
使用方法
8 Q2 i; _+ `6 }4 [- r& X- s$ M
用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。
. }# {% \8 l5 t2 V, q
1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
# {- A Y$ y7 U( f( F
2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。
1 r8 I' U( V3 {' {) ^! k" Y
3. 选中名片样板图文框。
* L2 h6 C; N" }5 m" ?/ g
4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
% O5 o9 O. t) V4 M
5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
0 q7 h4 J7 g9 |
6.如果需要,可"另存为"一个Word文档。
# P' ?7 [/ s6 k( W0 r7 |# c
以上操作简单、方便、高效,读者不妨试一试。
作者:
青云
时间:
2008-7-11 11:45
试试
作者:
designjet
时间:
2008-7-11 18:55
作者:
caife1217
时间:
2008-8-26 16:08
太麻烦了点,现在做名片的软件有很多,最好用的还是cdr
作者:
allwen110
时间:
2008-9-1 14:50
作者:
杨小花
时间:
2008-9-1 15:24
看着眼晕
作者:
影子精品
时间:
2008-9-18 03:54
还不错,虽然现在做名片的软件很多,但也有很多是要收费的
作者:
兰竹轩主
时间:
2010-5-22 14:41
学习了!谢谢!
作者:
时光印象
时间:
2010-6-7 01:06
作者:
凉言奕勋
时间:
2010-6-10 06:06
提示:
作者被禁止或删除 内容自动屏蔽
作者:
wangzhenhan
时间:
2010-6-10 19:13
学习
作者:
扫地老僧
时间:
2010-6-11 05:28
房价招标是个好办法,不过监管跟要跟得上。
欢迎光临 中国喷墨论坛-喷墨技术应用-数码影像-数码印刷-数码印花 (http://new.inknet.cn/bbs/)
Powered by Discuz! X3.1