设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

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

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

[复制链接]

该用户从未签到

78

主题

495

帖子

1795

积分

银牌会员

Rank: 6Rank: 6

积分
1795
QQ
跳转到指定楼层
1#
发表于 2008-7-11 10:08:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。 7 b+ u7 d2 O; _6 U6 |
   页面及图文框设置
# n0 @+ ~( x% I- y    首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。 + z  w* Y3 Y, E  O1 G8 o
    进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
/ Z3 i, o5 l8 m  Q    从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。
) \; C, R# I6 a& A" I- y    从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。 1 Z! M0 A. r$ G' v
    定义"复制排版"工具按钮
- K6 A4 K- c" n5 L" h    接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
6 s3 p; n" k% ]% C/ x    选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中:
, O0 c' |+ ]- M4 L    ①指定一个宏名--"复制排版";
+ ?& @' j! `6 g7 r" ?; ^    ②指定将宏保存在当前文档;   Z1 `' D. S& O8 \7 j
    ③单击"工具栏"按钮,弹出"自定义"对话框。 2 m  f& h9 L7 }: \/ R! k
    在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。 + }1 H0 E8 T( t
    在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。
  ~) b* Z7 w5 o: E) x3 \+ ^    "关闭"自定义对话框,"停止"宏录制。
: b4 Y. ^; b7 `3 f% d3 _    用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。* g$ U. n0 P7 P# z

  `+ i' [" Y& L  J    将以下代码输入或复制进去:
