设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

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

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

[复制链接]

该用户从未签到

78

主题

495

帖子

1795

积分

银牌会员

Rank: 6Rank: 6

积分
1795
QQ
跳转到指定楼层
1#
发表于 2008-7-11 10:08:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片,但操作比较复杂,格式也不够灵活。我们用Word2000的宏创建一个名片制作模板,简单实用,甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印,效果非常理想。
6 V3 m( W5 ]9 B1 T4 j    页面及图文框设置
9 l; H  c1 |8 W2 x8 }+ a8 ?9 K( L1 I1 c; N    首先,按标准的名片纸张规格定义纸张大小、页边距,并定义一个与名片尺寸相一致的图文框。 3 h4 L" I' j. ]8 Z5 ]
    进入Word 2000,在"文件"菜单中选择"页面设置"命令。选定"纸型"卡,指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡,指定上、下、左、右边距均为0.7厘米。单击"确定"按钮,退出"页面设置"。
% o8 y1 h$ F: y5 A4 ]' F( F    从"插入"菜单中选择"文本框|横排"命令,在当前文档空白处拖动鼠标,任意画一个文本框。从"格式"菜单中选择"文本框"命令,在"文本框"卡中,单击"转换为图文框"按钮,确认后,再选"格式|图文框"菜单,设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮,退出"图文框"设置。 2 Y1 W/ ]4 K+ S- t- b: [/ l. A
    从"格式"菜单中选择"边框和底纹"命令,在"边框"卡中,设置"无"边框。单击"确定"按钮,将图文框的边框取消。 2 t& l6 I' n6 U- X2 O
    定义"复制排版"工具按钮 , C) U0 X  k  L8 O4 E
    接下来,我们定义一个"复制排版"工具按钮,用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。 1 b; Q% g8 E2 _2 u+ l) n
    选中图文框,选择"工具|宏|宏录制"菜单。在"宏录制"对话框中: * [! J( Y3 M, n0 M7 Z' D% b
    ①指定一个宏名--"复制排版"; 1 \, P# Q- m4 b/ H+ I3 i
    ②指定将宏保存在当前文档;
/ x. Q( u1 h9 t/ ~( c    ③单击"工具栏"按钮,弹出"自定义"对话框。 " t" |+ a+ D4 a
    在"自定义"对话框的"工具栏"卡中,单击"新建"按钮。指定工具栏名为"名片",工具栏的有效范围为当前文档,然后"确定"。 + ?: l) z; @& O8 N4 b& q
    在"自定义"对话框的"命令"卡中,将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮,修改工具栏按钮名为"复制排版"。 0 H% t( n7 s* E+ Z' Z/ R" @. o
    "关闭"自定义对话框,"停止"宏录制。
2 n& o. s+ S1 v, @6 ?, @    用"工具|宏|宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。) C% ~6 m3 }4 Y7 z# l/ c  ?

3 k0 ?' @- Q4 ?7 {    将以下代码输入或复制进去:
, w- v; @$ |* o& D  Selection.Cut "剪切选中的图文框
- d0 N+ y- E4 ^" [  For k = 1 To 10 "粘贴10次
) N1 k( r; M. g* t8 H0 x2 P        Selection.Paste
# o8 R( o. q# W1 e9 Q& I0 Y, E, l  Next% c; M( @- h9 s; L" T* L# V
  Selection.MoveLeft Unit:=wdItem "选中第1个图文框
3 r. r) S# ?3 q1 L2 ?: D  With Selection.Frames(1)5 S4 i( {: _  Z
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
! E' v2 K% {  C" ]+ C        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& q$ h- \" a% R& o- \
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端- q! d# q4 N6 @! A# K5 Z
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
8 m5 r# n. k1 K  `0 x  J  End With
- Q' k& O, |! H& [- c- N  Selection.MoveLeft Unit:=wdItem "选中第2个图文框
* t( V4 u( q8 a/ {1 W& S/ t0 q  With Selection.Frames(1)
3 V' ^4 N, }3 r7 K# P        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
, r( A. ~" O3 R        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& f* q% v* j, ?/ v$ f: E
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端 $ ?0 c( X0 y3 Z6 V
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin9 Y. U# L  B. M  ]
  End With
4 ]) B3 s  o1 @: P1 @3 {' s  Selection.MoveLeft Unit:=wdItem "选中第3个图文框
4 a$ ?& x7 s- [% Q  With Selection.Frames(1)- c" E1 X8 y3 x" i3 h3 E7 m& N* L/ V
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
- W) Y% P$ O7 k, i        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ v+ R' y) W, W        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
, c2 c" `3 T( N7 T) o: g' U        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
/ o; d- ?* l* I9 U8 }. o  End With, B& L' F# g* x4 ~( r
  Selection.MoveLeft Unit:=wdItem "选中第4个图文框
& r; K/ P  B: l* B# s% P& ^% M9 l' L- Q  With Selection.Frames(1)
( \4 Q; u! x7 n( d) K  u" n        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧" n# x0 ~' G9 i7 o1 x
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) R3 k+ y3 q) T" N0 F, ~        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
6 |# |- u9 Y- }( _% |- E        .RelativeVerticalPosition = wdRelativeVerticalPositionPage; J0 H, y" O% w- E
  End With9 R& V4 ~7 M. C
  Selection.MoveLeft Unit:=wdItem "选中第5个图文框
  N  M' o- K7 w6 x1 a  With Selection.Frames(1): p- }% h3 F; F6 ]' S  m! f2 L3 @) b( q
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧% J' V5 S# M3 p' P" i. Y8 Q: O4 C
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin& S: m+ E1 A# e& k
       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
( @- d" ^% S) h2 Z6 }( r       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
& z- k6 K4 p+ P  End With
, S8 Q  X4 S% U  Selection.MoveLeft Unit:=wdItem "选中第6个图文框* t1 O2 e5 \0 p# O# l
  With Selection.Frames(1)
8 |8 X& F0 D  C3 X        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
/ q0 h. d* g3 S! n        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 y: r- j/ P% w) o" W        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中$ |2 z8 _! E7 U. @2 I+ k% S
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin; K* \) D* V4 U6 E( K6 O
  End With
# W. i# _9 `& j. f1 d; l/ {  Selection.MoveLeft Unit:=wdItem "选中第7个图文框0 j# n, P  @' y7 y
  With Selection.Frames(1)  x- |8 }4 b% u" `
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
7 H) I: F  W' I" W0 b& H; P       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
& P$ M; S# v& |3 H8 y9 S- x$ f: y       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
. a4 Y/ x% W, ^       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
* f. T* i8 X. s6 l  End With  F* C, M7 W" R+ I
  Selection.MoveLeft Unit:=wdItem "选中第8个图文框) G2 y8 Q9 o' A! F
  With Selection.Frames(1)! b1 F9 \, e* w! l4 y
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧! m- t8 y% @. U- u& \6 [( P: R8 x1 S
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin/ e; z# W" j  ^0 @; w# f% ^" |
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
7 b/ A; _& ~$ K; H       .RelativeVerticalPosition = wdRelativeVerticalPositionPage6 F3 E7 X/ x, v7 q, N4 Q  s6 P
  End With; _& f- z3 d$ c, p9 N( ]4 J: R4 c
  Selection.MoveLeft Unit:=wdItem "选中第9个图文框6 m# J/ g8 x  f  g( U
  With Selection.Frames(1)5 p; C- d+ V+ p" T
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
7 Y! q# F5 J: {5 R       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' L! K3 ]8 a  a       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端/ R% A1 R9 D( D+ `1 h* K, L  I
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin0 `6 u$ x) i4 H$ t: H$ [# ~
  End With# ]- S$ Q* D3 b6 j) s1 A. `3 h
  Selection.MoveLeft Unit:=wdItem "选中第10个图文框* {. W8 s( `5 p, Z
  With Selection.Frames(1)
' V+ s; T8 t5 a+ P! M+ C; g  h       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧( t$ O9 U4 X* C: Y0 m# T
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin5 f: y% O6 q2 m# I& q4 E
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端% D6 U4 X/ R+ i' D3 E% M9 ^
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
+ G, Z* K" E. ^# W  End With/ Y3 j+ d, o4 H) r
    最后,关闭宏编辑器,用"另存为"菜单,将文档保存为"文档模板",取名"名片模板"。整个一个名片制作模板即告完成。
% o; i: b$ b0 l2 ~- V; A    使用方法
) L9 T$ K; A& B+ b1 Z/ {    用前面的方法建立一个名片模板后,可随时方便地用它来设计、打印名片,可谓一劳永逸。
+ Z, y, y3 O* F; O: y    1. 直接用鼠标双击"名片模板"或进入WORD后,打开"名片模板"。
+ v  Q6 B1 h$ @0 |9 l! U    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版,也可以插入图片和进行艺术加工,设计出一张名片样板。1 B+ \1 p& G7 u& ?0 O& a1 E+ t
    3. 选中名片样板图文框。
# g% c, y; v6 p/ N# P* p6 r  }    4. 单击"名片"工具栏上的"复制排版" 按钮,Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
5 m# k. ]; z, z5 I5 @4 F# J    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
4 e5 L9 E. ]6 i5 i    6.如果需要,可"另存为"一个Word文档。5 O  R1 _) T0 I; B' D) y
    以上操作简单、方便、高效,读者不妨试一试。
分享到:  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:47 , Processed in 0.160179 second(s), 27 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

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