设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

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

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

[复制链接]

该用户从未签到

78

主题

495

帖子

1795

积分

银牌会员

Rank: 6Rank: 6

积分
1795
QQ
跳转到指定楼层
1#
发表于 2008-7-11 10:08:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。
7 N8 ~* t  D2 G& ~, U; y. t* M( ]    页面及图文框设置 ) p" E' N8 e: m2 \% i* N$ A
    首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。
6 J6 h( Y) F% D8 G3 H6 o    进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。 # h3 h/ J* P( E% }$ j& b" s% w
    从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。
% a3 V; s, l! t4 `# g' u' E: Q    从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。 & G; t! [9 F7 G9 S, T) X7 N
    定义"复制排版"工具按钮
% |7 g0 a6 }1 v    接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 0 L2 p1 S( `0 K4 b& ]1 w# @, v
    选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中:
% C# y: z% `! V- B# @  i    ①指定一个宏名--"复制排版"; ) D2 q. ?. T$ Z! \
    ②指定将宏保存在当前文档; ' _/ L) L2 e- b+ E
    ③单击"工具栏"按钮,弹出"自定义"对话框。
7 L3 ^1 v# J" c$ Z. Y" ^    在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。 ' T/ o* o4 `" D+ I6 ]+ ]/ }7 }; n
    在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。 # @5 O& E  J* W' K3 p9 L
    "关闭"自定义对话框,"停止"宏录制。 4 Z$ M; o7 s' [
    用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。
4 z+ @+ J5 @/ [( R8 r) g 9 S5 p+ |5 G# o- k/ L; b/ L6 E
    将以下代码输入或复制进去:5 [2 v% n3 D1 s9 }
  Selection.Cut "剪切选中的图文框
& Y0 t9 x7 j  P- c  For k = 1 To 10 "粘贴10次% z, ~" v/ Z) U& ~3 U) c: f
        Selection.Paste# L( m! H0 E8 c3 @# M  g
  Next
