|
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。
6 o( n1 P8 e) G" p 页面及图文框设置
, m9 K+ Q! ?" O8 n0 G' v; \ 首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。
# } K. x5 h# @1 z# @! Z) ^0 P 进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
2 i |* D, a |2 _, f 从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。
8 f% T2 _( H: m3 c 从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。
0 g" t3 O. F9 M' U" V# {$ _ 定义"复制排版"工具按钮
1 ^5 b- S/ l: A+ j/ ]+ v2 v 接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 , M. }0 V+ k+ Z" V3 y9 P- E
选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中: ( t8 \# S, h7 O$ a. h: h
①指定一个宏名--"复制排版";
, H) Y, y% x/ ~; H8 [( _ ②指定将宏保存在当前文档;
( R6 p( @8 `( G% r/ z% t4 e( Q ③单击"工具栏"按钮,弹出"自定义"对话框。
( F/ z: A# k2 a' u g 在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。
: b: }4 L/ d" D( L' C% i+ L( Q k& [ 在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。
7 X* D9 s* t- y& K+ N7 e "关闭"自定义对话框,"停止"宏录制。
5 H, l2 k8 }9 g 用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。8 w+ u$ F6 M0 o! N" S
+ e9 K2 G. E# T) N6 V/ K7 V 将以下代码输入或复制进去:
& c M: ]& m/ M4 l% z, F4 V# c Selection.Cut "剪切选中的图文框
9 C8 K& M" e; E' |5 Y, U R For k = 1 To 10 "粘贴10次7 g5 w7 g- C9 I+ t# P) I) @
Selection.Paste
; T- y6 o4 M2 n4 f/ A- D Next
1 F/ m+ F _: L2 j Selection.MoveLeft Unit:=wdItem "选中第1个图文框
- T$ j6 r! y. i- v& Y& V7 t5 k With Selection.Frames(1)
4 Y+ H+ Y2 ^7 Y7 _ .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" s2 b O, }2 A! C: x G- O( C .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin( H& t+ r; r* J; }" G7 u
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端3 d* F( q& O6 M' a; U
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
# ^9 m! Y) V/ I. h End With
n4 [6 k& W4 [ y1 G1 x/ J" H( F' Q Selection.MoveLeft Unit:=wdItem "选中第2个图文框" J3 N% U1 D: S* {
With Selection.Frames(1)6 c( l& h' w9 g% H+ i9 ]8 ^
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧( r: }* y) U! a
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin, |/ I$ J+ ?) J! c
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 / C$ ?7 ?/ ` |4 g9 D
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin7 I, J1 j* O K4 P! k: b
End With
D& y' G: Q1 K5 O8 G Selection.MoveLeft Unit:=wdItem "选中第3个图文框
( h1 ^( i, i* m+ V With Selection.Frames(1)& w v9 c. N3 X4 x$ `
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧7 o0 [" `# ?7 `
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ e+ U! W W3 {: g1 q3 y0 Y .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米% S1 S0 |* P2 m" N: w
.RelativeVerticalPosition = wdRelativeVerticalPositionPage, x# O" t7 P# p/ w) V8 d4 g! ?* d
End With5 R7 C- x0 q# P% a* ^
Selection.MoveLeft Unit:=wdItem "选中第4个图文框( O$ \ o* Z0 k4 ^ Z2 A7 C. n' a- R
With Selection.Frames(1)
" Z6 O' H( o) G" }! G s .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧6 j0 t3 {( {+ _/ E2 C
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin3 e8 u* Y. S/ p4 x1 f
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米: C. k, ]. q, m- @' r _4 Z4 t
.RelativeVerticalPosition = wdRelativeVerticalPositionPage+ m) s7 t+ K9 j1 r
End With
( T; c' B% N: W' n( a& c5 E Selection.MoveLeft Unit:=wdItem "选中第5个图文框 ~6 y1 i* Q I1 [6 J
With Selection.Frames(1)
9 I2 y1 D2 `2 j% a+ x3 c .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧$ F' [! ~( A! V! B2 C
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin2 S j0 T6 f2 [9 M
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中! Q$ m/ z1 Q( ?# {+ E G$ M
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
9 B( `5 R# G" L9 I7 R$ u End With. p' |" p6 S; f3 b& C) Q
Selection.MoveLeft Unit:=wdItem "选中第6个图文框
( w- D/ j9 \& H; f- c& y With Selection.Frames(1)0 L& q, H5 R( l7 r
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧 G8 n. N% f5 z0 k; w
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin+ U5 l5 S2 u$ `: t
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
4 P" u. M8 o5 K, O8 f .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
# l$ i" f7 n/ ?+ f, ~/ n( c" c7 d End With+ P' M8 S% v' F7 z) i
Selection.MoveLeft Unit:=wdItem "选中第7个图文框. P( J1 {& y8 A1 Q$ G( `
With Selection.Frames(1)
) K) q7 C9 i& `2 O7 e1 r: | .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧) ?/ y1 N! q: F5 v; c! f6 \1 E
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin8 e4 R- Z7 N2 {, z5 q; u! T/ W
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米3 s$ x1 D" y/ f5 h
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
& u. g1 o, o, O End With/ Q9 C3 o* I. ?" o, h
Selection.MoveLeft Unit:=wdItem "选中第8个图文框% q- O" B- J) H& ~( A$ K
With Selection.Frames(1)! z5 B, }8 |) K1 h K5 W
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
7 E6 g. E5 G! |4 e; U9 Y .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin( ^( c( W' L% N
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米/ L2 z0 G s2 R5 p
.RelativeVerticalPosition = wdRelativeVerticalPositionPage4 }" u- J b' d& ^% R; d2 y2 {
End With# e" j. O v' V0 @
Selection.MoveLeft Unit:=wdItem "选中第9个图文框; r5 v; T, _. ]: y# F4 f/ J
With Selection.Frames(1)
+ ^# _6 X8 S* h, T .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
% J" _- ]5 G5 Q m .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
5 y" ?9 z6 K* T) ]+ t/ M4 o } .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
$ A6 t) x# u" r# U2 E .RelativeVerticalPosition = wdRelativeVerticalPositionMargin# A9 R+ Y" ]4 [* j
End With
0 E& f" |* W$ }5 K" |! U0 _2 i Selection.MoveLeft Unit:=wdItem "选中第10个图文框
" v, m+ C. r* g7 [$ m With Selection.Frames(1)) T$ O; r7 P1 c& a _! a) _9 U) g3 O* u
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧, {& |5 @4 R3 q. T
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin' v- q' \7 ?8 D' r; h1 k, W
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
1 W7 L5 T% |' X! U2 ~6 j .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
- F0 J& G( W7 Y# O4 A8 n End With
, C9 M/ \, V' e5 J# w2 K 最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。8 B3 {& \' i% c% ]% s; o" ~
使用方法$ y9 U0 ]5 w* {9 {9 o
用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。5 R! F- W! S& |0 r) P, f
1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
: R+ g. w0 M* c 2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。
5 z, l) Y' x$ j9 x 3. 选中名片样板图文框。' L9 u3 c0 X, M. j. ~/ M9 j) h& m# F/ E
4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
X4 v: M$ W E, m* | 5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
' V: h$ H: h3 `9 R$ f 6.如果需要,可"另存为"一个Word文档。
( p- B% T7 O2 N; L9 a, m$ f 以上操作简单、方便、高效,读者不妨试一试。 |
|