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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
   页面及图文框设置
    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
5 \8 Z* U' Y5 W0 b5 }3 P    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
) b: z  t/ _8 j9 m! B- r# T    定义"复制排版"工具按钮
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
: |6 {, u& |1 v& ~5 D3 K    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
9 ]: z: M, O6 T, m( u* x$ b1 D    ①指定一个宏名--"复制排版"；
    ②指定将宏保存在当前文档；
$ g# s4 w4 |# {0 ]. i    ③单击"工具栏"按钮，弹出"自定义"对话框。
( x7 s9 z5 Z. K    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
/ v) y0 V/ G* J4 A0 c% D    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
    "关闭"自定义对话框，"停止"宏录制。
6 R& j; e/ @. O4 g- C" M$ r1 t    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
/ f" y7 t! K* i8 S( g2 l9 H
; A! }  E5 b: s" k    将以下代码输入或复制进去：
　　Selection.Cut "剪切选中的图文框
　　For k = 1 To 10 "粘贴10次
        Selection.Paste
　　Next
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
1 E* W1 z+ e; A$ ^* f( y　　With Selection.Frames(1)
  N0 X, B- R  k9 _0 E        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ o( V& K9 |! Y+ k- s        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
  ~+ z+ q% H: Q: _, i! X        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
' W' K2 i  R- h% Q1 [　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
- R, X2 T" Y' ^+ Z6 T0 p5 Y2 ?　　With Selection.Frames(1)
5 }) D( a  |0 P        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
. O) A: ~6 {: [  C* k% j, K1 V, _' s% o        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
& a, n5 {4 m1 o        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
4 C# F% n* F* N  I/ O3 |　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
$ A9 o2 \: j* e  Q        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
' ~; U7 x- ?! u% v　　End With
/ Y1 b: k! P- @% V" v' ~　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
% I! n* m' S; ?　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
9 O+ l; B1 \. q" R; Q+ b        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
1 r4 p% _+ l: s) W- X　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
- B! Y4 F7 y8 \' v0 q4 I　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
+ @& y( N9 ^* `. A, o       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
* \) L- s) w7 @1 \3 V       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
+ |' K2 [. _5 Y: H4 P6 a       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
1 N, v2 Y  P* }1 F# b　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
+ l5 Q5 [$ G9 m( Y2 w# M6 V1 [7 y. x　　With Selection.Frames(1)
' ^0 p+ l; w' U8 G6 r- X% }& u. }        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
) R; E- W& @" \( M  t+ J& ]        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
: r0 q+ c% y4 w5 w1 y/ |4 G　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
　　With Selection.Frames(1)
0 }" ?3 L- |/ d% P' B# l: h       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
/ p3 t0 O6 U/ J# ]! a8 V' h       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
% Q3 P* y2 H3 [; C" m( s　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
( Q3 |  m+ n2 `6 f6 Z7 v6 R       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
6 a& D3 ~& d; _4 W　　End With
( l! \7 m# H9 f' h  F/ s. n- {$ V　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
+ X6 d! f; F/ q+ ~　　With Selection.Frames(1)
" t! A  u& _$ A6 C3 ^       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
# A# q0 A+ L, N6 @. K' {       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
1 y% Y7 w. A/ `       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
. e1 [% m5 i; ~3 y9 o% g  Y　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
　　With Selection.Frames(1)
" Z. S" L( h+ t% G7 w0 {1 h       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
/ Q+ n# Z4 [! m0 a9 H6 f5 I       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
& r% X. E5 ^4 y& C0 _7 M# W# \$ ^       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
    使用方法
- c: v" w. l) h% d# B- b    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
8 Q6 m) M6 e$ L' u$ t0 B    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
    3. 选中名片样板图文框。
2 Y+ q6 X/ h3 R# s9 p: i) S    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
* N0 @" O& ?" [# z3 F. q" q    6．如果需要，可"另存为"一个Word文档。
    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象