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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
   页面及图文框设置
    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
' \& ^" t7 g. |, N# T: Q0 P2 z    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
3 ^( t" }, M; F2 a3 ~" e  V    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
, S+ B8 B  T+ |    定义"复制排版"工具按钮
9 {/ b" I. H0 e8 g' R6 w    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
    ①指定一个宏名--"复制排版"；
    ②指定将宏保存在当前文档；
    ③单击"工具栏"按钮，弹出"自定义"对话框。
    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
' S1 z& w! Q: p0 I, J9 ]$ }9 t    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
    "关闭"自定义对话框，"停止"宏录制。
    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。

    将以下代码输入或复制进去：
　　Selection.Cut "剪切选中的图文框
　　For k = 1 To 10 "粘贴10次
: F/ h/ T5 E/ J2 @" V        Selection.Paste
　　Next
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
1 |9 ?, i) c& Z& W: Q* x        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
/ D# u. R3 ^: v' M/ _; b) M　　End With
: Y! F- U; V8 O: E  r+ \0 t　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
2 `' k3 c4 B; P9 W$ n        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 b$ v  E3 Y+ A8 h. a6 }        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
5 `2 G, f, J4 o        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
! J2 \' X7 L9 z& ^. j0 g　　End With
1 s" O) \( [3 B- |' O4 R# @　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
: c1 @. H) P; ^2 {: F5 e- c　　With Selection.Frames(1)
) U  u) {0 [( g. k4 ~2 |        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
+ L1 z$ e% `) k$ l0 o        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
, ~, c7 N, S/ Z" d        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
% d" F' [* y/ ?' y& g3 h$ S& H$ E　　End With
& b* e! d5 r- W+ ]# t　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
, p  {( G0 w1 s+ Y　　With Selection.Frames(1)
4 J  `  ?6 a, O4 u) {        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" {+ r4 Z3 }$ n4 ^& _+ d        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
0 P) {, r! x; I3 g/ G        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
( ~: g! v0 J5 q2 p- {　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
　　With Selection.Frames(1)
" n. r) C+ m; L* n$ Q6 w# x1 F; _       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
  z& i0 Z7 B$ S  K5 \$ T' ?　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
! g" P: O& \& e% `3 W8 B8 |1 |" ~4 R8 p　　With Selection.Frames(1)
: u, l& b# j) _* R: o- [( x        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
3 n) X" q% C1 o% Y4 ~" y        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
: E9 `* u% a, m4 N  F        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
' n  n4 h9 D$ X8 j" j　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
+ s, i9 O7 L3 q6 m       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
6 D6 o2 w; |' M% n" w0 i3 b; E       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
0 F4 c, N8 E: t8 @# [　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
, m; `+ L1 C! x+ q! y3 ~　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
# }, V' l% Y- n5 Y: t       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
5 X" t! f( k1 h  ^6 r1 i　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
% u0 d/ e3 R7 N' Q5 A6 B, @　　With Selection.Frames(1)
( @/ Y. T2 g$ h# X+ W6 u       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
8 K# ?! b! [0 @1 q7 r; j- [       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
5 ^2 _1 g0 P5 ]6 ?6 z       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
　　With Selection.Frames(1)
7 Z7 ^6 Q  j0 g, a( x- Q1 O       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
4 E' |. ^0 d4 B       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
3 W  x& i0 Y8 g% H  |       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
/ e5 q+ T, `; B% R2 q2 q' P       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
! x# @0 Y. A1 Z3 o; b+ d) L    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
+ {$ J! c) m! u: R; k& d* s2 G0 H0 {    使用方法
5 X8 k8 A+ D8 w% G* \" A' A: K) ^3 H    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
* q: u/ v4 ~, \6 X/ `% `2 ^1 l% n: V    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
7 D/ e! N0 e1 a* J7 ]3 G' \* A    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
    6．如果需要，可"另存为"一个Word文档。
5 ?$ P% I, [7 A0 _! [    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象