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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
6 o( n1 P8 e) G" p    页面及图文框设置
, m9 K+ Q! ?" O8 n0 G' v; \    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
# }  K. x5 h# @1 z# @! Z) ^0 P    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
2 i  |* D, a  |2 _, f    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
8 f% T2 _( H: m3 c    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
0 g" t3 O. F9 M' U" V# {$ _    定义"复制排版"工具按钮
1 ^5 b- S/ l: A+ j/ ]+ v2 v    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
    ①指定一个宏名--"复制排版"；
, H) Y, y% x/ ~; H8 [( _    ②指定将宏保存在当前文档；
( R6 p( @8 `( G% r/ z% t4 e( Q    ③单击"工具栏"按钮，弹出"自定义"对话框。
( F/ z: A# k2 a' u  g    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
: b: }4 L/ d" D( L' C% i+ L( Q  k& [    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
7 X* D9 s* t- y& K+ N7 e    "关闭"自定义对话框，"停止"宏录制。
5 H, l2 k8 }9 g    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。

+ e9 K2 G. E# T) N6 V/ K7 V    将以下代码输入或复制进去：
& c  M: ]& m/ M4 l% z, F4 V# c　　Selection.Cut "剪切选中的图文框
9 C8 K& M" e; E' |5 Y, U  R　　For k = 1 To 10 "粘贴10次
        Selection.Paste
; T- y6 o4 M2 n4 f/ A- D　　Next
1 F/ m+ F  _: L2 j　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
- T$ j6 r! y. i- v& Y& V7 t5 k　　With Selection.Frames(1)
4 Y+ H+ Y2 ^7 Y7 _        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" s2 b  O, }2 A! C: x  G- O( C        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
# ^9 m! Y) V/ I. h　　End With
  n4 [6 k& W4 [  y1 G1 x/ J" H( F' Q　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
  D& y' G: Q1 K5 O8 G　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
( h1 ^( i, i* m+ V　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ e+ U! W  W3 {: g1 q3 y0 Y        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
　　With Selection.Frames(1)
" Z6 O' H( o) G" }! G  s        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
( T; c' B% N: W' n( a& c5 E　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
　　With Selection.Frames(1)
9 I2 y1 D2 `2 j% a+ x3 c       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
9 B( `5 R# G" L9 I7 R$ u　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
( w- D/ j9 \& H; f- c& y　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
4 P" u. M8 o5 K, O8 f        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
# l$ i" f7 n/ ?+ f, ~/ n( c" c7 d　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
　　With Selection.Frames(1)
) K) q7 C9 i& `2 O7 e1 r: |       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
& u. g1 o, o, O　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
7 E6 g. E5 G! |4 e; U9 Y       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
　　With Selection.Frames(1)
+ ^# _6 X8 S* h, T       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
% J" _- ]5 G5 Q  m       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
5 y" ?9 z6 K* T) ]+ t/ M4 o  }       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
$ A6 t) x# u" r# U2 E       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
0 E& f" |* W$ }5 K" |! U0 _2 i　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
" v, m+ C. r* g7 [$ m　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
1 W7 L5 T% |' X! U2 ~6 j       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
- F0 J& G( W7 Y# O4 A8 n　　End With
, C9 M/ \, V' e5 J# w2 K    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
    使用方法
    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
: R+ g. w0 M* c    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
5 z, l) Y' x$ j9 x    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
  X4 v: M$ W  E, m* |    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
' V: h$ H: h3 `9 R$ f    6．如果需要，可"另存为"一个Word文档。
( p- B% T7 O2 N; L9 a, m$ f    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象