|
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。
6 V3 m( W5 ]9 B1 T4 j 页面及图文框设置
9 l; H c1 |8 W2 x8 }+ a8 ?9 K( L1 I1 c; N 首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。 3 h4 L" I' j. ]8 Z5 ]
进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
% o8 y1 h$ F: y5 A4 ]' F( F 从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。 2 Y1 W/ ]4 K+ S- t- b: [/ l. A
从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。 2 t& l6 I' n6 U- X2 O
定义"复制排版"工具按钮 , C) U0 X k L8 O4 E
接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 1 b; Q% g8 E2 _2 u+ l) n
选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中: * [! J( Y3 M, n0 M7 Z' D% b
①指定一个宏名--"复制排版"; 1 \, P# Q- m4 b/ H+ I3 i
②指定将宏保存在当前文档;
/ x. Q( u1 h9 t/ ~( c ③单击"工具栏"按钮,弹出"自定义"对话框。 " t" |+ a+ D4 a
在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。 + ?: l) z; @& O8 N4 b& q
在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。 0 H% t( n7 s* E+ Z' Z/ R" @. o
"关闭"自定义对话框,"停止"宏录制。
2 n& o. s+ S1 v, @6 ?, @ 用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。) C% ~6 m3 }4 Y7 z# l/ c ?
3 k0 ?' @- Q4 ?7 { 将以下代码输入或复制进去:
, w- v; @$ |* o& D Selection.Cut "剪切选中的图文框
- d0 N+ y- E4 ^" [ For k = 1 To 10 "粘贴10次
) N1 k( r; M. g* t8 H0 x2 P Selection.Paste
# o8 R( o. q# W1 e9 Q& I0 Y, E, l Next% c; M( @- h9 s; L" T* L# V
Selection.MoveLeft Unit:=wdItem "选中第1个图文框
3 r. r) S# ?3 q1 L2 ?: D With Selection.Frames(1)5 S4 i( {: _ Z
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
! E' v2 K% { C" ]+ C .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& q$ h- \" a% R& o- \
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端- q! d# q4 N6 @! A# K5 Z
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
8 m5 r# n. k1 K `0 x J End With
- Q' k& O, |! H& [- c- N Selection.MoveLeft Unit:=wdItem "选中第2个图文框
* t( V4 u( q8 a/ {1 W& S/ t0 q With Selection.Frames(1)
3 V' ^4 N, }3 r7 K# P .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
, r( A. ~" O3 R .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& f* q% v* j, ?/ v$ f: E
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 $ ?0 c( X0 y3 Z6 V
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin9 Y. U# L B. M ]
End With
4 ]) B3 s o1 @: P1 @3 {' s Selection.MoveLeft Unit:=wdItem "选中第3个图文框
4 a$ ?& x7 s- [% Q With Selection.Frames(1)- c" E1 X8 y3 x" i3 h3 E7 m& N* L/ V
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
- W) Y% P$ O7 k, i .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ v+ R' y) W, W .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
, c2 c" `3 T( N7 T) o: g' U .RelativeVerticalPosition = wdRelativeVerticalPositionPage
/ o; d- ?* l* I9 U8 }. o End With, B& L' F# g* x4 ~( r
Selection.MoveLeft Unit:=wdItem "选中第4个图文框
& r; K/ P B: l* B# s% P& ^% M9 l' L- Q With Selection.Frames(1)
( \4 Q; u! x7 n( d) K u" n .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧" n# x0 ~' G9 i7 o1 x
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) R3 k+ y3 q) T" N0 F, ~ .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
6 |# |- u9 Y- }( _% |- E .RelativeVerticalPosition = wdRelativeVerticalPositionPage; J0 H, y" O% w- E
End With9 R& V4 ~7 M. C
Selection.MoveLeft Unit:=wdItem "选中第5个图文框
N M' o- K7 w6 x1 a With Selection.Frames(1): p- }% h3 F; F6 ]' S m! f2 L3 @) b( q
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧% J' V5 S# M3 p' P" i. Y8 Q: O4 C
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& S: m+ E1 A# e& k
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
( @- d" ^% S) h2 Z6 }( r .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
& z- k6 K4 p+ P End With
, S8 Q X4 S% U Selection.MoveLeft Unit:=wdItem "选中第6个图文框* t1 O2 e5 \0 p# O# l
With Selection.Frames(1)
8 |8 X& F0 D C3 X .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
/ q0 h. d* g3 S! n .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 y: r- j/ P% w) o" W .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中$ |2 z8 _! E7 U. @2 I+ k% S
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin; K* \) D* V4 U6 E( K6 O
End With
# W. i# _9 `& j. f1 d; l/ { Selection.MoveLeft Unit:=wdItem "选中第7个图文框0 j# n, P @' y7 y
With Selection.Frames(1) x- |8 }4 b% u" `
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
7 H) I: F W' I" W0 b& H; P .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
& P$ M; S# v& |3 H8 y9 S- x$ f: y .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
. a4 Y/ x% W, ^ .RelativeVerticalPosition = wdRelativeVerticalPositionPage
* f. T* i8 X. s6 l End With F* C, M7 W" R+ I
Selection.MoveLeft Unit:=wdItem "选中第8个图文框) G2 y8 Q9 o' A! F
With Selection.Frames(1)! b1 F9 \, e* w! l4 y
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧! m- t8 y% @. U- u& \6 [( P: R8 x1 S
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin/ e; z# W" j ^0 @; w# f% ^" |
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
7 b/ A; _& ~$ K; H .RelativeVerticalPosition = wdRelativeVerticalPositionPage6 F3 E7 X/ x, v7 q, N4 Q s6 P
End With; _& f- z3 d$ c, p9 N( ]4 J: R4 c
Selection.MoveLeft Unit:=wdItem "选中第9个图文框6 m# J/ g8 x f g( U
With Selection.Frames(1)5 p; C- d+ V+ p" T
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
7 Y! q# F5 J: {5 R .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' L! K3 ]8 a a .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端/ R% A1 R9 D( D+ `1 h* K, L I
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin0 `6 u$ x) i4 H$ t: H$ [# ~
End With# ]- S$ Q* D3 b6 j) s1 A. `3 h
Selection.MoveLeft Unit:=wdItem "选中第10个图文框* {. W8 s( `5 p, Z
With Selection.Frames(1)
' V+ s; T8 t5 a+ P! M+ C; g h .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧( t$ O9 U4 X* C: Y0 m# T
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin5 f: y% O6 q2 m# I& q4 E
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端% D6 U4 X/ R+ i' D3 E% M9 ^
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
+ G, Z* K" E. ^# W End With/ Y3 j+ d, o4 H) r
最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
% o; i: b$ b0 l2 ~- V; A 使用方法
) L9 T$ K; A& B+ b1 Z/ { 用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。
+ Z, y, y3 O* F; O: y 1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
+ v Q6 B1 h$ @0 |9 l! U 2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。1 B+ \1 p& G7 u& ?0 O& a1 E+ t
3. 选中名片样板图文框。
# g% c, y; v6 p/ N# P* p6 r } 4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
5 m# k. ]; z, z5 I5 @4 F# J 5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
4 e5 L9 E. ]6 i5 i 6.如果需要,可"另存为"一个Word文档。5 O R1 _) T0 I; B' D) y
以上操作简单、方便、高效,读者不妨试一试。 |
|