中国喷墨论坛-喷墨技术应用-数码影像-数码印刷-数码印花

标题: 用WORD做名片 此法可行！！！！ [打印本页]
作者: 要命的恩恩    时间: 2008-7-11 10:08
标题: 用WORD做名片 此法可行！！！！
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
6 a) U+ Y/ ?& }/ }6 I    页面及图文框设置
8 ?  e4 }# g' W. \. E2 j1 v9 j    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。 $ i/ K$ B5 q# _
    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。 / R7 r8 F+ s2 a+ w( K
    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。 & }* J! u( d! b# t" b4 R2 \
    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
4 b/ [1 ~: V. P    定义"复制排版"工具按钮
$ v0 W* B6 \' g; [4 @/ j$ J    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
8 [2 J  \! ~  f- \    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中： ) Q* j; ^; P4 m2 b. I% v' A3 V; {
    ①指定一个宏名--"复制排版"； ' J% l3 @3 a* Z5 ^; ~
    ②指定将宏保存在当前文档；
$ |# C& x/ b: E3 V0 o    ③单击"工具栏"按钮，弹出"自定义"对话框。
4 S- B7 A0 O' L, e7 B5 |    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
" ]8 R$ y; x" k3 ]7 H/ n    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。 3 ~. k% b  c  q! Y
    "关闭"自定义对话框，"停止"宏录制。 0 ~, B0 S3 |4 F4 I7 t5 D& v) q& ]
    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。9 L  M- s# E8 D- O
1 a# `+ G4 U! N7 S4 n% d
    将以下代码输入或复制进去：9 q1 s% Q, q+ g$ P8 s  I- c/ q
　　Selection.Cut "剪切选中的图文框# G/ y7 k& ?' S: Y4 P5 U
　　For k = 1 To 10 "粘贴10次, `3 y+ Q0 J: p: \! S
        Selection.Paste; c) `! z( c1 z( K, M
　　Next) c- U" T, I6 G& `/ I" R2 @8 E$ _# \# C
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框5 d- E: E* v  s3 J8 r+ k  R
　　With Selection.Frames(1)
' m" |9 i7 L  Q9 B, s6 r        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧6 P7 J) z% E; @. z7 p
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
6 L( {- ?  k; H) |8 X        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端6 f  d* {( O/ h5 b
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
* ~' C; t8 h7 @; m8 @4 Y% g. c　　End With( P7 R; h: j, m& X
　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
! b% Q5 s+ }: \5 t& O% Z　　With Selection.Frames(1)* I# K+ n1 W" L( k% {6 k
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧# j' J: Y& Z& n  U
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
# y9 T1 {: b; N' h        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 - M2 c: W9 k  V; \% P1 d0 V
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
) G' t- e& O3 s/ O1 g　　End With
, m% @! B+ s  [( [　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框9 d3 E& Y, v- J# |2 H/ i3 V3 T
　　With Selection.Frames(1)1 I2 E9 N1 F# H' I7 L
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧& I6 ]. x  N4 a& V; m
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin3 B/ ]7 K  e7 X* K. L
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米% {9 b3 Z- u% q! y& i  o$ t( x
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
. A  W$ P. x" p' u　　End With+ k% p4 I" r2 R$ a8 z! K. P% X
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框3 U7 i' ]5 X; b: r! B
　　With Selection.Frames(1)
- J. D% q& L: T+ U7 \        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
0 x. T1 N0 @5 q" Y        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin4 Q1 M6 ^7 _% R( h) F2 h; ]; c1 n
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
- o' J% U) X  f  V3 D4 J# q9 h, x2 f* O        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
0 A0 a9 c2 C- G# K% Q　　End With7 w9 ?4 b2 Y- m$ v% t
　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框, A% n! O5 L" |* q' Z
　　With Selection.Frames(1)
* u8 C) ]7 F9 e- _       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧4 x; C: `( w% k5 F1 A( v
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
" w; H: {1 k) a7 ^; r8 a  K       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中& N! E2 X* `  N" {
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin. A; f' A4 n1 V
　　End With! H( ^1 T8 W& g8 J4 o+ P
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框0 W- y* u) e  f4 ?
　　With Selection.Frames(1)
7 g7 n5 `% r7 k6 X- h, f2 F        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧& b% ?* L9 ]- W, e$ c
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& H+ J" o8 g9 o1 k1 g
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中) E0 e2 R  i! a$ Z+ ^% t: H: c$ \
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
( Q: W# t5 n+ i" i5 T　　End With. {' Y9 Y0 D7 d, r
　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
6 K- @* R1 q) `" ^　　With Selection.Frames(1)1 H7 J: U) O; L9 t  |& a
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧$ R* v$ y+ m  f) k
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin1 l* j, O: ~& H1 v, _
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米1 A! A4 b7 Q' C* A% d8 a% G
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
3 u; z( a; W4 k# P　　End With
) L5 `" x& B, M+ B　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框; D; u1 X8 U+ v) y6 `" E! f
　　With Selection.Frames(1)1 D, B" e1 c  O4 |
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
$ i6 W: j! N6 L3 O- U5 ?: H       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin" w; h3 q$ P2 D  A
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米! t! R# h. d3 N9 S8 M- s$ E2 }
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
# f- Q1 `$ M$ h' W) `5 T: o　　End With
* r0 |" X9 V% O! t3 A　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
0 ~& t5 p3 d+ ^$ ^2 G6 o5 d; J* K　　With Selection.Frames(1)
0 L$ R3 v( V" h! @. p9 d$ t8 P       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
+ ]3 a& Z  a5 a. k: c       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin6 s' j, M5 P3 [
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端" \0 J, l4 S8 Q4 w! _+ c
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin6 U' w- H4 i! T6 M2 j) @
　　End With
7 y1 Q% K- d% \+ b　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
- }7 u+ L" }2 ?" d) Z* A. |　　With Selection.Frames(1)
+ |) Y+ Q7 a' S+ t( u$ h, m( I1 O       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
: c: f! v. u* n" @8 v) C3 S       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin8 [5 B% W3 i3 G2 O. G0 e
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
8 j* c/ P. C5 N  _9 ?       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
& z7 Z! |+ A  b6 I  r　　End With- N* S7 N  O. a7 A
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
+ p: Z0 M8 w* |/ i    使用方法5 z4 X- i/ S+ T* E8 T
    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。% i3 V) ?2 k* H
    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。( c; Z) N3 w, N+ ]0 Y
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
( \. I' `  e: o% c: i9 h- U    3. 选中名片样板图文框。
9 R/ C  r  \. c) {2 [8 U- L# f    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
! a- r# Q. ^4 D    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
% H' Z3 f- a# J7 p7 G6 R6 W5 J    6．如果需要，可"另存为"一个Word文档。3 t6 L3 u4 r# S. m6 I9 T& a8 s4 A
    以上操作简单、方便、高效，读者不妨试一试。
作者: 青云    时间: 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