|
|
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
% i5 S, s. R3 [, p! w% X. O0 D 页面及图文框设置
4 J, n0 I. Q* Z1 r. @1 Y" \% Z/ q 首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
! Q# Z' N6 t7 n3 x* L, r0 S* k 进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。 * R5 _* ]/ o8 T& g. K! Z2 ?* U R
从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。 " }: l% z- F. g+ `
从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。 - d( \5 A: c4 O; m) o) ]# X6 Y
定义"复制排版"工具按钮 + U) x1 x, a, R, a. K# j$ I
接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 ( D5 q% A7 }0 C* @) l
选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中： & _8 [9 F3 S& L- |0 ]6 b& |/ S" e8 n
①指定一个宏名--"复制排版"；
. V8 f. \% {. s7 n0 B0 S0 F S5 q ②指定将宏保存在当前文档； + u" s' F( a* f! Z+ P* O: D
③单击"工具栏"按钮，弹出"自定义"对话框。
% f% A$ i) B' U5 w9 b 在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。 9 g1 U$ {$ G4 ^; g; L1 Z
在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
& r& T4 M- T. l0 n2 y5 q5 A "关闭"自定义对话框，"停止"宏录制。 3 z: t3 g, I0 l$ u/ ?& m% q( ?# k6 J
用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。. E: o# f3 t. ]7 [; }: T6 V; H
8 X+ Y8 E* ]1 ~+ f
将以下代码输入或复制进去：
P% Q1 ] Z5 `* N! J Selection.Cut "剪切选中的图文框
4 ]0 s4 V* l/ p& m For k = 1 To 10 "粘贴10次
_* B- q$ Z( F R: ^ Selection.Paste
7 Q5 u, S* \, J6 N; J* s0 D Next! z: ]" C" K5 ]9 F( D
Selection.MoveLeft Unit:=wdItem "选中第1个图文框2 R" `* H! |6 a% X# q
With Selection.Frames(1)
& M( l- ^' M3 W6 a$ W0 f& ~1 e) q .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
# \) o* T8 v% g! ~7 k0 |/ c .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
# r6 z ~; P+ C5 Z .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端5 S K* e: s/ ^( _8 u' @% X
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin3 ~3 B7 I# b- e" |
End With
7 y0 @6 m O- u' }7 T4 _( h' B- t5 N Selection.MoveLeft Unit:=wdItem "选中第2个图文框
& |# Y8 Y$ q+ G5 K With Selection.Frames(1)- n6 a" A/ K0 R/ @
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
9 Y t: Z! V$ O9 N .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin) `# n! Y" J1 D7 T& y- \! T
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
9 S# U6 i8 w% k+ @ .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
' T1 x4 |6 n: g1 m End With
8 t: c: i9 b) M( z Selection.MoveLeft Unit:=wdItem "选中第3个图文框( _+ @/ c+ w4 `/ N8 ]- i
With Selection.Frames(1)
- E3 x% a" |6 {) d) x0 N .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧4 c/ A8 `9 F( G0 U) p0 t! C
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
; c h! {4 ^, Z .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米+ ~) n0 F- q) ?
.RelativeVerticalPosition = wdRelativeVerticalPositionPage5 P; m3 w9 l' E5 _
End With: M9 t4 _$ R) _) e$ z3 h: K
Selection.MoveLeft Unit:=wdItem "选中第4个图文框6 x" L5 V# L$ \; u
With Selection.Frames(1)
? M/ Z0 Y" h9 L) D) c .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
$ r8 r- c3 l5 _$ w# Y .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin7 [) g4 V# U+ s. h2 Z5 S# J
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
& h' `; k9 P. _' u .RelativeVerticalPosition = wdRelativeVerticalPositionPage
2 S* ~7 h }! f J" r9 Z7 h! q End With
: z& |8 Z( v0 p6 ?* U! R! X Selection.MoveLeft Unit:=wdItem "选中第5个图文框9 x" L) c2 w0 M7 r4 l2 }$ i
With Selection.Frames(1)
( U8 T9 D4 [6 A6 j .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧4 a2 I" X( ~4 J, V: |, H+ T
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
. V, q; ?; o% \5 K# S- c .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中6 p. `5 _& @" u& Y2 m
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
4 F0 U t- }. l End With; n" Q! i4 [3 r. ^
Selection.MoveLeft Unit:=wdItem "选中第6个图文框7 s+ N& s; X% X
With Selection.Frames(1)
6 t' e1 |, C" u7 G. z1 n+ _ .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
; ^; K( [' g+ t8 s. E5 @! R .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin* K! N4 c6 K* p
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
. A, M, A+ q% d% S+ A4 h .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
0 ?- l7 m7 S& ~" M End With9 P, b9 p& M w; O+ t* X; i
Selection.MoveLeft Unit:=wdItem "选中第7个图文框
# n. [0 i' {; T' V% d9 f With Selection.Frames(1)
9 I$ ]& a. N7 x# d g6 h0 m; z .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
- E6 @" T. i3 B! W" } .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin2 ?' ]- |8 h: w: `) K
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
3 A Z7 N, J" S5 X+ a .RelativeVerticalPosition = wdRelativeVerticalPositionPage0 m( O6 j$ N% X W+ X! c
End With
1 W9 m* `% j$ E Selection.MoveLeft Unit:=wdItem "选中第8个图文框
9 {8 t+ s5 O% @4 F7 @ With Selection.Frames(1)
/ u- L) ~* Z# K q .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧3 }7 V! U3 k8 ^! V
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
4 E$ e6 [; O# S5 v .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
5 e5 w0 x) c3 [4 M .RelativeVerticalPosition = wdRelativeVerticalPositionPage2 Z; ?9 }$ ^* w! y- O; o
End With; y- Q( l" y" I5 e2 }* @* T
Selection.MoveLeft Unit:=wdItem "选中第9个图文框
; N& j y6 q# u With Selection.Frames(1)
* H& d, ]4 } h, Z6 F5 Q .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
( l) @! ^' {1 L% _ .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin' Z: `7 x5 R# \+ _0 ? ^/ W
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
3 d: H' N( a5 x* h, F1 G6 m5 f .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
3 {, d1 D# i5 l5 Z& S- S0 z/ M" S End With; K5 p1 [* r& Z4 W
Selection.MoveLeft Unit:=wdItem "选中第10个图文框
0 d5 K4 U1 c2 Y, _9 L With Selection.Frames(1)4 S8 o5 t( i! B- i) i& j7 K. N
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
+ Y T0 U4 K0 l .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin4 C8 c" X* |2 C
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端6 ]* z/ C) B7 x1 w( G% S8 w E
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin" T/ |' W1 |+ K# h. x d
End With
( g! A+ k4 m6 b( l 最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。 h+ a& V- b; A2 d5 I) S: u2 _
使用方法
0 A3 _8 ]/ p" T, a" n; H 用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
D+ d0 D- x; c 1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
* e* I5 o+ G* i, l7 s 2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。2 {$ V- d' {6 r" v
3. 选中名片样板图文框。* z7 o! @" V' C5 Z
4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。+ T4 w: g& Z* u( j9 f- v
5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
: p7 O' o: E% ] E4 p( W2 Z/ [ 6．如果需要，可"另存为"一个Word文档。
5 G- \- D; ?) W1 J 以上操作简单、方便、高效，读者不妨试一试。 |
|
IP卡
狗仔卡
发表于 2008-7-11 10:08:05
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
淘帖
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
