设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

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

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

[复制链接]

该用户从未签到

78

主题

495

帖子

1795

积分

银牌会员

Rank: 6Rank: 6

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

+ e9 K2 G. E# T) N6 V/ K7 V    将以下代码输入或复制进去:
& c  M: ]& m/ M4 l% z, F4 V# c  Selection.Cut "剪切选中的图文框
9 C8 K& M" e; E' |5 Y, U  R  For k = 1 To 10 "粘贴10次7 g5 w7 g- C9 I+ t# P) I) @
        Selection.Paste
; T- y6 o4 M2 n4 f/ A- D  Next
1 F/ m+ F  _: L2 j  Selection.MoveLeft Unit:=wdItem "选中第1个图文框
- T$ j6 r! y. i- v& Y& V7 t5 k  With Selection.Frames(1)
4 Y+ H+ Y2 ^7 Y7 _        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" s2 b  O, }2 A! C: x  G- O( C        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin( H& t+ r; r* J; }" G7 u
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端3 d* F( q& O6 M' a; U
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
# ^9 m! Y) V/ I. h  End With
  n4 [6 k& W4 [  y1 G1 x/ J" H( F' Q  Selection.MoveLeft Unit:=wdItem "选中第2个图文框" J3 N% U1 D: S* {
  With Selection.Frames(1)6 c( l& h' w9 g% H+ i9 ]8 ^
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧( r: }* y) U! a
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin, |/ I$ J+ ?) J! c
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 / C$ ?7 ?/ `  |4 g9 D
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin7 I, J1 j* O  K4 P! k: b
  End With
  D& y' G: Q1 K5 O8 G  Selection.MoveLeft Unit:=wdItem "选中第3个图文框
( h1 ^( i, i* m+ V  With Selection.Frames(1)& w  v9 c. N3 X4 x$ `
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧7 o0 [" `# ?7 `
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ e+ U! W  W3 {: g1 q3 y0 Y        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米% S1 S0 |* P2 m" N: w
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage, x# O" t7 P# p/ w) V8 d4 g! ?* d
  End With5 R7 C- x0 q# P% a* ^
  Selection.MoveLeft Unit:=wdItem "选中第4个图文框( O$ \  o* Z0 k4 ^  Z2 A7 C. n' a- R
  With Selection.Frames(1)
" Z6 O' H( o) G" }! G  s        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧6 j0 t3 {( {+ _/ E2 C
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin3 e8 u* Y. S/ p4 x1 f
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米: C. k, ]. q, m- @' r  _4 Z4 t
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage+ m) s7 t+ K9 j1 r
  End With
( T; c' B% N: W' n( a& c5 E  Selection.MoveLeft Unit:=wdItem "选中第5个图文框  ~6 y1 i* Q  I1 [6 J
  With Selection.Frames(1)
9 I2 y1 D2 `2 j% a+ x3 c       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧$ F' [! ~( A! V! B2 C
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin2 S  j0 T6 f2 [9 M
       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中! Q$ m/ z1 Q( ?# {+ E  G$ M
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
9 B( `5 R# G" L9 I7 R$ u  End With. p' |" p6 S; f3 b& C) Q
  Selection.MoveLeft Unit:=wdItem "选中第6个图文框
( w- D/ j9 \& H; f- c& y  With Selection.Frames(1)0 L& q, H5 R( l7 r
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧  G8 n. N% f5 z0 k; w
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin+ U5 l5 S2 u$ `: t
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
4 P" u. M8 o5 K, O8 f        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
# l$ i" f7 n/ ?+ f, ~/ n( c" c7 d  End With+ P' M8 S% v' F7 z) i
  Selection.MoveLeft Unit:=wdItem "选中第7个图文框. P( J1 {& y8 A1 Q$ G( `
  With Selection.Frames(1)
) K) q7 C9 i& `2 O7 e1 r: |       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧) ?/ y1 N! q: F5 v; c! f6 \1 E
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin8 e4 R- Z7 N2 {, z5 q; u! T/ W
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米3 s$ x1 D" y/ f5 h
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
& u. g1 o, o, O  End With/ Q9 C3 o* I. ?" o, h
  Selection.MoveLeft Unit:=wdItem "选中第8个图文框% q- O" B- J) H& ~( A$ K
  With Selection.Frames(1)! z5 B, }8 |) K1 h  K5 W
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
7 E6 g. E5 G! |4 e; U9 Y       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin( ^( c( W' L% N
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米/ L2 z0 G  s2 R5 p
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage4 }" u- J  b' d& ^% R; d2 y2 {
  End With# e" j. O  v' V0 @
  Selection.MoveLeft Unit:=wdItem "选中第9个图文框; r5 v; T, _. ]: y# F4 f/ J
  With Selection.Frames(1)
+ ^# _6 X8 S* h, T       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
% J" _- ]5 G5 Q  m       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
5 y" ?9 z6 K* T) ]+ t/ M4 o  }       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
$ A6 t) x# u" r# U2 E       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin# A9 R+ Y" ]4 [* j
  End With
0 E& f" |* W$ }5 K" |! U0 _2 i  Selection.MoveLeft Unit:=wdItem "选中第10个图文框
" v, m+ C. r* g7 [$ m  With Selection.Frames(1)) T$ O; r7 P1 c& a  _! a) _9 U) g3 O* u
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧, {& |5 @4 R3 q. T
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin' v- q' \7 ?8 D' r; h1 k, W
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
1 W7 L5 T% |' X! U2 ~6 j       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
- F0 J& G( W7 Y# O4 A8 n  End With
, C9 M/ \, V' e5 J# w2 K    最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。8 B3 {& \' i% c% ]% s; o" ~
    使用方法$ y9 U0 ]5 w* {9 {9 o
    用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。5 R! F- W! S& |0 r) P, f
    1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
: R+ g. w0 M* c    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。
5 z, l) Y' x$ j9 x    3. 选中名片样板图文框。' L9 u3 c0 X, M. j. ~/ M9 j) h& m# F/ E
    4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
  X4 v: M$ W  E, m* |    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
' V: h$ H: h3 `9 R$ f    6.如果需要,可"另存为"一个Word文档。
( p- B% T7 O2 N; L9 a, m$ f    以上操作简单、方便、高效,读者不妨试一试。
分享到:  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 06:48 , Processed in 0.230501 second(s), 27 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

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