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

标题: 用WORD做名片 此法可行!!!! [打印本页]

作者: 要命的恩恩    时间: 2008-7-11 10:08
标题: 用WORD做名片 此法可行!!!!
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。 : e! \# }. {1 N* I
   页面及图文框设置 # X. E7 m" q2 ^( c  ?
    首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。 * f% w( T& b8 W
    进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
8 b: H* E; @7 f- r" L. R& E. W& E    从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。
5 h# t( t7 c# s( z* M! r( x* B+ f3 I    从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。
' ~# g9 H' R7 Q, M# W- q# h, f3 {: w    定义"复制排版"工具按钮 + x$ B% l& v  [
    接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
- V. |' h! q0 K3 S; ]8 C+ l* U    选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中: % O  j3 u9 ~' P: z$ Q! Z9 w4 D
    ①指定一个宏名--"复制排版"; 4 ~6 ?" ?  E5 z. n3 a4 U2 S& M; n' D
    ②指定将宏保存在当前文档;
% x& \$ B5 J, [    ③单击"工具栏"按钮,弹出"自定义"对话框。 0 ^- h4 `: u, _" q, l* V
    在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。
' k& l( T# n) ~    在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。 ; R. {% |& e( k; n
    "关闭"自定义对话框,"停止"宏录制。 " d# a8 y4 |2 `8 ?5 S
    用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。6 ^3 ^  |- F' Q5 \7 ?$ v
4 `" D7 t5 S5 c( m
    将以下代码输入或复制进去:
7 U& }+ i3 U- r$ u( A  Selection.Cut "剪切选中的图文框$ V* w# F  M5 U( ]$ j5 M1 D
  For k = 1 To 10 "粘贴10次
* M2 G% U4 _5 Q# K  M        Selection.Paste# ?9 c( z. E, F. H3 N  T6 z
  Next
7 X3 `8 |9 d4 Z% U1 v' ]  Selection.MoveLeft Unit:=wdItem "选中第1个图文框! @6 f9 k6 K! Q6 e6 W# D+ V
  With Selection.Frames(1)9 }8 _8 f* j9 D" [# _- V
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧. ]& @* Y: T, k* ^& A5 b
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( }/ V6 E' N; A9 ?$ n; m* `        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
! R& x" P$ j7 g' A        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin" N  Y# v' P( p$ y! H
  End With' m6 B3 e+ R/ q/ y
  Selection.MoveLeft Unit:=wdItem "选中第2个图文框/ ~3 c; i2 T/ [# C6 H0 g
  With Selection.Frames(1)
6 o7 S8 I. [* J: }1 O+ T$ B+ q        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧% ]( j$ g; i  k4 U' X6 @& @/ `
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin8 b  L  W, b- C6 g5 O- A9 m
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
8 g/ W# r+ D! r6 k8 P4 H        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin0 }" L3 r2 S* P! F( E
  End With2 n" _8 d! }8 x- L
  Selection.MoveLeft Unit:=wdItem "选中第3个图文框0 n3 p4 Y. F) ]5 _
  With Selection.Frames(1)) v; @  R4 J0 X& l( M' v3 c- @
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧5 k8 Z# K4 G0 {
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin' j6 f, R& g9 k6 {4 E& z' _
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米% T9 Y6 T9 j; I2 B- ~' x/ r
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage! J! M" v( z% o5 X6 @6 b
  End With2 Z$ U) R# E% \5 d
  Selection.MoveLeft Unit:=wdItem "选中第4个图文框' I1 {' ]. _+ W# A
  With Selection.Frames(1)$ _8 w# @( [' Q0 r5 b! d# B. [' o
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
2 k- `" z2 J7 G/ }! ]        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
9 Q/ [' q' q8 j. g+ Y. {0 g6 G( i; T  w        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
6 U; q6 b% d% ]2 Y5 z: x! ]        .RelativeVerticalPosition = wdRelativeVerticalPositionPage/ ?  W9 G/ W, E5 i$ N8 W2 Q
  End With# x2 N; l8 k; ^9 a3 V4 w' _
  Selection.MoveLeft Unit:=wdItem "选中第5个图文框
6 X8 `: u6 A% }) B+ N% k, z8 m0 F5 k  With Selection.Frames(1)- z, T$ J% m- u9 O, w
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧9 J& h% L. @$ l+ v& _; a/ K; n- D
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin3 X. K( @. d- ^2 c7 [7 E
       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
% v) p3 n) e% R, M& k4 d8 c8 d       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
4 b3 o$ O7 O" G- |# c1 ?2 R  G  End With+ [- ?: I# U0 k' V
  Selection.MoveLeft Unit:=wdItem "选中第6个图文框2 S5 w5 n: N' W0 ]
  With Selection.Frames(1)
