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

标题: 用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 = wdRelativeVerticalPositionMargin1 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 = wdRelativeVerticalPositionMargin0 \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 = wdRelativeHorizontalPositionMargin2 ~7 g8 l1 K, ?9 k; N9 ^9 `
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
8 X; E4 Y8 e, a0 [6 ~! _        .RelativeVerticalPosition = wdRelativeVerticalPositionPage3 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 With2 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 = wdRelativeVerticalPositionMargin5 v1 D6 j) |) X$ R4 @! s2 S( Y+ s: i
  End With5 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