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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
   页面及图文框设置
, t7 b9 Y- l) {( S7 ~) z' T    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
. Y1 M2 L+ x' T' L" N- r    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
0 @/ w. k7 f/ @1 O& T5 N4 I% E    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
# m# U: M7 f2 h& ]2 N    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
    定义"复制排版"工具按钮
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
4 X0 F; h: q, F& d) |9 {9 o    ①指定一个宏名--"复制排版"；
! P# H- [7 l/ r, h- ~+ k7 L    ②指定将宏保存在当前文档；
    ③单击"工具栏"按钮，弹出"自定义"对话框。
    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
    "关闭"自定义对话框，"停止"宏录制。
8 T* m# f; ]% V9 x& u6 L    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
" E* J( f% i: H1 N/ h4 }. {
    将以下代码输入或复制进去：
+ t& I9 M8 P; c0 U" f8 |　　Selection.Cut "剪切选中的图文框
　　For k = 1 To 10 "粘贴10次
* l: O2 F. O) \        Selection.Paste
　　Next
4 o) f+ k; T) i　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
! h$ v+ g4 l9 f3 @) r# l　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
4 S  a; z. k& `& ]! V+ U$ K2 @& y% d　　End With
5 i( F' R. V) Y' v- V　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
# ~/ {2 r/ i5 _9 [8 f- g        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
, b' N# Q5 H0 b: D8 A+ ~        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
/ h3 U2 Y' m: l: m/ b　　With Selection.Frames(1)
. `6 C* A( D+ r: h! ~6 w# X! z        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
) ~& f: z" r) C0 V        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
6 c5 F9 p7 n/ S% G0 S5 C        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
% v9 {7 G" C* i7 G- _　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
/ T/ }# C7 ~! K( j  _2 I3 `  V! D　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
: g: g1 Y" e$ \  c. B7 D: N       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
; Q0 [" L" Z5 O       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
4 [0 N' a- h0 _* k. G* \2 }       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
# W& A6 A! c5 F: b' p　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
　　With Selection.Frames(1)
8 N; M- q) A& O0 _4 g$ l  t        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
& K* M! W& X/ k, l( H  C        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
; ]0 z  [8 K0 |1 c        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
3 g2 S( G1 H$ T, Z% S　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
" Y5 a# m6 J9 G       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
9 _! ^7 f7 i  t1 k& [3 o3 y0 C       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
- O5 h% T1 q' O       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
% T# V- F5 e4 {- y4 R　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
6 g' ^8 ^6 ^9 l' K　　With Selection.Frames(1)
& m* ^( s( {( n' |( I6 |3 D9 u       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
" q" z6 f6 O& U7 [1 M0 f& A3 l4 ]       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
% ~3 j: u+ X+ `       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
* g9 k$ I2 T* `% n- E: f　　End With
, [  M2 l: l# e! f* R. r# B* ~6 B　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
( N( F5 S, y" P　　With Selection.Frames(1)
& h7 ^, p$ A6 S$ k$ R$ M) n% I7 D       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
! D  N5 _. r% U       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
    使用方法
5 @1 F2 |1 k$ H% `    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
, a+ u; h1 h+ @% c    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
/ f7 c. S# i; w( y1 r    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
    6．如果需要，可"另存为"一个Word文档。
' c6 ~! D# W$ f7 R) m$ ~$ {3 i    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象