|
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。 $ ]( B8 ?. S$ e$ M" B u
页面及图文框设置 A0 ?' G. c' Y# z! K5 W
首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。 U& n: ?! `2 |# L
进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。 ' y+ ~+ ] j4 m3 A/ ]$ Q2 _0 p8 \
从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。
/ `7 J: w2 k: k! H: b 从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。 - N1 G1 T# l: c/ z/ l& z0 P
定义"复制排版"工具按钮
; {9 q: ~4 h2 R0 S 接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 ) n. m! B$ L( C# A
选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中:
0 v0 U4 i1 U2 T" `' ^. { ①指定一个宏名--"复制排版"; ' C% Y) m! K# m2 [% z
②指定将宏保存在当前文档;
/ b: w1 L; r# B8 ?3 E" s& t& R# p ③单击"工具栏"按钮,弹出"自定义"对话框。
) m# Q2 q& S: Y8 I 在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。 - P* W+ O+ A! @- M
在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。 ; L: e4 v7 P0 g! _ U& }' [
"关闭"自定义对话框,"停止"宏录制。 6 d q1 ]8 X5 n# g# k6 V! ?" R
用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。* S& P9 e" }* w0 W3 P
; M. I" z7 p- R; `( V" i
将以下代码输入或复制进去:
* _$ e+ b7 T7 c; B$ b1 w. N7 P; x Selection.Cut "剪切选中的图文框1 Z, H2 G" T0 W" B1 O( l) @
For k = 1 To 10 "粘贴10次! E+ N J ?7 s. B4 i# P2 R$ k
Selection.Paste
i1 C& |9 t5 B6 `. b* ^; T Next
- |+ W+ n3 ? C4 l Selection.MoveLeft Unit:=wdItem "选中第1个图文框
8 d; Q0 m6 ]3 \2 l/ m( B- q" ~1 f1 M With Selection.Frames(1)
% k* U1 U5 |- c0 D .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
. E& h/ L% H( ] s, M7 K4 ] .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin$ C, s6 j) _* Z! x0 m9 g
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
8 a& A# `, v# G" s7 `/ b6 X .RelativeVerticalPosition = wdRelativeVerticalPositionMargin( q z& y8 B, N% n% p6 c
End With
9 O9 Y) r; }2 f$ U% g; q- \ Selection.MoveLeft Unit:=wdItem "选中第2个图文框5 h* g$ m, ^9 y5 v
With Selection.Frames(1); i+ @" e% r$ r. G- l% y
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧1 q* N: _6 ?' I3 z# j3 {2 ~9 d2 L
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
: a5 k) l3 a+ p; n% Z! o .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
) @$ G: B, T9 }5 ~) `8 u4 ?4 h .RelativeVerticalPosition = wdRelativeVerticalPositionMargin) p8 i |; e% r2 D
End With* u: e7 p6 m/ y9 q7 m6 {1 [' x
Selection.MoveLeft Unit:=wdItem "选中第3个图文框
9 O/ f6 H4 L- G( x2 V# a# ^ With Selection.Frames(1); k2 u' ]5 v4 z, W d1 y: ^
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
; p" ]- n% \" e0 g .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
3 `9 q! j) \5 F .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
0 q( |3 R3 w8 w& ^& m .RelativeVerticalPosition = wdRelativeVerticalPositionPage
# \ m8 Q1 {, B2 L, ^ End With
7 k, ?3 D( t) _ Selection.MoveLeft Unit:=wdItem "选中第4个图文框( c" b# R ]7 ?% q* f R1 p0 @
With Selection.Frames(1)0 E2 a/ F, I+ U' A
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
' ], h7 z5 P9 }$ _ @" a6 u% W .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
8 M* D3 f* d' \# J0 Z! X" x .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
2 n- B2 U S/ {9 q( D. ~8 N7 D .RelativeVerticalPosition = wdRelativeVerticalPositionPage; C# r) [8 y' y) t
End With
6 K7 Z2 H" w4 @5 ~5 f& ~' n8 c Selection.MoveLeft Unit:=wdItem "选中第5个图文框
2 C4 I% }: i, t; V' A With Selection.Frames(1)/ ?& G8 K4 V4 L) W
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
& A. A& B1 |0 w4 K .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
# L: H+ O7 P# }. K( B. W ]5 d .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中4 R( ~, c! s( ^2 e# T/ }
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
# e8 V' N& L" [8 U) e, ~% f End With
! O9 z/ _' }( {7 Q Selection.MoveLeft Unit:=wdItem "选中第6个图文框
* g$ d; p* c/ }4 e5 D' X0 O With Selection.Frames(1)! N; ]# X5 `6 C7 [ k$ k
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧% u/ V* N6 n0 N1 t. l
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
8 q0 r3 u9 W2 W$ Q W .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中- E$ o" f8 s+ r7 c/ P n
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
' P! e2 H. C, }3 Q1 i End With1 }' k- n6 u6 K* q! S1 C
Selection.MoveLeft Unit:=wdItem "选中第7个图文框" X" C5 {% w+ B. m
With Selection.Frames(1)
/ g- M1 s1 z* {# j* p: t .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧: q7 l$ \. f% T4 T
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' p% u& ?; e% m* A) |- o7 B N .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米4 }; H- Z: l! b Z K3 V
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
" s$ J* N8 p" K1 ^2 c End With2 G( {9 \( l6 Z- E
Selection.MoveLeft Unit:=wdItem "选中第8个图文框
1 a8 k2 g+ l8 h* X With Selection.Frames(1)
! ~1 F4 b& O* Q* Q# B .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧 S1 L9 X8 U \( c
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( H$ T3 P% X" M: t8 |7 K .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米+ E" V: z) o0 |; u5 D
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
2 t; x! p/ F: n: i+ S B2 ] End With
; [; W2 K- F2 Z Selection.MoveLeft Unit:=wdItem "选中第9个图文框
) V. p2 B+ @* g: C( H With Selection.Frames(1)
1 m' Q& J+ J) K6 O7 B$ I .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
/ {" q. Y: u5 P2 m6 n2 | .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin C) Y! M( u5 f1 F* T! n( }; v
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
! ?" E2 E0 A9 u/ x5 A; c .RelativeVerticalPosition = wdRelativeVerticalPositionMargin4 e4 @; K$ X2 H i0 m
End With
, S9 b5 V6 L9 z3 ]7 P, l Selection.MoveLeft Unit:=wdItem "选中第10个图文框& B) l3 |; T% O4 ]& r5 v
With Selection.Frames(1)- f3 [7 X9 j$ a9 g2 w% M% [5 s7 O$ n
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧/ ^, o F& @8 `/ c
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin6 h0 e) Z; Y6 ~/ h) ]/ `* }" _* w
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
- O! M/ `9 j0 Y, G8 Y" f0 X/ T .RelativeVerticalPosition = wdRelativeVerticalPositionMargin$ H9 }* c7 ?+ w. m2 A
End With
: Z# o8 i6 R; R- `4 F# V4 E 最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
; ^; a5 T: g [. z3 h6 l4 q3 B 使用方法
7 i. F; T0 j [/ ?4 o6 j7 _ 用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。8 _0 x: D. j* J/ j1 U, M/ R9 `
1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
% p K+ R0 `+ L3 K# N; v |9 l0 B 2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。
6 _$ e y3 p* q. [; b* s$ d" x 3. 选中名片样板图文框。
9 N! m o0 s# s! {( s- ]3 e 4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。3 [$ [$ D, ~: J \! P; I$ ~
5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
$ S% p- {* R2 p# d+ y% P9 V 6.如果需要,可"另存为"一个Word文档。3 @6 ~6 W$ M1 y& i M
以上操作简单、方便、高效,读者不妨试一试。 |
|