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

标题: 用WORD做名片 此法可行！！！！ [打印本页]
作者: 要命的恩恩    时间: 2008-7-11 10:08
标题: 用WORD做名片 此法可行！！！！
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
% k# I! _) K. \7 g3 t/ c  Y    页面及图文框设置
  N- }! e8 d) e$ d/ i1 e    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。 . ~3 G3 `4 K+ G: B+ O
    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
  A& W  }/ B0 r, g    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。 5 m, @3 x$ q  o( ^7 d! U
    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。 6 w- v  @9 G* ^  K( R
    定义"复制排版"工具按钮 , m) N% S% G/ q! n8 e! }
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
, t6 x7 n7 t- s) ~7 S0 @    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
* q& ?2 O, y  q2 p) u    ①指定一个宏名--"复制排版"；
. e' T" L) Q$ r1 [! H    ②指定将宏保存在当前文档；
* J- c5 h& T% V    ③单击"工具栏"按钮，弹出"自定义"对话框。 ! S0 f# j. \, B; c0 d- C
    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。 0 |: J/ \( {/ c! }% p
    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。 2 F  n. N" A! j' p" e4 }" _
    "关闭"自定义对话框，"停止"宏录制。
/ `: _( k1 Q$ T1 Y3 M$ {    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
! \$ }, J3 d$ c6 ~0 W8 O: w
- N4 m7 `2 t" g  G% s    将以下代码输入或复制进去：
+ l+ U3 L1 k- O0 c: g: v. ]　　Selection.Cut "剪切选中的图文框  l2 @. e/ Y, p. x0 B2 m5 c% C( j
　　For k = 1 To 10 "粘贴10次
# D* d. k8 y0 i& W* W0 s        Selection.Paste/ h0 q  ~6 H$ I6 F8 `' }: H
　　Next
6 N2 Y: ^1 w) k5 h& O' Q# h" ?　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
. J8 _7 |1 C9 H% l: }3 F　　With Selection.Frames(1)1 m* q. S7 P6 B5 R! o0 m
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
7 W, `; p% `$ Q4 x/ }        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
& J3 |9 d, W' b5 b        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
2 S! f9 E( H. \        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin+ V9 d8 k) Y5 A; `0 a
　　End With9 Y" b7 O% Q% L: L
　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
$ z; A. Q' L  [2 R8 H- C　　With Selection.Frames(1), G" m  ~% t! a# s3 Z/ j/ G( q
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧, D0 |: {& Z  d/ E# i& v
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin: C' A- C/ `) u' D: \" Z
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 5 Y& x: T, d8 J* ~
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin# c3 Z, E' f" R! l2 ^, a: Y
　　End With
7 A( A: I/ [4 w5 p0 k5 Q% n- F　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
) S4 s4 \, d8 J8 a% e　　With Selection.Frames(1)
0 a' f# y  P+ R3 V) ?        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
0 B" D8 ^" m- o  Z/ O        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
- _5 e1 W. a* s9 o* s        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
, x$ ?- |; j/ x+ b, T        .RelativeVerticalPosition = wdRelativeVerticalPositionPage9 Q, M& v) d& \9 ~4 M* o& \
　　End With
6 V4 u, O( D# N0 g" O( m% M　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
/ U( Q) B$ t# y2 U　　With Selection.Frames(1)
$ _( N; i* w. \5 J; M% z* Q" K        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
  R& d; e" O7 X( `# [        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin( b0 E& A- U! h+ m" ]
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米! t2 o3 ~, r& }% B$ w
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage( j- N5 v1 f0 i/ Q
　　End With
5 E& R, A$ F% @9 n7 Y　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
8 r  U7 m0 O) x8 B7 Q　　With Selection.Frames(1)2 w1 g. q3 u% m3 i, t; n* ?3 G
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧0 m2 s; Q1 G, W3 g; z
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( {- c, N( g3 K! a       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中3 Y2 x/ p' J# Q3 X* z$ _# G$ S: n
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
3 Z* Z7 x& z" h3 Z　　End With
# f9 n3 c& K+ @9 {% Y6 T　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框6 c! j* i6 v2 f8 D" X3 T
　　With Selection.Frames(1)
$ z" H0 D: b" g$ J* I$ n) D2 g        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
: S7 N& A" T  v9 z        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin! N, o/ ~: b+ \7 s* x1 _
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
( W& S1 ?  J% D- g% w/ V        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
# M) y& k3 U* H0 L% T　　End With
' T7 G4 d& y0 R$ k" k+ `　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
$ c, S, t% ^' _* q( _# I- x) h　　With Selection.Frames(1)$ q$ g1 J/ E- y4 K# I0 |% n) p
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧( n9 o6 ]7 O5 E# M1 A
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin) T6 b! ]  L8 V( C4 N
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
. L# h( d6 s1 `/ w) y       .RelativeVerticalPosition = wdRelativeVerticalPositionPage: t( h6 ^" h: {0 C5 J
　　End With* v6 S3 a3 P$ h+ M- l7 X
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框# F0 I* B. q/ a# Q
　　With Selection.Frames(1); G& D6 R% y) r  S1 H
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧: G6 [3 i& B7 c. b
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 ~+ K8 o$ M* U# v! t       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
- ?2 S  r, m# m9 h2 V% d% c2 F       .RelativeVerticalPosition = wdRelativeVerticalPositionPage$ {/ K  h* A6 U' a* i! p7 |
　　End With
3 l- h6 B8 D$ Q' ^. w　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
* {) R; k/ i( E3 T, F! K　　With Selection.Frames(1)5 A& j3 `' h. _4 i, H2 x# V" p
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧; i1 s. F+ ~% ^8 b3 o& x1 l; i* y7 q; U
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin5 U/ ?$ g& V2 }; O+ v
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
  B9 _  r7 j( ~" n6 |: q7 d' ]: w       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin9 X$ n  ^! |0 f! \- W2 B% S( Q9 @2 q
　　End With
1 c, l  Q2 A; E# {# K$ \　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框1 V/ s% h8 l3 O
　　With Selection.Frames(1)/ H! {0 P7 Q$ t: p
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
. v$ }2 I8 L4 F$ H       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
6 x; [7 [! l9 l. y5 l9 ~6 ?" H       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端) v2 g0 E& F' A
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin7 F1 V1 a/ |6 c; N9 C5 O" h
　　End With
5 ^- M9 Z9 x# j5 f# v    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。$ c. Z% q9 k+ i1 A9 b* @
    使用方法# L1 z5 z* |% l# h
    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
8 Q5 ]2 D" e. y/ V4 B    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
: z8 q  H3 ?: k* e7 N$ o    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。- |/ ?. \( E) P+ H( k
    3. 选中名片样板图文框。/ G. u& A3 h1 L5 I( [3 q; z9 ?0 _
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
% \' B) J4 m) d* g7 @( z! Y    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
/ K+ q9 }7 v) N$ H    6．如果需要，可"另存为"一个Word文档。! g+ ~0 V; X+ p- f/ W$ P, E
    以上操作简单、方便、高效，读者不妨试一试。
作者: 青云    时间: 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://inknet.cn/bbs/) Powered by Discuz! X3.1