设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz
查看: 2451|回复: 11
打印 上一主题 下一主题

用WORD做名片 此法可行!!!!

[复制链接]

该用户从未签到

78

主题

495

帖子

1795

积分

银牌会员

Rank: 6Rank: 6

积分
1795
QQ
跳转到指定楼层
1#
发表于 2008-7-11 10:08:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。 ( r; f! _/ W3 Q3 K
   页面及图文框设置
, e$ b/ f# M$ @- X' H3 X    首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。 $ |* c! n& ?1 [/ b' X7 V% k
    进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
+ R. f# e  P; H    从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。 : A% h4 d) S: U) r! Z+ A
    从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。
2 ~" t' g0 I1 ^% ^5 d5 i    定义"复制排版"工具按钮 , X1 Q- Z; D$ e, V6 a
    接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 / `5 m& x- b  u2 j; p4 p
    选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中: 2 e  o* n/ ?: y0 R
    ①指定一个宏名--"复制排版"; , @3 c, l, Q! C/ c: d
    ②指定将宏保存在当前文档;
. y( j; l) w1 x5 U# ?! p8 V    ③单击"工具栏"按钮,弹出"自定义"对话框。
5 J6 i- v8 N1 B6 A7 T/ i: M) J    在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。 ; w. l6 V  j- M9 Z
    在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。 % o9 w$ |* W" h
    "关闭"自定义对话框,"停止"宏录制。
2 f" F) s6 s, h! k: U! b    用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。- \, x% u! H; [

6 Y! j0 N$ V" q9 U# k+ D    将以下代码输入或复制进去:
5 M: t1 R8 D( a1 Q& O3 v  Selection.Cut "剪切选中的图文框7 T/ P" I' F; [  u
  For k = 1 To 10 "粘贴10次
2 Y8 X! y) j/ w4 q$ W        Selection.Paste
) T) Z* f) ?( e" z8 q# {7 M  Next) V" q" D7 a: u7 G
  Selection.MoveLeft Unit:=wdItem "选中第1个图文框- @9 @4 }& M5 ], E) o5 e% Q+ K
  With Selection.Frames(1)6 q) s9 X+ x+ k, h$ D
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
1 Q3 x3 L4 w( I) H) Q% ~# N        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
1 G, N7 q( F# Q, F+ [: O& _1 x        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
, m" h4 u8 c5 V) D8 d        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
# [1 m9 T2 B. _  End With6 q! `( ^( n8 r" [; O2 S. G2 r
  Selection.MoveLeft Unit:=wdItem "选中第2个图文框
  {' G! {% A3 @4 n9 a4 T  With Selection.Frames(1)
: R1 F5 s/ \6 E0 w. a5 k        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
! z; W6 L' Q. U0 l        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& c3 C0 W( B7 ]# X4 Y- a8 A4 S
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
" S* j: H9 e7 @5 J/ ~5 h( `        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin. S  a$ G1 U3 r% B
  End With0 l5 B$ r2 C4 g- \
  Selection.MoveLeft Unit:=wdItem "选中第3个图文框
0 S+ h3 G3 B1 s/ ^4 q" x8 j& O- b8 b  With Selection.Frames(1)3 q" H+ S+ m  d* M( W# M1 ?+ H
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧( G" J6 J" a- \3 ]* `7 a; ^
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' P+ N' |8 C, P        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
+ @) U5 A5 j0 w; h' E, j; y- K1 Y        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
" M; {  K1 R- i6 b1 B  End With
. N% y( ?4 N0 X/ p5 m  Selection.MoveLeft Unit:=wdItem "选中第4个图文框
( h, j  G( h8 ?7 R3 h* y  With Selection.Frames(1)9 n4 T. r. i# @* r! t8 p
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
; I2 E/ d/ M0 O- F! n7 S4 |+ f        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, A$ E2 S8 l1 F# P' F. p2 ^        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
  r- e  o" U/ E7 _        .RelativeVerticalPosition = wdRelativeVerticalPositionPage4 Z( t+ N( H: a' V2 n, Z: T) \
  End With
4 G: R  @/ i" M  Selection.MoveLeft Unit:=wdItem "选中第5个图文框
8 l( i! j' v( l/ o- R  With Selection.Frames(1)& }0 m; d8 Z. Z4 X* n  K2 C9 N
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧: j& p( q  U$ z1 K( F5 F9 s$ h
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ ]) [+ ]3 _6 c! m       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中" C3 v9 _/ u% X, P& n) r1 D
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin2 b( B; y  V  \- J+ a% i, w
  End With
+ S$ }+ j6 F9 k0 B# t# E  Selection.MoveLeft Unit:=wdItem "选中第6个图文框3 u+ L/ R7 \3 [0 J$ k
  With Selection.Frames(1)
" v+ s( z0 ^: S+ ~% e/ ]9 l: A7 d/ p        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
( b% q  R- a+ ]+ N        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
! Q) h; y  q- q' _! B# g* P        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
: k2 M: \# w6 d        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
# \6 A, b$ K3 H1 w! V& |6 R  End With  G5 R% q; h6 c* m
  Selection.MoveLeft Unit:=wdItem "选中第7个图文框
) o  _- o, H2 M8 C  With Selection.Frames(1), c8 p5 b1 e8 W& r2 h7 ~
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧5 S/ ]* u$ L, A% {  y
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ A( t0 r5 R, C% \7 Q4 x; B; j       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
% ]  H8 E6 Z- R6 J$ y' F4 k: }; ?       .RelativeVerticalPosition = wdRelativeVerticalPositionPage: _7 x0 m+ v, z3 u6 Z) ?
  End With
' t  Z' K, n$ q' z+ t% U  Selection.MoveLeft Unit:=wdItem "选中第8个图文框
7 Y+ B, G: S; C( o$ f3 t  With Selection.Frames(1). w. U8 e) o0 X5 J/ K  K; h: n
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
/ {! E+ G. \: J       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
3 w* d/ r9 C8 y       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
9 y6 F& s# O6 I       .RelativeVerticalPosition = wdRelativeVerticalPositionPage0 `; ]8 d5 v6 R; j. j5 w0 E. W
  End With
6 m  @  ^* o2 z5 n  Selection.MoveLeft Unit:=wdItem "选中第9个图文框$ F, v" B! l# R! Z
  With Selection.Frames(1)
6 W, p, F; |; `% s; Y9 J# M       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
4 o) t5 d! b; o+ r  {       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
. z* U  U  g, v  k2 i( h       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端# W- b* m) s0 d% r& h" P, K
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
' D+ Q7 @! @4 q1 ]' y* M  End With
$ u% |1 L0 }- B9 z  Selection.MoveLeft Unit:=wdItem "选中第10个图文框4 q( V' ^+ S: x' g% h  |
  With Selection.Frames(1)
% p6 Q, D1 J5 A5 _       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
6 y- }. u* x; A       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
. H( L8 ?5 [' i- e5 @$ f2 P( {       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
3 a. I- \5 h6 w) v0 y5 b       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
# m# J$ G& i) Y8 o! ]$ i. b/ t. c  End With) U; M2 [; w. I' V: @* c" D
    最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
8 ~5 _, r# ?. u1 y    使用方法
/ ^8 z$ T8 X9 j: a    用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。; ?4 _6 I- N+ b+ j
    1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
9 h' w& b5 K2 S# ]* R$ [    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。0 s3 V! K/ B- y. N8 S' `5 ^
    3. 选中名片样板图文框。. q+ m) }; d" l0 `8 m4 t
    4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
) W# M( y: r1 J7 V6 P' x    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。& t) n8 G) N% ?5 C% H$ e
    6.如果需要,可"另存为"一个Word文档。
  }3 I! a7 t, o" e7 ?; ?; [    以上操作简单、方便、高效,读者不妨试一试。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖
