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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
) |5 U; J3 `" X  N2 [: L6 d    页面及图文框设置
* n$ m5 L0 V( a# S, _- ^    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
! a/ k4 x$ \8 m$ ]    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
    定义"复制排版"工具按钮
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
6 I4 E/ t% D" d4 I    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
    ①指定一个宏名--"复制排版"；
    ②指定将宏保存在当前文档；
    ③单击"工具栏"按钮，弹出"自定义"对话框。
. L% f5 X" Z  l4 a- h9 X$ f    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
    "关闭"自定义对话框，"停止"宏录制。
    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。

8 o0 d$ r7 p, a2 F    将以下代码输入或复制进去：
) X( z+ F" }) o　　Selection.Cut "剪切选中的图文框
　　For k = 1 To 10 "粘贴10次
2 {4 ?% L& j7 C" ]- K% O6 Y        Selection.Paste
　　Next
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
2 p) K3 X& P( p# A8 X　　With Selection.Frames(1)
" P8 ^* S! h" o8 i+ }) [        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
  |0 ~- _$ l% ^        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 o1 i' q# H* h/ T# Y1 Q7 P        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
  ~8 P1 W. `" c! t! ~　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
# D3 n+ Y3 e2 ?　　With Selection.Frames(1)
- a9 K9 Q9 h% e" i5 D0 m; z        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
* |- N* O$ x0 Q  z( ^6 L- v        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
3 {* [: o# o. P* q  T　　End With
( p$ x6 v4 l  @- @8 o# ^" J　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
4 W, m, [$ t1 C7 C, [9 X) c　　With Selection.Frames(1)
( ]9 S3 a" d5 z/ z. O        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
2 p5 m- z6 v+ A" c        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
; n* q( F1 Q5 R, t( I5 g* S        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
3 x/ T& ?/ B; u0 B  H2 V2 S+ o: C　　End With
/ n' k. e! C1 A　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
) Y/ `* t/ x6 E* u2 _　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
8 v7 U" H$ g* M        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
1 Y7 g( D- h, v. ^　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( K/ i% `5 |0 j       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
+ o! N% u% G6 Q: |' X       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
　　With Selection.Frames(1)
; m. g& b. t2 o( r9 N        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
7 B: q' b, c2 R1 C　　End With
8 A5 s! r$ s; q* S　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
) Y- m5 B( f& x/ d, d' q　　With Selection.Frames(1)
, J5 J2 M3 J& d       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
. S) X5 h6 D) ?. m$ J8 p       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
! L/ D8 S- |8 A　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
  y6 H% C" l9 j1 s* {. `　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
1 m( e; h+ Y  t/ C5 Z       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
% [6 n( _5 B0 S9 G+ @! ~　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
　　With Selection.Frames(1)
. V1 |9 l5 H1 `6 c0 m- U1 N  _       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
, o  g  h0 j' X' x3 O' X/ ~       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
% E2 N( I7 X4 I& ?' h% o( ?       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
+ \0 P' R' W& m* `' T1 r/ S& w       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
4 I* t# w9 X: l5 o: C) U; _　　End With
$ E  s( |/ V+ |$ Y( K　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
　　With Selection.Frames(1)
5 V  t3 [2 W0 y4 Y8 Y" a' M       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
5 c* o6 A6 t- O- L5 Z+ E6 c       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
    使用方法
    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
( }9 s: P9 s: S8 _7 t& f    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
! ~9 }) W& b* G; G$ B8 M) e7 @    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
) _  ~0 e# z" u  k+ r    6．如果需要，可"另存为"一个Word文档。
    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象