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

要命的恩恩

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

. z& C. F3 L& O3 o# V  X    将以下代码输入或复制进去：
　　Selection.Cut "剪切选中的图文框
　　For k = 1 To 10 "粘贴10次
        Selection.Paste
　　Next
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
　　With Selection.Frames(1)
; c' ~# T1 n5 O2 N) @        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' }- I. Y7 h9 g; C- ^        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
4 _) T2 J# W8 R+ H) \/ Q+ _　　End With
8 h6 m2 x0 L0 M- O$ @0 F　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
　　With Selection.Frames(1)
2 J6 U) C$ S# n        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
1 f# u. U; H- R% ^4 U        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
$ l$ [7 i4 T; S; _        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
3 X0 y$ P& s0 t% f6 d3 F% J　　End With
5 {: ?$ M: O& [3 h+ r8 T1 y　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
# J0 g: ~9 o4 Y, U) l7 M% ~. f/ {        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
! H+ X' _* \4 w# u, Z) ?- r; `　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
" i$ {5 H. K3 n" |# \　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
8 Z* x& }2 i" a5 Y& k% P, H, v　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
! k# E9 f" F  P! A: i$ v6 X        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
, R, e1 A9 x1 B3 p/ n* e5 e' y　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
3 o: o; J# v/ l% B. X' Q) z　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
$ K2 h* Q4 u) `       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
0 X' ]" U' A; ]- j" w7 S& v7 j: S       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
: ?7 K+ x1 N5 T' z  U　　End With
9 G3 U( I6 V# L5 e0 B7 _3 C　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
( S8 w' h' ~) A* M2 ?       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
) e% K  O! `$ N" ^       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
# b; O# o7 J5 Q5 I0 |; o       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
$ H6 \# {# S2 N6 r! t　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
　　With Selection.Frames(1)
2 r: x( r$ N6 D# R       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
! a7 S8 K. f- u* H( Q4 R% k2 T  S( `       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
　　With Selection.Frames(1)
. E- [* v" F* c! a- b       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
$ R; }! t9 _7 t8 K5 i       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
& ]/ b: p; `# Z/ R       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
7 `6 G) y7 h5 U; X; `) q       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
+ ]0 i; J  t( G* y    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
" H, v+ G; ~; G7 z/ T! j    使用方法
3 N4 p5 S% ]+ ^! a7 z3 {    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
8 A% O) k6 C; ~) q    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
2 T+ N2 q4 d: i- G% F4 \; c    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
: T/ o$ P4 C9 j5 M6 a    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
& {0 u& T0 L2 {/ y' E! h    6．如果需要，可"另存为"一个Word文档。
    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象