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

要命的恩恩

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

    将以下代码输入或复制进去：
　　Selection.Cut "剪切选中的图文框
　　For k = 1 To 10 "粘贴10次
        Selection.Paste
　　Next
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
1 P' U0 S+ K$ E: F& @4 u/ G+ F; L　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
$ V4 q, m: @: O　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
　　With Selection.Frames(1)
6 x/ I' y) o3 n6 b9 t        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
% s$ ?4 D$ |' D. ~　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
　　With Selection.Frames(1)
/ F8 h8 `$ z7 A& E* N( q9 j; h% X        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
8 m. o' N% d& `) U4 D, I　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
9 n' m! n* ]1 G" h& t/ o        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
+ A' J( C" Z4 I8 Z$ Y' ~( \        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
3 m3 V+ j! K& |# |* U, _3 e　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
- Z) G) q: @: o$ w; _　　With Selection.Frames(1)
( D  m; u5 u$ C       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
0 Z4 w$ b$ W* S$ W       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
" I8 n' b  R5 e4 b/ J       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
　　End With
" L1 [' c6 u+ v& U" o# T　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
- w* j* i  b, ]2 D' p　　End With
( v* {5 C; z9 \8 i　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
% b3 `2 ^2 h6 B; o　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
3 l  f( J. r/ k3 P* ~　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
7 j, {. C7 `* _; W2 v8 X　　With Selection.Frames(1)
$ O/ P4 D# t( L$ D5 @$ q5 ]       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
$ F& G2 r  B6 u3 A- \" ?       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
$ U7 Y, |2 G4 r6 S       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
& X! s9 L) ]) k$ A2 D, R　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
9 V4 u* H1 |' U/ n2 f4 H       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
& o! {1 o" e; p6 U1 @       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
: s' S! j! f. {3 b0 b# l　　With Selection.Frames(1)
; e9 y9 L8 w' ]" o- Z       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
  J1 i3 p! E8 v1 r" |9 t5 X    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
' N: _  F( `  {+ O% q    使用方法
# i! g' p9 \. M& G6 z5 N* c    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
2 N. Z$ v8 d4 H& I    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
& D/ R2 d3 E4 _1 [/ a+ m    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
' }% q9 C6 X, J# X    6．如果需要，可"另存为"一个Word文档。
/ e6 X* A8 X! j" ~7 L* s- t9 ~) d    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象