中国喷墨论坛-喷墨技术应用-数码影像-数码印刷-数码印花
标题:
用WORD做名片 此法可行!!!!
[打印本页]
作者:
要命的恩恩
时间:
2008-7-11 10:08
标题:
用WORD做名片 此法可行!!!!
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。
" ?' p# y2 E$ O$ @' [- D8 n
页面及图文框设置
. c( V; R- {% v9 O4 I7 Z$ a
首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。
0 v3 z5 N: i C( ^( i$ T
进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
0 U5 T3 t) Y. q4 i6 p' ?3 Z
从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。
8 t. u2 r0 X* T) l9 E2 w) v
从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。
& l8 x4 _& m3 [& J& ]6 F5 v' k; D. B! r
定义"复制排版"工具按钮
[+ q" y1 S$ T- P: ~
接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
7 S0 s1 z. t8 g0 b0 I9 |) _
选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中:
* t9 w# M' j# k7 p" z
①指定一个宏名--"复制排版";
" o! }* j. Q; w1 v- i* [. ~
②指定将宏保存在当前文档;
3 t( M* ]3 ?$ V5 O3 [. H5 i
③单击"工具栏"按钮,弹出"自定义"对话框。
* D6 U+ m' O/ T8 i
在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。
8 ^) k5 D$ k5 p% [
在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。
, K3 g" ^+ ?; @/ F- }
"关闭"自定义对话框,"停止"宏录制。
5 I! [+ ^- m$ @+ b" ^4 {' d7 g3 S- N9 C
用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。
; m' u. Y2 u, K0 h+ ]
+ G0 z" C- @5 Z1 D# z( P; f" K
将以下代码输入或复制进去:
3 [; s& J2 D# x1 f: k2 O3 n
Selection.Cut "剪切选中的图文框
4 i) i5 j* Y: `; C
For k = 1 To 10 "粘贴10次
2 Z- U! W; }! Q$ ]9 [+ d
Selection.Paste
0 H# q7 p& E5 i# j
Next
% d3 _* t. H$ y" `& _7 W
Selection.MoveLeft Unit:=wdItem "选中第1个图文框
# \! s' P' O0 E9 ^' o
With Selection.Frames(1)
7 I+ Q( G1 V2 O. Q
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
; e1 ]3 k$ \. c
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
: G) y' p6 v$ g
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
5 E$ u3 N" O9 D; F x
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
1 l. A6 f9 A1 g5 X; J! r
End With
" o1 G" T/ U. l4 h) `) W$ j: g
Selection.MoveLeft Unit:=wdItem "选中第2个图文框
7 F% G5 W. }) A& ~# [% G
With Selection.Frames(1)
7 o5 C9 }: C* d w
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
! @, U, p. l8 o# i' s, _
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( S/ D& n4 `$ U7 c7 I K* f
.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
4 ?0 v- l* `. a' ?. z9 w; ?+ E
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
0 \3 x/ v7 e& ?% x
End With
) j2 O! P, `" q
Selection.MoveLeft Unit:=wdItem "选中第3个图文框
% b( i1 r# M! ^3 a \) L3 B
With Selection.Frames(1)
f1 Z1 M- h. I' o) ? n
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
1 ^! V) T1 q5 J5 o5 \* y
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 ~7 g8 l1 K, ?9 k; N9 ^9 `
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
8 X; E4 Y8 e, a0 [6 ~! _
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
3 T" Z8 G4 k( |& Y b* @
End With
# n+ e/ t/ S9 f4 v1 R$ X( r. {
Selection.MoveLeft Unit:=wdItem "选中第4个图文框
# X$ M0 a- G/ G Y
With Selection.Frames(1)
' h( F8 S7 H5 ~: z% Q p# y: R
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
5 m$ A8 A* O5 [ w$ P4 t
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
& W; L. }- J# A z# d
.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
. ~2 ], r) D2 d4 v& l
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
& g' q: X7 U: }
End With
7 O L0 J. A+ P/ X6 C8 u7 U% _
Selection.MoveLeft Unit:=wdItem "选中第5个图文框
$ E; Z2 S& k( D3 p" D z
With Selection.Frames(1)
& n+ N d2 _5 I7 |. k) V% c [
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
. Q; X' \8 j6 y
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
$ o2 H' S$ `. t4 i- G2 v
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
* O0 r8 D) l' O8 v
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
; g( {$ @8 m& {' L4 Y/ Z0 A# Q
End With
2 B6 r9 E" _$ o( ?0 S
Selection.MoveLeft Unit:=wdItem "选中第6个图文框
1 g% `2 t O8 Q# X' R, W, d6 ~* O
With Selection.Frames(1)
9 |2 y2 P' E9 d% E2 M
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
( x. I; _* k1 T( A J0 K% v8 N" ~
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
z; B' f, d$ v5 e$ W4 N: ~
.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
6 N+ Q- ?7 O% f. f3 Y$ H! ^
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
* `* ]$ R8 \" \# ]8 S$ @
End With
" K; U) u( W. s* q( C8 N
Selection.MoveLeft Unit:=wdItem "选中第7个图文框
N' [3 v9 s F
With Selection.Frames(1)
. M) _: \' L% c9 q; O6 u3 v
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
2 f1 U$ a7 p% O- C$ [# J
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
! e( P/ M' v7 ?+ G9 E
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
% @/ a; h5 R$ |. r
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
" c# U7 r9 @9 b! A' J
End With
- z7 s" @+ u0 n
Selection.MoveLeft Unit:=wdItem "选中第8个图文框
) W, R j& b+ \ @
With Selection.Frames(1)
# r) D7 I7 \. C0 Q9 w" p8 H
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
& B% t l$ ]3 y
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
# D! w: }. g3 z8 f1 [# |
.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
6 k* m- X- x2 c4 \
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
9 R1 e/ w s1 V& g7 M! j
End With
- ?0 |% o8 C- t7 ]" G: [4 a9 A+ K
Selection.MoveLeft Unit:=wdItem "选中第9个图文框
, h# a! T+ q$ A r( x
With Selection.Frames(1)
5 t# K6 O$ R! l5 |
.HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
) I0 z/ D& y9 O& I8 ]
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
" [: y- `- ^0 I
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
" D8 v0 U5 u9 g) L& g- P( U' \
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
5 v1 D6 j) |) X$ R4 @! s2 S( Y+ s: i
End With
5 w4 G& v: j$ F& w- b
Selection.MoveLeft Unit:=wdItem "选中第10个图文框
& `! q+ r' `; P5 V7 N& `+ {
With Selection.Frames(1)
/ ^: h0 a2 C- k) |; E
.HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
X: r: N% G- y7 R! l* E* R
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
- ~; Q" C3 v% m- X0 n6 w+ L9 n9 O
.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
- m6 Z) h; R# @; ?# C7 w- }
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
( B) C( t" @- D/ t
End With
$ T* e! t/ Y# |4 {* f4 @" C1 w- M: B
最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
: l( g7 u) J. @
使用方法
. `; F) l/ d# e5 r% w0 I
用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。
8 G( I; `" F3 M2 g5 b
1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
8 l+ Q; G* z3 l5 _) W5 J
2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。
$ e5 M/ S3 X( s
3. 选中名片样板图文框。
+ p* d1 g* t' W
4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
" F8 R& T! ^2 X$ a k
5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
% j9 m- V0 _1 X# H
6.如果需要,可"另存为"一个Word文档。
, c( e( e8 z, W* a- X7 M
以上操作简单、方便、高效,读者不妨试一试。
作者:
青云
时间:
2008-7-11 11:45
试试
作者:
designjet
时间:
2008-7-11 18:55
作者:
caife1217
时间:
2008-8-26 16:08
太麻烦了点,现在做名片的软件有很多,最好用的还是cdr
作者:
allwen110
时间:
2008-9-1 14:50
作者:
杨小花
时间:
2008-9-1 15:24
看着眼晕
作者:
影子精品
时间:
2008-9-18 03:54
还不错,虽然现在做名片的软件很多,但也有很多是要收费的
作者:
兰竹轩主
时间:
2010-5-22 14:41
学习了!谢谢!
作者:
时光印象
时间:
2010-6-7 01:06
作者:
凉言奕勋
时间:
2010-6-10 06:06
提示:
作者被禁止或删除 内容自动屏蔽
作者:
wangzhenhan
时间:
2010-6-10 19:13
学习
作者:
扫地老僧
时间:
2010-6-11 05:28
房价招标是个好办法,不过监管跟要跟得上。
欢迎光临 中国喷墨论坛-喷墨技术应用-数码影像-数码印刷-数码印花 (http://new.inknet.cn/bbs/)
Powered by Discuz! X3.1