5 [. S3 T% T0 e- ~& P9 S  Selection.Cut "剪切选中的图文框
2 L5 S9 a( G; T' U8 h- X1 j8 j  For k = 1 To 10 "粘贴10次
% m% r2 b5 A3 k+ Z. F; k        Selection.Paste( G( _& }- L4 ^8 S- L
  Next2 z# H9 G: t4 R# u+ h. D
  Selection.MoveLeft Unit:=wdItem "选中第1个图文框9 L! u5 ]0 t7 a" Z" T
  With Selection.Frames(1); c1 G5 Q7 g( Y& C; e6 l
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" u" k% U6 O- ]" l' p, O" s5 e- `) @        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
7 \# i$ E) d9 Z" Z* R. S( x        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端3 T4 j( x8 r+ U% k
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
4 Q3 v% R* |, t/ B, a7 Y  End With
7 n* R/ j5 N& u! T# J" C- t5 c  Selection.MoveLeft Unit:=wdItem "选中第2个图文框
: _* w5 U  S7 ]$ i0 O  With Selection.Frames(1)- S6 m3 ?' I( R$ M
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧% t# @( n$ a5 g9 ^
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin# J6 U3 A( g2 o) @& b& k$ r. j: |
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 ! E4 @8 ]. K% q' m3 X$ s. F7 l2 ^! P
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin+ Y( R& D$ o' f+ [7 T7 g
  End With
& R* ^. O% D' w7 a) d$ l- M, @  s  Selection.MoveLeft Unit:=wdItem "选中第3个图文框
: a, W! v4 n: J  With Selection.Frames(1)
0 j& a+ l- j) I: V        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
" F& ^  x3 V0 Z        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin( C3 _8 {8 F  R* _1 ]4 C0 P1 P8 ~
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米2 [6 {' g$ O0 c+ |
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
1 n; j3 K) K' {# V1 I  End With
: k/ k) y' h; `, W/ {0 h  Selection.MoveLeft Unit:=wdItem "选中第4个图文框; [) I  W) @4 K* K) Z2 Y5 X5 O
  With Selection.Frames(1)4 d6 ~& t0 k' h7 K& B1 e0 B
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" T2 Y, r  Q6 K- m) F        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
0 o! _3 I% |$ p% C        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
) b9 `- y- H5 x3 `        .RelativeVerticalPosition = wdRelativeVerticalPositionPage, l9 o2 _4 h; t
  End With
) d" R! Q/ q" _1 g! a% d  Selection.MoveLeft Unit:=wdItem "选中第5个图文框
* Y: e1 p* R7 w* H# Z+ h  With Selection.Frames(1)/ G1 z% O% {* h7 m, w* t
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧7 ^6 l. d- j& h9 I3 h
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, Z/ y. m3 m: o; L       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中% Q$ W5 A, z7 b7 _4 V
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin7 P# O$ `) f/ S4 G3 `
  End With; h- v! D6 ?% t  y1 z" z2 r, ^2 N
  Selection.MoveLeft Unit:=wdItem "选中第6个图文框: B2 A  u$ ]; s3 R0 Y! o0 y* V
  With Selection.Frames(1)5 H% |* \: |/ N- y9 N' W4 L
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
) Q! Z" l) {$ h& S4 @( v        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin8 W/ E7 E8 S2 E: F' U9 c! I
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
1 h5 |6 J  ]  Q        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
$ N' k# {( @+ v6 G  End With  _0 X8 ?# k' A0 o2 {- w; C% J
  Selection.MoveLeft Unit:=wdItem "选中第7个图文框
9 O0 L6 O) y  c' p( t  With Selection.Frames(1)
  y$ k: L0 f" T% J% U9 y5 a9 ^5 Z       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧( k+ x0 s# \% n4 j+ C) t1 d0 {3 L
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin7 }7 h4 h4 b( i. H& P9 d
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
- `8 @; _4 s* d. b' y7 w6 N       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
/ B8 z- ^# Q; O3 W2 c8 v7 @1 u  End With
$ U. N4 u- q/ [1 i  Selection.MoveLeft Unit:=wdItem "选中第8个图文框
, R, h$ u* R0 S& x& j  With Selection.Frames(1); v6 H, w! v9 }% p; F) _
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧/ O/ |% }" ~0 v; c( ]7 D3 f/ W
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
3 N7 j' l- ^& ~& T1 z       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米; k0 G' d0 ~4 L' B0 ~
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
1 a2 W3 e; {( [- S  P) _; L9 w  End With
* e, G# m2 ?- L7 j2 n& X+ g% ?  Selection.MoveLeft Unit:=wdItem "选中第9个图文框
8 e8 J6 l2 V" {6 A8 {+ O; S2 F  With Selection.Frames(1)
- |6 ?9 M0 n% Q% W( j9 t& h9 i1 e       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧$ n- [+ }7 K4 {4 p. ~
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
% d! Y- {2 O! T0 ~* _# s9 l4 P6 w       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端) P& V; a, N1 v+ j
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin8 z$ Z% @% t: ]
  End With
/ \* o" m3 k7 M& _" I# s  Selection.MoveLeft Unit:=wdItem "选中第10个图文框
" _; X" x/ }2 a- s+ Z3 T  With Selection.Frames(1)( [( R8 E  U, V+ M8 e  m
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" \( Q+ x) r" d  V) r- V       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ U$ \) z' z3 z. D: l! E! |       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端" `& z! T2 X' g, n: ~* \
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin7 D# N0 I$ B& X3 z8 S
  End With2 ]9 S7 Z& E, _- E1 Q7 i
    最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
; t/ G) ?4 B- o- r/ J* m! }    使用方法
: }) l3 N4 o' ?7 u9 [. m  U    用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。
6 w4 B! h  e$ T8 `    1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。# I# c$ {) s* L. k2 ^
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。
: D" V) e, B* f0 V    3. 选中名片样板图文框。
2 \% U+ }6 j8 W    4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。; F& i6 `* g7 U
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
' z% Z8 w3 y% s( A* `    6.如果需要,可"另存为"一个Word文档。' g9 Z" G9 p- _& ]
    以上操作简单、方便、高效,读者不妨试一试。
分享到:  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, 2025-2-19 07:04 , Processed in 0.084973 second(s), 28 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

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