|
|
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
4 m* g R; C5 g. z 页面及图文框设置
- T- }3 E; J9 A8 u3 e$ ] 首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。 6 r; Z# ~) p) l" L, t8 H7 x9 O
进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
' r3 R9 f+ D) j6 x/ }1 D5 T w: W, \ 从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。 4 L$ s% H3 f% }+ T# K$ o
从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。 4 N8 w2 }# y% p6 C2 F
定义"复制排版"工具按钮
4 [' M4 n2 ]0 U. Z- R( f; X 接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 ) ~0 ^( p% K& |/ o) y! l$ K+ V
选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
2 ~( H- T& ^) [5 A ①指定一个宏名--"复制排版"；
* E& E: o5 p: [) Q ②指定将宏保存在当前文档；
) t) B2 m6 o( ^- {, B! g% r ③单击"工具栏"按钮，弹出"自定义"对话框。
2 m4 n2 k( l: V8 X# D! y, ? 在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
! m8 g5 m S& Y( Q& z 在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
/ d% L) w9 u' O# q! {& S "关闭"自定义对话框，"停止"宏录制。
+ G7 Z$ P! \4 Z/ T! N9 v9 |4 ? 用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。2 o3 E) F) P5 G$ R. h% E
" v) N& o% T" T( e$ R+ Z, l8 G 将以下代码输入或复制进去：9 q1 W; I/ g3 g
Selection.Cut "剪切选中的图文框
9 p0 `; ^% D8 K0 f# o0 N5 K. B$ k For k = 1 To 10 "粘贴10次
! h1 e6 x# A$ R* p Selection.Paste) p/ f; Q) y7 U
Next
4 q+ m7 U6 I2 R* G9 {2 U Selection.MoveLeft Unit:=wdItem "选中第1个图文框! u t- Z9 C' V0 _
With Selection.Frames(1). U0 p: O3 J9 |0 A
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧% e4 d& b3 ^; l% A4 s6 s9 i$ T3 Y
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, v E6 o, \( f1 r .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端. F6 M, T: I+ ?/ n
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin- h+ @& l$ R, e# w+ C$ U# M) Y
End With$ K* s6 v& z6 g6 v X
Selection.MoveLeft Unit:=wdItem "选中第2个图文框
5 j/ j; J; P/ V0 r With Selection.Frames(1)% ]7 R8 _" y& f
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
$ w- D' }2 |. V) m .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
O" v: `9 q5 }' {- I5 c .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 $ {# S) Q; Z* k; ?1 I& N, U5 |
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
; H7 N5 z8 S9 d) q) y$ z; i End With( }1 P+ ]- Z( Z' D
Selection.MoveLeft Unit:=wdItem "选中第3个图文框
% N" [! M/ i) j) @ With Selection.Frames(1)
- M6 A* W9 p3 Q( J1 i+ z. |/ s4 z% M! K .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
9 l# _: {. F2 _! T d .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
# d( @( ~6 \- g' X1 \' v8 w1 O1 w( B .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米 M% i" r1 t2 p$ B1 [; ?
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
, R, F' R3 y1 D3 R6 e7 ? End With ^6 f- u; K; Z) f+ X
Selection.MoveLeft Unit:=wdItem "选中第4个图文框
6 y9 c0 f3 ], X. g9 d3 M! G With Selection.Frames(1)* y1 k, l' `, I* w9 ]/ J/ o
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧+ L2 q5 K2 z8 j' e+ H6 S
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin4 F" A9 B5 p% D6 J6 m7 B
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米, o" }# `5 E% k, E* ~3 ]
.RelativeVerticalPosition = wdRelativeVerticalPositionPage% J) V" u% _: t6 M# U6 d5 y
End With
# M4 I/ q% H7 F3 d Selection.MoveLeft Unit:=wdItem "选中第5个图文框 R4 p7 b& h; _. L9 _
With Selection.Frames(1)
1 p3 M2 }. r, i) T6 q/ N .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
) ^4 H( V5 o! z& { .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin$ ~ R7 `* f. T' i
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中& y( I w. I2 L/ H3 R1 G# |1 x
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
- V9 ]0 y6 Q! a4 G2 K End With4 Z' w& m, n, J6 |5 J/ f
Selection.MoveLeft Unit:=wdItem "选中第6个图文框. i. F& {1 [/ T5 L+ K( C
With Selection.Frames(1)1 _- k& d$ C! _' r, a% y1 D
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
8 @# G+ B0 N* ] .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) `7 z) r6 N( h9 O E0 W .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中$ h+ R$ U% s- j( h- b p
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
6 a9 s( P/ z- T) [3 i End With6 z: r# I" a& h5 [& a T
Selection.MoveLeft Unit:=wdItem "选中第7个图文框
+ W( \- a" g# q) S$ |' `8 o With Selection.Frames(1)
/ @( {3 a6 U0 N( D: F9 n .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
- F3 s6 ^6 j, ~- s4 n .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
1 p; Z" q" k$ ? .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
1 \/ R: D ?; m6 T# h) s .RelativeVerticalPosition = wdRelativeVerticalPositionPage
0 B G) i' y+ c/ x5 B9 a End With k" r4 X) C; K/ P! a
Selection.MoveLeft Unit:=wdItem "选中第8个图文框
B) @: r H* N$ E) q l With Selection.Frames(1)
. x# J3 c r) x& i .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
* n" B& h2 E# m .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin/ X9 i6 j8 N- e/ x$ y
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米0 b+ w) ]( ~! t* J) a( f
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
/ M; X3 q7 ~, D& ] End With
6 l2 P2 x7 R X3 Y5 ?: U( A5 t) A Selection.MoveLeft Unit:=wdItem "选中第9个图文框
$ y" X }; o/ u |& j' w9 U7 U' C! X With Selection.Frames(1)* m' s$ p" Q1 i+ @# x% s. b( \4 _( C
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
) t; [5 L; u' [* c .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin/ B4 e" \) W1 X" V. `
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
* W" j) O0 J: G2 p% }. i/ O .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
& q. @3 \. H; l# |/ ~ End With
9 p9 B5 `4 H" c$ I. } Selection.MoveLeft Unit:=wdItem "选中第10个图文框
0 v ?6 U% q; ] With Selection.Frames(1)
+ B8 g. T0 [5 u ~$ L .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧" u& ?6 x3 P& [ @
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
" n2 n% D& Y+ Z .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
: i% \' [3 c6 l3 ^, A) e- y; z .RelativeVerticalPosition = wdRelativeVerticalPositionMargin* Q( i/ }; v/ p2 m0 h4 C$ \- \' B% a
End With8 I/ ]- ^) p1 S, s
最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。7 _% G4 R5 M- v2 E0 o
使用方法9 [+ Z% s a5 J9 `) ^
用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。8 c. V+ q5 K8 o$ x
1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
; p( ^( O2 M5 B$ x% H 2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
9 q l, @* b) |) {, @ {; w% O( H 3. 选中名片样板图文框。
( r I+ O' |1 f! t( S1 B 4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。) V* H4 M+ i" A* f: ^* T
5. 用"文件"菜单中的"打印"命令将整联名片打印输出。9 A; W0 B9 Q+ f H3 G3 x# e% U- U5 r
6．如果需要，可"另存为"一个Word文档。9 B4 J! }: e0 v4 S0 ]3 J
以上操作简单、方便、高效，读者不妨试一试。 |
|
IP卡
狗仔卡
发表于 2008-7-11 10:08:05
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
淘帖
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
