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

标题: 用WORD做名片 此法可行！！！！ [打印本页]
作者: 要命的恩恩    时间: 2008-7-11 10:08
标题: 用WORD做名片 此法可行！！！！
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
8 o( {1 U9 _' f- Z) w, ]# U9 ]    页面及图文框设置 4 l+ m! }; L  R
    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。 2 W$ D) L, @* Y2 x+ _
    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。 ' w# d( @) h0 h1 l# \+ Q4 j
    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。 1 Q; y3 F4 x: y5 U+ q6 n+ R' \/ w" u3 _
    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
# v! {# v% E  r' A7 ~: s, N" ?" P    定义"复制排版"工具按钮 + Z" {3 K9 ]3 e5 B; V7 \1 A
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
3 U* H1 m6 O. J3 S' H    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中： ' D; ~/ w" `- f
    ①指定一个宏名--"复制排版"；
2 b' _( K; M: H) g% X    ②指定将宏保存在当前文档；
6 B1 y& {6 m) |5 K4 N    ③单击"工具栏"按钮，弹出"自定义"对话框。
3 l, H1 e2 I) A6 S    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
7 D6 {8 T, r* V    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
* Q* M. U: y! H5 ?2 y, ~    "关闭"自定义对话框，"停止"宏录制。 " |) k! E* G7 H, ^" @
    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。7 |  g4 B8 {7 \
4 K# v) O5 s& g7 e
    将以下代码输入或复制进去：
3 T- A" [  |: {" P7 |% a( k8 G　　Selection.Cut "剪切选中的图文框
# s8 g3 g( h) m. c1 n　　For k = 1 To 10 "粘贴10次
) T$ M/ d1 b. _4 Z8 c        Selection.Paste' z  C% m: d& `4 v" w
　　Next; O+ Z& k* s- j$ j3 X
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
0 ]4 R9 G) w- D: F1 g1 i' k　　With Selection.Frames(1)
( E6 |5 F7 j* M: `' V5 F( Z/ p        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
! q! E* G, ~! j$ c0 S: |        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin: B) U" F' w& q# p* Y5 D4 V
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
4 s: n, B6 L6 d        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
1 x  T1 ?- _* g4 c1 A* J$ Z　　End With
0 P3 L( R+ _+ j　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框6 k  X" t9 C" ~! K. l
　　With Selection.Frames(1)
" [' P, }: j5 Z5 g        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧# F# R! R# x  \! h5 z" Y
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin8 C. ]3 ?1 O6 x
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
4 k0 t3 C! G) p3 s        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
; N2 {' h8 b% E0 q! i$ i, u　　End With
* ^0 l9 ]3 V8 a  t3 U3 }　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
, Y8 u' v$ a; l9 O' }　　With Selection.Frames(1)8 r, `6 }6 F& x4 n
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
2 @6 ?2 \7 K4 ~+ k& _8 W        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) `2 ]+ e1 g3 M! q- N        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
5 l" V* `; L9 F1 C* N1 j        .RelativeVerticalPosition = wdRelativeVerticalPositionPage3 l/ }5 Y& f7 e& s4 k: ~3 C/ A
　　End With5 I- ]9 P% _  b6 i
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框( L) H9 J5 r6 S5 P, A7 |$ E4 G1 t1 z
　　With Selection.Frames(1)
' Z7 ]. F' |: C3 n, e; j5 I        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧8 i4 r( o& }7 H  g$ p" y( v
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
4 u9 m1 L$ Q5 C- H! _* S4 J        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
" @7 e, x3 _( ?        .RelativeVerticalPosition = wdRelativeVerticalPositionPage9 v- H' J/ z0 `  }0 n) y$ `
　　End With
0 X4 n( q1 {4 \5 D) s　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框, [" y6 t& p' {# f: }; j0 n
　　With Selection.Frames(1)5 ~5 p; E/ i4 y5 v; F/ n( \, w* D  d# I
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧2 ?9 p8 g$ Q9 r
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
# u3 B$ U3 S7 B2 M' e( Y. v& z       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中: d6 D( u4 C* o& x$ k
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
% Q- ]$ Z3 [) u" H- J' x' v8 h　　End With3 X1 j( c  `* d$ O+ n
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框& ~% N: @, b0 t8 j8 q3 i6 Z
　　With Selection.Frames(1)
8 k6 S" R9 {5 Z) H+ }        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
3 K7 w0 C& o- l        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin  X1 O) e" t# l, u2 |
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中2 B& b8 U" ~+ f$ Z
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin( v& b% Z1 f' J* P3 j4 P+ {# n
　　End With+ W& I2 H4 @# _% W0 E0 k. h
　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
9 K! K/ e8 D, F' Z! G9 Z　　With Selection.Frames(1)4 x. a1 y; X9 {% ~4 L) \* Y; R4 K
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧+ A2 C7 Q5 _# W' o+ d5 V
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ P; z  n) x4 ?3 U9 B8 Z2 w+ v9 ~5 U       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
, m" S! q/ L0 i2 q' n       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
# A" E8 ^* A9 v1 [9 @　　End With
. x# r* M; u( A% P　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框! j8 F! P0 [4 h# i5 O; t! B
　　With Selection.Frames(1)
, K. ^3 I( t' C; d) q       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
* J1 l- R7 @, W8 @: q; M: I       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin6 l; K6 b' }' X9 N& Y  V
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米! g% T1 v3 U  o6 e! W
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage. {: u' m) V3 w1 R3 j, I# ~8 O
　　End With* ?/ a, Z' t$ c* t$ Y/ u+ Z
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框- G% c4 p) X0 ^8 J/ U( C  e
　　With Selection.Frames(1)) w6 M+ C& P. P8 k; v5 w
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
8 @6 u5 o, u# ]# s* V5 M3 _1 c       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin% ~( q4 X& {0 N2 h2 f* }
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
8 ?$ v1 ~4 H/ s3 @% l6 n       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin$ p( ?; O% ^' p+ Z1 e6 c0 |
　　End With
% X- |$ Z) K$ W　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
, h) T* Z/ g& b6 m6 M* g0 |; D　　With Selection.Frames(1)  z+ |# O- \0 t8 y
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧; l( x7 S. n8 V' Q% r5 @* d: V" X
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin1 G& v/ {' ^- B- T' H
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端( B, P5 r2 D8 N/ I' Y& r# k2 T
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin# v9 I1 C1 M# S2 Z  h
　　End With1 G  j; V  k  Y8 p
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
5 k. b, m' A* V( j6 @( v. H    使用方法
( V/ j) @- c6 W# ~) U2 K# N. H9 {    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
8 G7 I  I( L  c8 b" r2 C    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。4 U' I* A+ i8 U0 o0 h) ]
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
. @: s+ N/ b  X1 }    3. 选中名片样板图文框。0 `3 p, f5 }; H8 t4 l+ r! i
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。+ _! x1 M9 ]2 M# Z
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。( f" [( _( w4 [) {2 ~5 C3 f
    6．如果需要，可"另存为"一个Word文档。) z" K2 V# y; |+ B# o
    以上操作简单、方便、高效，读者不妨试一试。
作者: 青云    时间: 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