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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
6 V3 m( W5 ]9 B1 T4 j    页面及图文框设置
9 l; H  c1 |8 W2 x8 }+ a8 ?9 K( L1 I1 c; N    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
% o8 y1 h$ F: y5 A4 ]' F( F    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
    定义"复制排版"工具按钮
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
    ①指定一个宏名--"复制排版"；
    ②指定将宏保存在当前文档；
/ x. Q( u1 h9 t/ ~( c    ③单击"工具栏"按钮，弹出"自定义"对话框。
    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
    "关闭"自定义对话框，"停止"宏录制。
2 n& o. s+ S1 v, @6 ?, @    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。

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
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
3 r. r) S# ?3 q1 L2 ?: D　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
! E' v2 K% {  C" ]+ C        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .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
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
4 ]) B3 s  o1 @: P1 @3 {' s　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
4 a$ ?& x7 s- [% Q　　With Selection.Frames(1)
        .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
　　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 "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) R3 k+ y3 q) T" N0 F, ~        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
6 |# |- u9 Y- }( _% |- E        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
  N  M' o- K7 w6 x1 a　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .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个图文框
　　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 "垂直相对于页边距、居中
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
# W. i# _9 `& j. f1 d; l/ {　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
　　With Selection.Frames(1)
       .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
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
7 b/ A; _& ~$ K; H       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
7 Y! q# F5 J: {5 R       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' L! K3 ]8 a  a       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
　　With Selection.Frames(1)
' V+ s; T8 t5 a+ P! M+ C; g  h       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
+ G, Z* K" E. ^# W　　End With
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
% 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. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
    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文档。
    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象