' \0 g! _( `0 V8 a  Selection.MoveLeft Unit:=wdItem "选中第1个图文框3 Q1 e2 G6 j) F9 c3 b8 r4 Q! v
  With Selection.Frames(1)+ k2 t, a3 Z* U- A8 d7 x
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧& g6 B! t- j* ?7 P1 R& e1 k
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
8 ^" S8 E9 Z" w: f+ q9 j2 T! n$ b8 J        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端5 {4 T  B! O# A) \# v0 A6 J
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
/ c% `- E, u" F3 o  End With' |/ R1 |+ n* A( E! A$ o2 c% S/ t
  Selection.MoveLeft Unit:=wdItem "选中第2个图文框7 U( G5 J# |# K
  With Selection.Frames(1)% }$ H- A$ z% ^; Q- X9 B: I% O/ d
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
- H( z; }6 U# {$ _        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
% M5 P9 B: Y' }& p  L7 F        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 - w# o8 O# P0 A0 ?& w& i  p
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
5 V( @- P( N' a' `6 W% d  End With5 B) i' T9 G, |/ m! }) W0 ?
  Selection.MoveLeft Unit:=wdItem "选中第3个图文框* N$ w9 t: n; I6 U
  With Selection.Frames(1)1 N5 O7 u9 M& S
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
+ g6 S5 e- l8 @, s; y: P& |        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
4 Z, A# B  ~" n! }0 |$ b        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
6 B9 P" C. v" ^, g, }9 I        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
3 X7 o) b, u1 w; b/ y  End With
2 L8 F3 G9 k+ B- t  Selection.MoveLeft Unit:=wdItem "选中第4个图文框
' l* |) S: a: t+ {# {& E0 {# s  With Selection.Frames(1)& {8 R+ C* m# E/ C" F) q+ h
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧& O5 h* J* g0 W* {' `
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin! e( q; |, _; q; R* }3 d
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米- u* d' v( `: U5 s4 [
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage# Q  q, A+ M0 V, s, F  |) r
  End With
3 N5 e% ~% b2 d5 C4 f" m- ^  Selection.MoveLeft Unit:=wdItem "选中第5个图文框4 s) }" A: D% j" @
  With Selection.Frames(1). a2 k% c" v* m7 u
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
8 ^8 _( d* r4 _1 g+ ^0 o9 z       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 u7 `) y% A7 h6 R2 p       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
3 C0 l4 T3 d% D9 c       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
4 R* X: q& A& |: i. S7 m  End With
% X4 s2 E3 V: z" R. B2 A8 b: z# @5 r  Selection.MoveLeft Unit:=wdItem "选中第6个图文框0 {! ^; L! M$ P& ]4 w1 `+ n4 @2 _
  With Selection.Frames(1)
- t% q) Z$ ^6 U  z3 Q" r        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧5 G2 [$ i+ J, w+ [) T
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
7 U& y: ?: @4 T: @        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中  _* w8 C$ C0 R! K& @4 a/ n
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin& ?, H2 H$ D! e+ [* L
  End With* m# |5 F( C1 A7 S0 [
  Selection.MoveLeft Unit:=wdItem "选中第7个图文框6 r3 Q1 c% ~  [$ D+ w2 y( l
  With Selection.Frames(1)" D- N- L& j2 s) R* D5 J& K; A
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧+ m  C; {7 \, I/ A
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
! v& Z* U( x; X% K; M( w( A* ?       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
: \* T* G8 y) t5 W. }       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
) i3 L5 {# y1 A& o1 F  End With
* }! U4 ?0 g. w, I1 V4 N1 K  Selection.MoveLeft Unit:=wdItem "选中第8个图文框% b1 U/ R( [! b% Z/ f; }
  With Selection.Frames(1)' A. q/ H% [. j- p# x
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
5 L6 i$ q2 A+ i% z5 G; o9 T       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 L* t) x, Q3 r* r) f4 W3 Y- j       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米2 D! Q7 R% N' M& O
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage1 [# ]3 l% [; q
  End With
) }- G. }& f! o7 T6 ]8 I  Selection.MoveLeft Unit:=wdItem "选中第9个图文框; A7 M8 v# s# Z+ m, Z* a7 X6 L
  With Selection.Frames(1)  ]& U1 X& |% g- @+ Q/ x7 [
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
# R6 Y% G5 y0 B3 P* b1 @5 M       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin* P6 s3 V5 f$ e0 v% m% T( M7 [
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端# P. w8 F, F6 d0 d) h
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin6 b$ G* B9 x) w2 c3 d
  End With( i0 v: }+ x  R. B2 U) y
  Selection.MoveLeft Unit:=wdItem "选中第10个图文框) i) _$ `0 [- c1 `! @% o) H
  With Selection.Frames(1)5 y; j5 |3 M3 B) C
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧) g3 U+ @1 S# ?6 R
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
* Z$ Z, j+ ]2 q- j: X7 B       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端) P! |" _! d  u' f' ~
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin0 T$ j" e  ~: h. l
  End With
! O/ [9 ~$ I$ R& U4 l" q    最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
0 l+ N3 W. s& U$ L' r) k- c7 U5 `    使用方法
$ P) f, Q, [& R: x7 r    用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。
& b& Y5 r8 k9 P, l7 E    1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
8 W  q4 v" S* U7 O; N+ i9 j. B' ?    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。
5 z( m7 R9 X5 T+ W9 F    3. 选中名片样板图文框。
. S+ _6 X6 Y* }9 \3 m    4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。8 {$ z. T; e; y
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
- {6 s- G9 ^# t    6.如果需要,可"另存为"一个Word文档。
  h3 T  r1 C* P8 C: w0 ]    以上操作简单、方便、高效,读者不妨试一试。
分享到:  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:17 , Processed in 0.083019 second(s), 28 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

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