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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
   页面及图文框设置
    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
0 Q8 a, |% W2 k    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
/ u0 Q) ?/ }8 g0 q7 C$ A    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
    定义"复制排版"工具按钮
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
: |7 K& E$ `) N, G    ①指定一个宏名--"复制排版"；
6 g  f; q5 [  }; S) {  b, m+ X    ②指定将宏保存在当前文档；
" f$ P8 L" A. H- D+ u7 b: J% j( c  [    ③单击"工具栏"按钮，弹出"自定义"对话框。
    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
. x  k; \, J) A( R/ _    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
; A* Z" Q+ ?- E5 O- V    "关闭"自定义对话框，"停止"宏录制。
! l- d% @9 p  E) b! T4 }2 p    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
- l- _6 x$ g$ ^' T; }% S; S9 s; X; u
    将以下代码输入或复制进去：
　　Selection.Cut "剪切选中的图文框
　　For k = 1 To 10 "粘贴10次
        Selection.Paste
　　Next
, s6 n- H3 E( x4 O1 F$ Y! |( u9 z/ J& K　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
/ r  n) `2 ^3 ]  F$ _　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
* N, u" j6 w. ^( U        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
* N5 f( v, t7 d: b2 G& u! n        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
* x% z4 l) o* t9 b: a　　End With
( x; {& j, ?- A( e　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
& f- c! V+ ?  q) \　　With Selection.Frames(1)
& v$ B6 }' l$ |! _1 Z  I5 @; Z3 g        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
# P0 A; k2 h# t" a9 d! d+ Z- o        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
; P3 f* [1 K/ z7 u0 J        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
) k3 e' e/ \: t# D7 A　　End With
8 k# x, e% w9 v1 I　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
1 M# }& C8 m/ c3 [  J2 y　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
$ }( v; _& |' s$ N4 F* q. i' m        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
6 w4 p* w$ i0 B6 C+ {; |　　End With
2 M+ n9 a" K' N, @9 \6 A2 Z　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
7 b3 o2 \7 a0 w" b　　With Selection.Frames(1)
+ V. a- l# l: }4 s        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
; ?, Y7 p( v+ ?' X5 d! S3 _        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
4 N" U) ]( N& w3 t        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
, |/ w; [" K9 s, `% k　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
　　With Selection.Frames(1)
% Z( \6 ~: v1 i7 `! C5 i  Q; z) [       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
5 {8 m  B. {1 X$ g* U/ R　　End With
: B3 H2 i# z: V; [* W　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
1 e" D/ C2 L. W  \  o　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
1 A1 k& K/ G) h        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
  P) G0 }8 s! d. E; c( `$ w% F) S: }        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
; D/ Q/ u- Q9 o$ S　　With Selection.Frames(1)
0 t5 D$ m/ z5 `# s1 ~* c       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
" Y: \+ k8 {& ?7 f( E: A       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
$ d+ ^6 X" W. ], s7 b8 o7 A4 A       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
2 K* L  G0 x/ \8 d' w5 J       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
　　With Selection.Frames(1)
2 s* L) V9 ^& {+ e       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
7 B) x+ k+ \) x1 n4 p, I: Z       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
　　With Selection.Frames(1)
2 b/ A9 h: x3 \( j  p       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
0 N2 h( ?- v) ]8 U. F: D5 ~; F7 N- [　　End With
: r6 z5 n8 e( }4 R- k- u　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
　　With Selection.Frames(1)
+ d  K' l3 z( J! o# _1 H5 {       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
    使用方法
$ D) I) O* H1 y    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
    6．如果需要，可"另存为"一个Word文档。
  I9 r6 e# Z3 ?$ v0 ~' G    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

太麻烦了点,现在做名片的软件有很多,最好用的还是cdr

allwen110

杨小花

看着眼晕

影子精品

还不错，虽然现在做名片的软件很多，但也有很多是要收费的

兰竹轩主

学习了！谢谢！

时光印象