|
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。 , ]5 {0 z1 ]: n( {6 G$ e9 h& T
页面及图文框设置
/ z1 Z2 j# s' B) U- H+ ~ 首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。
) O3 H* t. H- B5 Q6 ]% J" N7 @ 进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
2 U6 [/ g' _3 W6 Y 从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。
$ g+ S& C3 k$ P- k- W, K! _2 D+ [ 从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。 3 D& e9 H" d2 M1 d/ T
定义"复制排版"工具按钮 ' L7 `6 x; a T v
接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
: ~9 e# ~( A6 Q1 s 选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中:
2 n1 j7 e. y2 U8 `" T9 T ①指定一个宏名--"复制排版";
5 D% G% z- d- o* J: Y, t! W ②指定将宏保存在当前文档; 3 K) z: T& c; Q4 \8 G- p% Y* h
③单击"工具栏"按钮,弹出"自定义"对话框。 0 N8 F9 M& @) A9 f6 G% L
在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。
! X; ?; l6 l5 V9 P" h& t8 H 在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。
6 d+ o) r/ K9 o* c( H! L, f, P- a "关闭"自定义对话框,"停止"宏录制。 9 f7 j3 y: @4 n* r
用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。
6 C/ _# A5 g2 `; v5 h P
3 m6 _1 g% U$ V% G 将以下代码输入或复制进去:
" J8 ?) A. o' T# Q- u' S7 c Selection.Cut "剪切选中的图文框: u1 t2 z4 b' L2 I4 E& q& E
For k = 1 To 10 "粘贴10次
+ t, M; f4 w! _6 @! m, x0 ]6 B Selection.Paste5 P9 [3 I3 J& Y: `
Next: R! I9 W6 g1 z9 N8 F
Selection.MoveLeft Unit:=wdItem "选中第1个图文框, R& V% y- O; Q3 A
With Selection.Frames(1)
! v5 Y9 I9 L# M) ?. a .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
2 K5 `+ \* E& a1 L7 T5 p .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' ~( \+ [" T& G! _3 ]; P .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端+ [* F! Y, Q |# e+ Z/ o" N
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
! J! p4 z9 |9 t; A$ y- n End With
, y; ~7 B$ n" T Selection.MoveLeft Unit:=wdItem "选中第2个图文框
6 k% r7 @/ m# z# `( [ With Selection.Frames(1)
: c, Z$ Q% P0 @3 ?6 u$ s' V( k+ t .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧. t% m4 G$ p! M. l
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin3 ?2 }: n. Q& l1 q W
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 5 d$ Q9 U- `/ k0 H4 s
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin" `; y# _, Y n" {/ |
End With/ v5 i3 ?1 d- w7 b o8 q
Selection.MoveLeft Unit:=wdItem "选中第3个图文框6 q+ b8 d4 p0 V- ^. E
With Selection.Frames(1)
* ~+ e& r9 K b, V% y h/ F .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
# `6 O @2 j" G# v: X: ?6 a. q .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin7 W. y$ A' \ o1 P/ z* n
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
3 L$ t% j* g$ K& g) n4 S1 D .RelativeVerticalPosition = wdRelativeVerticalPositionPage
" a; d7 ~) ^7 E3 } End With
& q. j: C. u9 _' D" D( t Selection.MoveLeft Unit:=wdItem "选中第4个图文框
& ^6 ?7 k! |9 o) b7 F; A) f1 @( i With Selection.Frames(1)
; l! T, `6 k7 w$ A .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧- N( G& I2 N# C" H y
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin% s6 G, p' n2 h9 \+ L* \3 m/ ^
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
1 Q& k1 j# ~1 e- h! H0 x$ m .RelativeVerticalPosition = wdRelativeVerticalPositionPage: ]3 d0 p) S. R- s/ f
End With
, d7 R8 `' K; P6 u9 i* r Selection.MoveLeft Unit:=wdItem "选中第5个图文框4 p+ D' q2 R0 N; w6 \6 \
With Selection.Frames(1)
. N' u2 M) x: Z. I7 x( T .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧# @8 Q+ ?; X6 m6 }
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin5 C. m. W& t0 W! {
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
! ]! q8 y3 Z% o .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
9 J$ M2 O4 x0 g: R6 D4 e. v6 ] End With
$ [5 S. i9 Y7 s4 G1 n- G0 a Selection.MoveLeft Unit:=wdItem "选中第6个图文框2 I0 H3 w. e3 U S9 p
With Selection.Frames(1): T4 V! [, }" {+ V$ s% D# i
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧* i8 q* Z c7 @# v+ f) W0 [
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
: j k5 v2 z$ u. F .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
/ x2 f; \' \ i* H" u .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
8 x; [. |+ D: u7 l- T+ [ End With" B* F) W. f8 O6 c0 O
Selection.MoveLeft Unit:=wdItem "选中第7个图文框
% ]! N6 U( {" U. g# S5 i With Selection.Frames(1)
, w! x) ]1 R5 r% l+ y .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
1 E3 z% [+ q i .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin5 Q6 l6 _9 a( R
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
: E9 j! @" @2 k# `. s# K .RelativeVerticalPosition = wdRelativeVerticalPositionPage
# y! c* z1 \$ h* S1 F End With9 t7 W$ B' T0 @8 A U% b. n! V; p
Selection.MoveLeft Unit:=wdItem "选中第8个图文框
7 E) n! O, T7 F+ ?7 m With Selection.Frames(1)2 u6 c) A$ f2 }2 M& U3 }
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
; {* n+ i1 W& B/ s, P .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ g% Y( \) T; h( K7 D2 h7 s3 X .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米! b$ G* g+ [5 ?1 r3 o: u
.RelativeVerticalPosition = wdRelativeVerticalPositionPage4 ^9 ~* I' S! ^& l0 \2 @5 h
End With9 v. J& P( |0 o# |; G* v. e
Selection.MoveLeft Unit:=wdItem "选中第9个图文框, L6 `# q: I. K0 q
With Selection.Frames(1)* a- f5 l! a P4 s: ~2 H7 @* }
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
2 H3 s7 b* ` c5 b; y .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin, q0 D3 G D: X4 o0 ~& N {
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
: k, s% ]2 Y4 {5 x/ n9 b .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
$ W9 r0 g; M- O, s+ L" r End With
$ c) ?- ^( a0 Z3 x Selection.MoveLeft Unit:=wdItem "选中第10个图文框4 }: j# g4 _; U4 {1 l
With Selection.Frames(1)+ h( I/ A8 x. `! \6 Q; G0 c
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
( ?) \( U& E' M6 c/ u .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( j0 j7 _7 E5 M d .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端6 z7 A( {0 O$ ?/ `% J: t0 D% v
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin+ @# D' ^ j! }( F
End With' _+ M6 Q# C' ?- w2 T: H$ V8 h
最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。7 o0 L' {1 o# o* u, G- c' K/ `
使用方法; g1 k9 X5 J$ o0 @4 Z
用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。
1 Q+ Z% }5 Z; w# G- e7 S$ q 1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。9 R: G1 `$ |* s) D2 P
2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。
# Q6 R: {& f7 R3 _8 X% @8 r2 J* A3 q( w 3. 选中名片样板图文框。, L7 {( A, U7 {
4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。- I2 v& k# `* T; V- R- A
5. 用"文件"菜单中的"打印"命令将整联名片打印输出。: N) }- n) F& C2 e0 K# U8 g3 b( C
6.如果需要,可"另存为"一个Word文档。
' j8 h$ R& p0 G 以上操作简单、方便、高效,读者不妨试一试。 |
|