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

要命的恩恩

尽管Word2000提供的"向导"、"信封和标签";功能可以用来制作名片，但操作比较复杂，格式也不够灵活。我们用Word2000的宏创建一个名片制作模板，简单实用，甚至可以和专业的名片制作系统相媲美。用它进行实际名片设计、打印，效果非常理想。
( y  m: x1 e" p/ e  B5 n5 F2 R    页面及图文框设置
    首先，按标准的名片纸张规格定义纸张大小、页边距，并定义一个与名片尺寸相一致的图文框。
; _2 \* e" E, R* B  N' _! H    进入Word 2000，在"文件"菜单中选择"页面设置"命令。选定"纸型"卡，指定"宽度"和"高度"分别为19.5厘米和29.5厘米(标准名片纸张规格)。选定"页边距"卡，指定上、下、左、右边距均为0.7厘米。单击"确定"按钮，退出"页面设置"。
. {9 {' {! `# v. p/ x4 _/ z    从"插入"菜单中选择"文本框|横排"命令，在当前文档空白处拖动鼠标，任意画一个文本框。从"格式"菜单中选择"文本框"命令，在"文本框"卡中，单击"转换为图文框"按钮，确认后，再选"格式|图文框"菜单，设置固定宽度、高度值分别为8.6厘米和5.4厘米(标准名片规格)。单击"确定"按钮，退出"图文框"设置。
0 w1 T( k- z. k4 O$ J4 m8 P5 d    从"格式"菜单中选择"边框和底纹"命令，在"边框"卡中，设置"无"边框。单击"确定"按钮，将图文框的边框取消。
( E- W6 s( I% X* o! {) y    定义"复制排版"工具按钮
    接下来，我们定义一个"复制排版"工具按钮，用来将设计好的单个名片样板复制10份并均匀地排列在整张名片纸上。
    选中图文框，选择"工具|宏|宏录制"菜单。在"宏录制"对话框中：
    ①指定一个宏名--"复制排版"；
: W+ Y5 \' b2 ^) ]7 F    ②指定将宏保存在当前文档；
7 f: ?) ~6 z9 u5 v    ③单击"工具栏"按钮，弹出"自定义"对话框。
    在"自定义"对话框的"工具栏"卡中，单击"新建"按钮。指定工具栏名为"名片"，工具栏的有效范围为当前文档，然后"确定"。
    在"自定义"对话框的"命令"卡中，将宏"Project.NewMacros.复制排版"拖动到新建工具栏。单击"更改所选内容"按钮，修改工具栏按钮名为"复制排版"。
    "关闭"自定义对话框，"停止"宏录制。
% b& A4 u& I8 S: }# w    用"工具|宏|宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
2 d: d  W1 b8 a8 q
0 E! n' L. K( L& Q( \& [% J$ r3 h    将以下代码输入或复制进去：
; `2 ^& |9 R  @　　Selection.Cut "剪切选中的图文框
3 z. u6 A% |% g" `, S$ g+ A　　For k = 1 To 10 "粘贴10次
        Selection.Paste
　　Next
　　Selection.MoveLeft Unit:=wdItem "选中第1个图文框
　　With Selection.Frames(1)
. o9 J3 A* H1 H        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
* J  z3 l0 d9 _! O  o$ Q        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
5 X' x1 e  ?5 o+ L( z: N1 u　　End With
. `6 B4 w' ?; n  a" }　　Selection.MoveLeft Unit:=wdItem "选中第2个图文框
3 G: X  N& }0 q$ }　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相对于页边距、低端
' m; F0 j4 u( f6 v2 N& Y        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第3个图文框
  d  l+ T5 F  Q% c1 Y9 y6 e　　With Selection.Frames(1)
# j" Q5 B) {4 N( ?$ a* i        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
6 R% G& U7 s/ x- i: A4 P1 ?+ D        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
) Z; n# p) x- i- t+ w/ ]- {        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第4个图文框
　　With Selection.Frames(1)
6 z& Y! m1 `( A$ E5 {* _& {: d        .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米
. T  E" G7 B4 W0 E: Z. G1 I        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
; W; z2 R& H6 \% L7 f. F* Y　　End With
" o/ r3 ]: R/ T& w　　Selection.MoveLeft Unit:=wdItem "选中第5个图文框
9 p, j  V8 Z; V; I4 j. l* I6 z　　With Selection.Frames(1)
# ^2 z$ B, F4 `' I# R       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
  ?5 p& C3 l+ e' B6 Z7 A. L* a       .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
! y4 B* m3 m3 v2 p" `8 c% w; ?0 B　　End With
- y# B  o7 O+ h# J: \　　Selection.MoveLeft Unit:=wdItem "选中第6个图文框
　　With Selection.Frames(1)
        .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
- w7 J' y7 j! b2 e. e' e$ ?" n+ W; x        .VerticalPosition = wdFrameCenter "垂直相对于页边距、居中
! |6 [# ^* q. v. {        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
1 q4 J9 n8 z8 M9 M1 l　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第7个图文框
) S+ k( |8 p( k/ C　　With Selection.Frames(1)
. U! E. O0 Q2 i8 |# J       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
) C( S$ j- Y: K5 ]2 G+ E2 O2 o5 J       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
' `- U7 L$ G/ w  C& E- H) @       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　End With
　　Selection.MoveLeft Unit:=wdItem "选中第8个图文框
　　With Selection.Frames(1)
) E, z9 A1 `/ y! k: g       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
- e8 F, m; n7 c       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米
0 Q/ ?. |- i& X+ H       .RelativeVerticalPosition = wdRelativeVerticalPositionPage
" D* z( n) ^( [+ g  x0 R　　End With
3 y6 N5 H8 e  e5 @3 C　　Selection.MoveLeft Unit:=wdItem "选中第9个图文框
　　With Selection.Frames(1)
       .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧
4 c/ V  A& r2 L: b- r       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
1 F5 Y" v  M) b　　End With
, O  G- k, F# H2 F# h. y　　Selection.MoveLeft Unit:=wdItem "选中第10个图文框
; |; [+ B' j% [( L) g　　With Selection.Frames(1)
  d% W* P; _6 T6 X       .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
/ n3 J1 H7 |- J$ O       .VerticalPosition = wdFrameTop "垂直相对于页边距、顶端
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
, y( \9 M! [* V　　End With
    最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名片模板"。整个一个名片制作模板即告完成。
    使用方法
- `/ B$ n5 ~: W! c. M9 i" p* X0 z    用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可谓一劳永逸。
5 f) D: ]" d( x    1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
    2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入图片和进行艺术加工，设计出一张名片样板。
% k) S) h2 L* b  h* f. G    3. 选中名片样板图文框。
    4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板复制10份并均匀地排列在整张名片纸上。
    5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
' [! `$ x. E& u    6．如果需要，可"另存为"一个Word文档。
    以上操作简单、方便、高效，读者不妨试一试。

青云

试试

designjet

caife1217

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

allwen110

杨小花

看着眼晕

影子精品

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

兰竹轩主

学习了！谢谢！

时光印象