( X$ s, N/ H" ~2 U+ K: m% u! x9 E        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
& D* ]' _8 |$ _) N        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin$ C% I# _- c* X# H4 T
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
! M" S  K# L9 \+ m        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin) N6 h, \0 b4 p
  End With
- [  U8 A& L% n" c  Selection.MoveLeft Unit:=wdItem "选中第7个图文框1 h: X' \) K5 X
  With Selection.Frames(1)
. D- I/ S4 P2 T) Z- L$ E( h       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
' U- ]1 b/ }9 X: }$ G8 C) V       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin, a+ t8 X* O7 H* K+ e( M; M
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米5 D. u6 F& w- i; v! \% k; j
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage, l' b# u7 ^. }- ]; c7 x+ `
  End With
$ ]* R. E4 w# g9 ?  Selection.MoveLeft Unit:=wdItem "选中第8个图文框" q) P# F. ?, L3 w& F
  With Selection.Frames(1)
' G' L0 f7 }9 n9 x       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧& j5 T7 J& Y4 E' H8 G
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
6 U7 A8 C! @6 h       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米$ t& m( f4 a1 }6 e# ?; b, R
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage3 g7 I' t) T8 l( u' z9 w" ^$ H
  End With
9 q* d7 W6 I( d; u; L, q2 q6 A  z  Selection.MoveLeft Unit:=wdItem "选中第9个图文框- p3 E0 w9 Z8 ]; l4 h1 j+ a
  With Selection.Frames(1)! w! |( p, W( d7 X! t; _; b
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
6 _! u- s2 `2 @: }% e       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) Q" f' Y8 f4 V; r  I! @% h( v       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
3 f* u$ L7 U2 c7 M6 W0 B       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin4 a$ z9 n5 h) V# x
  End With5 _( ^8 l. l- l6 T0 U7 e2 {; j
  Selection.MoveLeft Unit:=wdItem "选中第10个图文框! g0 W5 D& p7 c. r/ z
  With Selection.Frames(1)
: `1 A2 Q. `/ ]       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
$ [. g) |: x" c- u       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin, O9 K9 y9 F3 y4 W1 g
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端/ w4 Q' ]1 j) U) U5 ^* e+ s3 u8 t
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
/ _& K! j, ^5 ]  End With
4 E: ]2 o& H! x* N    最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。" m' _. N0 V- o- G2 v! l
    使用方法8 Q2 i; _+ `6 }4 [- r& X- s$ M
    用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。. }# {% \8 l5 t2 V, q
    1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
# {- A  Y$ y7 U( f( F    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。1 r8 I' U( V3 {' {) ^! k" Y
    3. 选中名片样板图文框。
* L2 h6 C; N" }5 m" ?/ g    4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。% O5 o9 O. t) V4 M
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。0 q7 h4 J7 g9 |
    6.如果需要,可"另存为"一个Word文档。
# P' ?7 [/ s6 k( W0 r7 |# c    以上操作简单、方便、高效,读者不妨试一试。
作者: 青云    时间: 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