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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
$ X- n2 V, s# \9 N    页面及图文框设置
2 C8 J8 Q7 k: t9 A; Q; v2 b3 N2 r    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
$ C! z& `* Q9 `! ~    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
0 h) }8 ~$ @# E: ~3 f' O. H    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
- D( n. q- s& ~- K  g. V( \    定义"复制排版"工具按钮
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
7 H$ Y# a5 v4 I6 y4 c5 A. `    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
    ①指定一个宏名--"复制排版"；
' C8 ]( y5 Y- j; W    ②指定将宏保存在当前文档；
    ③单击"工具栏"按钮，弹出"自定义"对话框。
  A! l. O( x) t; @6 x    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
" r/ G; u+ w% s& A    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
    "关闭"自定义对话框，"停止"宏录制。
9 S+ i( \0 i* p    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
( P) f, c* c2 Z0 z3 i0 W+ w% |
    将以下代码输入或复制进去：
& m; ^6 e! C% I4 G% ]　　Selection.Cut "剪切选中的图文框
　　For k = 1 To 10 "粘贴10次
        Selection.Paste
　　Next
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
, t4 F9 H7 I5 i2 J  q7 _　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
" S; |  z/ T2 y6 c        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
0 E/ k3 h3 C! m* z　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
2 E2 |. c1 C! ]% f　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ p7 \9 J! n# p        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
, B8 Q( N' G7 F$ n  P# Q　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
, `7 W; t6 b6 U; ^6 |, }　　With Selection.Frames(1)
; b  E7 U! |3 M( a4 U        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
/ q- b& D6 d9 ?$ x        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
/ f+ U& k& B0 r: \7 Z, y5 E　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
! Y, @) n# I. B; e+ i　　With Selection.Frames(1)
5 \' W( q$ G' m" n' ?+ j! S% c        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ F+ @6 Q7 h2 H# F) a. w" Q        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
* s  l/ h' A+ Y( r　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
: `) Q- q- k  B' [　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
8 S/ S+ ^: B& K       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
- C  d( ?  J4 z! M) V9 P       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
6 V/ M" N# \% }0 m3 U5 N　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
　　With Selection.Frames(1)
& s! B. Q8 O9 e        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
& B6 G$ b! o, N- u# W& [        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
0 |' c9 M8 d( o3 {: {        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
' b9 D* m; K. `3 y% P        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
: n1 K; i1 H6 a6 @　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
　　With Selection.Frames(1)
# @% W# a( G- l" c, a( b2 j, F       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
1 x6 I3 @- b: y! @! h* _       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
4 a/ a) r- ~  m7 C0 p7 R       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
　　With Selection.Frames(1)
+ R% x  ~8 f& s       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
- t+ x/ |& g8 ~& J& k( k3 v3 c( R+ I6 Y. n       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
6 v5 D  _) s6 z0 C- f" g" y) D! G* T　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
/ d! q, k) V+ R1 s" y2 d- g3 E　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
) N' L5 E$ Y- [& P! w$ N1 _7 B+ o  W$ w       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
, h; y) G3 |' f% |% C9 s       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
9 `2 @* Z0 ?" ~# @8 W7 i       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" R) V& I9 g) @4 ]1 N& w; |0 P       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
6 @9 W6 g( V9 z4 @       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
    使用方法
    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
# x( o# P/ o7 b+ h8 N    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
/ o6 N1 s8 B* V1 x+ G9 A: r6 y* O    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
    6．如果需要，可"另存为"一个Word文档。
    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象