|
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。 ( r; f! _/ W3 Q3 K
页面及图文框设置
, e$ b/ f# M$ @- X' H3 X 首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。 $ |* c! n& ?1 [/ b' X7 V% k
进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
+ R. f# e P; H 从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。 : A% h4 d) S: U) r! Z+ A
从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。
2 ~" t' g0 I1 ^% ^5 d5 i 定义"复制排版"工具按钮 , X1 Q- Z; D$ e, V6 a
接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 / `5 m& x- b u2 j; p4 p
选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中: 2 e o* n/ ?: y0 R
①指定一个宏名--"复制排版"; , @3 c, l, Q! C/ c: d
②指定将宏保存在当前文档;
. y( j; l) w1 x5 U# ?! p8 V ③单击"工具栏"按钮,弹出"自定义"对话框。
5 J6 i- v8 N1 B6 A7 T/ i: M) J 在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。 ; w. l6 V j- M9 Z
在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。 % o9 w$ |* W" h
"关闭"自定义对话框,"停止"宏录制。
2 f" F) s6 s, h! k: U! b 用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。- \, x% u! H; [
6 Y! j0 N$ V" q9 U# k+ D 将以下代码输入或复制进去:
5 M: t1 R8 D( a1 Q& O3 v Selection.Cut "剪切选中的图文框7 T/ P" I' F; [ u
For k = 1 To 10 "粘贴10次
2 Y8 X! y) j/ w4 q$ W Selection.Paste
) T) Z* f) ?( e" z8 q# {7 M Next) V" q" D7 a: u7 G
Selection.MoveLeft Unit:=wdItem "选中第1个图文框- @9 @4 }& M5 ], E) o5 e% Q+ K
With Selection.Frames(1)6 q) s9 X+ x+ k, h$ D
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
1 Q3 x3 L4 w( I) H) Q% ~# N .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
1 G, N7 q( F# Q, F+ [: O& _1 x .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
, m" h4 u8 c5 V) D8 d .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
# [1 m9 T2 B. _ End With6 q! `( ^( n8 r" [; O2 S. G2 r
Selection.MoveLeft Unit:=wdItem "选中第2个图文框
{' G! {% A3 @4 n9 a4 T With Selection.Frames(1)
: R1 F5 s/ \6 E0 w. a5 k .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
! z; W6 L' Q. U0 l .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& c3 C0 W( B7 ]# X4 Y- a8 A4 S
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
" S* j: H9 e7 @5 J/ ~5 h( ` .RelativeVerticalPosition = wdRelativeVerticalPositionMargin. S a$ G1 U3 r% B
End With0 l5 B$ r2 C4 g- \
Selection.MoveLeft Unit:=wdItem "选中第3个图文框
0 S+ h3 G3 B1 s/ ^4 q" x8 j& O- b8 b With Selection.Frames(1)3 q" H+ S+ m d* M( W# M1 ?+ H
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧( G" J6 J" a- \3 ]* `7 a; ^
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' P+ N' |8 C, P .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
+ @) U5 A5 j0 w; h' E, j; y- K1 Y .RelativeVerticalPosition = wdRelativeVerticalPositionPage
" M; { K1 R- i6 b1 B End With
. N% y( ?4 N0 X/ p5 m Selection.MoveLeft Unit:=wdItem "选中第4个图文框
( h, j G( h8 ?7 R3 h* y With Selection.Frames(1)9 n4 T. r. i# @* r! t8 p
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
; I2 E/ d/ M0 O- F! n7 S4 |+ f .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, A$ E2 S8 l1 F# P' F. p2 ^ .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
r- e o" U/ E7 _ .RelativeVerticalPosition = wdRelativeVerticalPositionPage4 Z( t+ N( H: a' V2 n, Z: T) \
End With
4 G: R @/ i" M Selection.MoveLeft Unit:=wdItem "选中第5个图文框
8 l( i! j' v( l/ o- R With Selection.Frames(1)& }0 m; d8 Z. Z4 X* n K2 C9 N
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧: j& p( q U$ z1 K( F5 F9 s$ h
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ ]) [+ ]3 _6 c! m .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中" C3 v9 _/ u% X, P& n) r1 D
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin2 b( B; y V \- J+ a% i, w
End With
+ S$ }+ j6 F9 k0 B# t# E Selection.MoveLeft Unit:=wdItem "选中第6个图文框3 u+ L/ R7 \3 [0 J$ k
With Selection.Frames(1)
" v+ s( z0 ^: S+ ~% e/ ]9 l: A7 d/ p .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
( b% q R- a+ ]+ N .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
! Q) h; y q- q' _! B# g* P .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
: k2 M: \# w6 d .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
# \6 A, b$ K3 H1 w! V& |6 R End With G5 R% q; h6 c* m
Selection.MoveLeft Unit:=wdItem "选中第7个图文框
) o _- o, H2 M8 C With Selection.Frames(1), c8 p5 b1 e8 W& r2 h7 ~
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧5 S/ ]* u$ L, A% { y
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ A( t0 r5 R, C% \7 Q4 x; B; j .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
% ] H8 E6 Z- R6 J$ y' F4 k: }; ? .RelativeVerticalPosition = wdRelativeVerticalPositionPage: _7 x0 m+ v, z3 u6 Z) ?
End With
' t Z' K, n$ q' z+ t% U Selection.MoveLeft Unit:=wdItem "选中第8个图文框
7 Y+ B, G: S; C( o$ f3 t With Selection.Frames(1). w. U8 e) o0 X5 J/ K K; h: n
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
/ {! E+ G. \: J .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
3 w* d/ r9 C8 y .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
9 y6 F& s# O6 I .RelativeVerticalPosition = wdRelativeVerticalPositionPage0 `; ]8 d5 v6 R; j. j5 w0 E. W
End With
6 m @ ^* o2 z5 n Selection.MoveLeft Unit:=wdItem "选中第9个图文框$ F, v" B! l# R! Z
With Selection.Frames(1)
6 W, p, F; |; `% s; Y9 J# M .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
4 o) t5 d! b; o+ r { .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
. z* U U g, v k2 i( h .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端# W- b* m) s0 d% r& h" P, K
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
' D+ Q7 @! @4 q1 ]' y* M End With
$ u% |1 L0 }- B9 z Selection.MoveLeft Unit:=wdItem "选中第10个图文框4 q( V' ^+ S: x' g% h |
With Selection.Frames(1)
% p6 Q, D1 J5 A5 _ .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
6 y- }. u* x; A .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
. H( L8 ?5 [' i- e5 @$ f2 P( { .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
3 a. I- \5 h6 w) v0 y5 b .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
# m# J$ G& i) Y8 o! ]$ i. b/ t. c End With) U; M2 [; w. I' V: @* c" D
最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
8 ~5 _, r# ?. u1 y 使用方法
/ ^8 z$ T8 X9 j: a 用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。; ?4 _6 I- N+ b+ j
1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
9 h' w& b5 K2 S# ]* R$ [ 2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。0 s3 V! K/ B- y. N8 S' `5 ^
3. 选中名片样板图文框。. q+ m) }; d" l0 `8 m4 t
4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
) W# M( y: r1 J7 V6 P' x 5. 用"文件"菜单中的"打印"命令将整联名片打印输出。& t) n8 G) N% ?5 C% H$ e
6.如果需要,可"另存为"一个Word文档。
}3 I! a7 t, o" e7 ?; ?; [ 以上操作简单、方便、高效,读者不妨试一试。 |
|