|
|
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。 , b2 D6 Q4 m) ]" n
页面及图文框设置
/ b( F8 w3 T/ a7 B4 F7 _& z) a3 v 首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
+ d2 u; I, P. s. k: k 进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。 ! u! B/ z! y! G0 ~ K, n
从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。 7 ^% @2 V7 P+ J6 |* l
从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。 ! z3 [$ E4 M8 f1 c8 }! x/ w8 v
定义"复制排版"工具按钮 ) G0 @* q- g! ?0 ?- o* A
接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 # E& g& ?5 ~. A2 i# \" h
选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中： X# f* x) o( {& U! A1 ~
①指定一个宏名--"复制排版"；
* @0 _/ ^. l" Q* V- D5 E ②指定将宏保存在当前文档；
5 @% S8 {% ^0 h# g! a ③单击"工具栏"按钮，弹出"自定义"对话框。
, Q% f) l& D: q" ]- R3 z- a4 i 在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
3 D: I" E: v( Y# \) X 在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
t' q3 s4 J8 r" k "关闭"自定义对话框，"停止"宏录制。
; ~5 h* j0 I7 ]$ _3 i8 |# [$ v 用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
4 D( @9 r8 T0 P* r 1 w% w) Z0 J. }! z" D/ z0 A# H
将以下代码输入或复制进去：6 y, ?7 H+ m8 O! g
Selection.Cut "剪切选中的图文框, }! q$ Z3 e) Z5 `- Y
For k = 1 To 10 "粘贴10次
: c: F, x, R5 Y Selection.Paste
* f) X, N+ ~% a Next. r: C0 J. ?5 w7 M3 @5 }, ]
Selection.MoveLeft Unit:=wdItem "选中第1个图文框8 `) }3 d4 [+ J' B% x4 b
With Selection.Frames(1)8 v. Q- ^" P% p p5 d, Y
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
# A' `- e8 Z1 g .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
- n) B2 C" R- h, v* u .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端- C9 s. U2 b" D
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin+ P0 y9 D9 h8 T( ?
End With
* K5 p6 d/ D" W' m' o Selection.MoveLeft Unit:=wdItem "选中第2个图文框
3 q- U1 |3 T2 b ^- b8 @) n: ? With Selection.Frames(1)
" J, F% ?! X3 D& A .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
* P+ Y8 G; K# K0 z1 E .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin, S: v; u3 v p0 L9 @6 m% q
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
/ C1 Q: D- U6 g' [% i( E .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
3 ?1 K0 L4 |$ U1 ?- m" Y& Z End With7 T! p5 i6 N }
Selection.MoveLeft Unit:=wdItem "选中第3个图文框
8 X, u/ l& X9 T7 `/ {* ^, W Y With Selection.Frames(1)
! \0 s8 w7 t, G) j# w- c .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
8 ^! E' R: e$ g. O8 p" [9 }: d .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ I3 {' m3 P, t% g0 D% R7 [% D( | .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米8 S' G3 i" W. w( `
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
# ]& u5 l: U$ d3 J2 q; N End With+ x0 P. G1 e# ~" Y" |
Selection.MoveLeft Unit:=wdItem "选中第4个图文框
" p9 E, A; U D6 u With Selection.Frames(1) B5 ]7 c1 M' S9 q b0 i
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧8 F: m7 `5 l5 e' M, \2 _' x
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
5 v2 S! ]. T2 }: }0 x .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
" ]" y% k# R- B4 m1 q5 B1 P .RelativeVerticalPosition = wdRelativeVerticalPositionPage
+ P6 i; {3 x; t% ?- \9 E) q- c/ @1 M End With( R+ I) [, \4 G6 K% e# g- S% R
Selection.MoveLeft Unit:=wdItem "选中第5个图文框4 o& L7 \6 D: `% H9 ~
With Selection.Frames(1)& ^( {- O' j( I& z
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧5 t. k6 s- H- n$ X
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( M- l0 Y! B8 |. j% S. O: ]5 C$ ?8 t .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中/ e: J8 Q( v1 g) p, ^% m3 e9 Z
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
c' X% N( h v% ?- j+ C8 ?- s End With
1 t/ R1 g, n4 |3 ^ Selection.MoveLeft Unit:=wdItem "选中第6个图文框
, o# {9 m1 x9 p9 X8 l With Selection.Frames(1)2 t5 E6 Q. o0 |7 S: V
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧, h4 e; J' r* M# M4 m! w- B
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, D5 ~0 }" f; K* l6 B& d1 M' m .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
; a8 Y/ g. V3 U5 E8 J .RelativeVerticalPosition =wdRelativeVerticalPositionMargin: s; C8 s* Y& C! Z
End With
2 I" r3 e0 o7 P# M$ _! N2 y Selection.MoveLeft Unit:=wdItem "选中第7个图文框 _% k( p- q7 L: E% D# X+ Q
With Selection.Frames(1)
$ l0 A& m; K/ L! i$ V5 O8 W! F .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧 ~6 n \3 ^1 f t, m, u
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& `2 \0 z. z: h$ C! O9 k, p
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
. f" Q2 P" K/ C* ?8 [( A9 G .RelativeVerticalPosition = wdRelativeVerticalPositionPage3 A. i0 g- ^1 ^2 N) H* @6 p, W
End With. z' ~9 ^! h; l. E) S
Selection.MoveLeft Unit:=wdItem "选中第8个图文框
& d: W6 l) x% C5 L5 d With Selection.Frames(1)
3 E3 v$ U! z G# ]9 y' y% I .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧1 R. \+ ]$ ] V6 w8 X$ g6 p
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin# S' o% Y; t% D% P4 n) F
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米, R( y! [+ w3 |; u. y
.RelativeVerticalPosition = wdRelativeVerticalPositionPage, l2 O N& h ^) r& X
End With
/ c' a d- N. a$ P Selection.MoveLeft Unit:=wdItem "选中第9个图文框
/ u3 g5 j; [5 T6 \ c With Selection.Frames(1)1 y) a; A, p, K& ~/ z1 W
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧7 l0 R6 g# F5 V6 r: e
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) _8 U: N6 _/ e+ Z3 c% C" j+ V8 t .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
; |# j% y& M. a. } .RelativeVerticalPosition = wdRelativeVerticalPositionMargin! R+ M0 a2 T4 G W' h
End With5 D$ d+ K: K3 }) X" A
Selection.MoveLeft Unit:=wdItem "选中第10个图文框
# S6 B# {# g6 u; L/ `6 x9 X With Selection.Frames(1)
+ p9 E l& |; U .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧3 k- V- ^' G+ l
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& l# {1 Y$ y! [: w* d( ^( |
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
o- k* Z/ m" \$ s0 [ .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
% O) f* a5 l; p! V+ M6 O* Z End With5 D( H* y- x% t$ A# `1 L
最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。- c$ W {1 W [' d+ `
使用方法
/ e! v/ \0 G/ o1 ^/ W/ t 用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
# X1 C5 p$ }# p+ y 1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
8 t5 N. T4 ]4 c- ?( D( H, R) \ g3 e 2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。$ q1 `) I) G5 ]& d) h( f6 g& I
3. 选中名片样板图文框。
+ R5 C( w2 n) m 4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。6 E7 G& m0 I8 ^, R9 @1 L
5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
( c4 E3 Y* G `( H3 d2 | 6．如果需要，可"另存为"一个Word文档。, b9 W2 v- O9 X$ D& ~3 i7 g
以上操作简单、方便、高效，读者不妨试一试。 |
|
IP卡
狗仔卡
发表于 2008-7-11 10:08:05
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
淘帖
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