几十个美女说我帅,我没有承认,她们哈拿砖头砸我,说我虚伪。

该用户从未签到

94

主题

3590

帖子

1万

积分

喷墨大虾

逍遥游

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9

积分
16050

感谢为512汶川地震献出爱心的喷友们

QQ
2#
发表于 2008-7-11 11:45:05 | 只看该作者
试试

该用户从未签到

4

主题

1424

帖子

7724

积分

喷墨大虾

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9

积分
7724
3#
发表于 2008-7-11 18:55:13 | 只看该作者

该用户从未签到

1

主题

48

帖子

148

积分

新手上路

Rank: 2Rank: 2

积分
148
4#
发表于 2008-8-26 16:08:07 | 只看该作者
太麻烦了点,现在做名片的软件有很多,最好用的还是cdr

该用户从未签到

16

主题

1193

帖子

3933

积分

金钻会员

垃圾处理

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9

积分
3933
QQ
5#
发表于 2008-9-1 14:50:53 | 只看该作者
哈,俺是一只广告设备小菜鸟

该用户从未签到

26

主题

166

帖子

326

积分

初级会员

Rank: 3Rank: 3Rank: 3

积分
326
6#
发表于 2008-9-1 15:24:41 | 只看该作者
看着眼晕

该用户从未签到

0

主题

58

帖子

148

积分

新手上路

Rank: 2Rank: 2

积分
148
7#
发表于 2008-9-18 03:54:02 | 只看该作者
还不错,虽然现在做名片的软件很多,但也有很多是要收费的

该用户从未签到

0

主题

10

帖子

70

积分

新手上路

Rank: 2Rank: 2

积分
70
8#
发表于 2010-5-22 14:41:46 | 只看该作者
学习了!谢谢!
回复 支持 反对

使用道具 举报

该用户从未签到

0

主题

23

帖子

43

积分

偶而路过

Rank: 1

积分
43
9#
发表于 2010-6-7 01:06:58 | 只看该作者
回复 支持 反对

使用道具 举报

该用户从未签到

0

主题

1

帖子

3

积分

禁止访问

积分
3
QQ
10#
发表于 2010-6-10 06:06:29 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
走自己的路,让别人打车去吧。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|中国喷墨论坛 ( 沪ICP备05013984号

  

GMT+8, 2024-12-1 18:31 , Processed in 0.081066 second(s), 28 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表