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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
/ c2 A# b- K( B+ A4 Y, u    页面及图文框设置
$ c2 ^9 E4 J* M4 ?( [    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
: h0 c5 ^9 L$ l* o    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
5 Y0 }! H4 k# [. S    定义"复制排版"工具按钮
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
) G% ]5 D" w& j    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
+ `: g: b9 W9 j2 k    ①指定一个宏名--"复制排版"；
+ F' E/ s# q* d9 w: ~  |, K  ]5 z' g    ②指定将宏保存在当前文档；
    ③单击"工具栏"按钮，弹出"自定义"对话框。
* ]- J6 R0 O. t4 R    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
    "关闭"自定义对话框，"停止"宏录制。
: h8 G# F0 H# g4 x4 I2 ?$ h/ q    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。

. H4 z: r+ `; g+ D/ T. h9 m    将以下代码输入或复制进去：
/ }; F7 G5 a( _2 N! ]( T# h　　Selection.Cut "剪切选中的图文框
, ]8 O( k( Y% d# U8 x; F　　For k = 1 To 10 "粘贴10次
        Selection.Paste
. M8 c0 h  D6 h! |0 G0 B　　Next
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
# J7 Q8 H8 Q5 j- U- ]! y1 V1 ]        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, V$ _9 y) d% D( u- n$ ]        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
* o! ^' f- }/ N1 u8 g- P- V1 x        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
" H# v# q) {8 s0 e　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
　　With Selection.Frames(1)
+ x3 ]8 ?" u4 E        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
* F- O& I) n. k& ^4 d' W) w        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
- C5 |* n) j4 }; b        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
9 X& D8 A. `4 |" k        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
8 S* O2 B* K( v7 q. |% c9 f        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
' s( a! M3 d; m2 _+ j　　End With
- M5 j2 _* {# V+ x- C5 D: x$ G　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
/ w! Y! f3 L0 d( f; {　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
1 J& D; a2 O. ]; C0 |　　With Selection.Frames(1)
" v4 P' w9 @" {. N        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
+ ^- n) @/ Z5 t: d. s        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
  _$ P0 }" F+ @        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
　　With Selection.Frames(1)
# B( W# a  A& ]( X" J       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( {, U8 L, R6 r' Q) D       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
# E7 q3 w  ?: d& L! o8 z! H       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
7 X( t; m6 R5 _2 V　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
* _0 v% q- E& C; X　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
5 h/ U& T. ?  h: D) _       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
3 s: Q' f& l) o* B4 \　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
- W$ `& d0 f; s& x1 u       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
　　With Selection.Frames(1)
- x4 X9 E3 `+ J: P" i       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
: d8 e5 U+ q  d$ A: \2 }       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
4 t7 V0 P- d( L, D) v3 r. H& p    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
    使用方法
0 n4 H5 D" D) [/ ^# H" _7 F    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
3 G9 Y4 @+ E" V9 Z+ l    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
    3. 选中名片样板图文框。
# H* y% @6 n& v( A  l3 X" v+ \! z  V    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
    6．如果需要，可"另存为"一个Word文档。
    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象