盡管Word2000提供的"向?qū)?quot;、"信封和標(biāo)簽";功能可以用來(lái)制作名片，但操作比較復(fù)雜，格式也不夠靈活。我們用Word2000的宏創(chuàng)建一個(gè)名片制作模板，簡(jiǎn)單實(shí)用，甚至可以和專(zhuān)業(yè)的名片制作系統(tǒng)相媲美。用它進(jìn)行實(shí)際名片設(shè)計(jì)、打印，效果非常理想。

頁(yè)面及圖文框設(shè)置

首先，按標(biāo)準(zhǔn)的名片紙張規(guī)格定義紙張大小、頁(yè)邊距，并定義一個(gè)與名片尺寸相一致的圖文框。

進(jìn)入Word 2000，在"文件"菜單中選擇"頁(yè)面設(shè)置"命令。選定"紙型"卡，指定"寬度"和"高度"分別為19.5厘米和29.5厘米(標(biāo)準(zhǔn)名片紙張規(guī)格)。選定"頁(yè)邊距"卡，指定上、下、左、右邊距均為0.7厘米。單擊"確定"按鈕，退出"頁(yè)面設(shè)置"。

從"插入"菜單中選擇"文本框|橫排"命令，在當(dāng)前文檔空白處拖動(dòng)鼠標(biāo)，任意畫(huà)一個(gè)文本框。從"格式"菜單中選擇"文本框"命令，在"文本框"卡中，單擊"轉(zhuǎn)換為圖文框"按鈕，確認(rèn)后，再選"格式|圖文框"菜單，設(shè)置固定寬度、高度值分別為8.6厘米和5.4厘米(標(biāo)準(zhǔn)名片規(guī)格)。單擊"確定"按鈕，退出"圖文框"設(shè)置。

從"格式"菜單中選擇"邊框和底紋"命令，在"邊框"卡中，設(shè)置"無(wú)"邊框。單擊"確定"按鈕，將圖文框的邊框取消。

定義"復(fù)制排版"工具按鈕

接下來(lái)，我們定義一個(gè)"復(fù)制排版"工具按鈕，用來(lái)將設(shè)計(jì)好的單個(gè)名片樣板復(fù)制10份并均勻地排列在整張名片紙上。

選中圖文框，選擇"工具|宏|宏錄制"菜單。在"宏錄制"對(duì)話(huà)框中：

①指定一個(gè)宏名--"復(fù)制排版"；

②指定將宏保存在當(dāng)前文檔；

③單擊"工具欄"按鈕，彈出"自定義"對(duì)話(huà)框。

在"自定義"對(duì)話(huà)框的"工具欄"卡中，單擊"新建"按鈕。指定工具欄名為"名片"，工具欄的有效范圍為當(dāng)前文檔，然后"確定"。

在"自定義"對(duì)話(huà)框的"命令"卡中，將宏"Project.NewMacros.復(fù)制排版"拖動(dòng)到新建工具欄。單擊"更改所選內(nèi)容"按鈕，修改工具欄按鈕名為"復(fù)制排版"。

"關(guān)閉"自定義對(duì)話(huà)框，"停止"宏錄制。

用"工具|宏|宏"菜單，選擇前面定義宏"復(fù)制排版"，單擊"編輯"按鈕，進(jìn)入編輯狀態(tài)。#p#副標(biāo)題#e#

將以下代碼輸入或復(fù)制進(jìn)去：

Selection.Cut "剪切選中的圖文框

For k = 1 To 10 "粘貼10次

 Selection.Paste

Next

Selection.MoveLeft Unit:=wdItem "選中第1個(gè)圖文框

With Selection.Frames(1)

  .HorizontalPosition = wdFrameLeft "水平相對(duì)于頁(yè)邊距、左側(cè)
     .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
     .VerticalPosition = wdFrameBottom "垂直相對(duì)于頁(yè)邊距、低端
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin

End With

Selection.MoveLeft Unit:=wdItem "選中第2個(gè)圖文框

With Selection.Frames(1)

  .HorizontalPosition = wdFrameRight "水平相對(duì)于頁(yè)邊距、右側(cè)
     .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = wdFrameBottom "垂直相對(duì)于頁(yè)邊距、低端 
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin

End With

Selection.MoveLeft Unit:=wdItem "選中第3個(gè)圖文框

With Selection.Frames(1)

  .HorizontalPosition = wdFrameRight "水平相對(duì)于頁(yè)邊距、右側(cè)
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .VerticalPosition = CentimetersToPoints(17.7) "垂直相對(duì)于頁(yè)面、17.7厘米
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage

End With

Selection.MoveLeft Unit:=wdItem "選中第4個(gè)圖文框

With Selection.Frames(1)

  .HorizontalPosition = wdFrameLeft "水平相對(duì)于頁(yè)邊距、左側(cè)
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
     .VerticalPosition = CentimetersToPoints(17.7) "垂直相對(duì)于頁(yè)面、17.7厘米
     .RelativeVerticalPosition = wdRelativeVerticalPositionPage

End With

Selection.MoveLeft Unit:=wdItem "選中第5個(gè)圖文框

With Selection.Frames(1)

 .HorizontalPosition = wdFrameLeft "水平相對(duì)于頁(yè)邊距、左側(cè)
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameCenter "垂直相對(duì)于頁(yè)邊距、居中
       .RelativeVerticalPosition =wdRelativeVerticalPositionMargin

End With

Selection.MoveLeft Unit:=wdItem "選中第6個(gè)圖文框

With Selection.Frames(1)

  .HorizontalPosition = wdFrameRight "水平相對(duì)于頁(yè)邊距、右側(cè)
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
     .VerticalPosition = wdFrameCenter "垂直相對(duì)于頁(yè)邊距、居中
        .RelativeVerticalPosition =wdRelativeVerticalPositionMargin

End With

Selection.MoveLeft Unit:=wdItem "選中第7個(gè)圖文框

With Selection.Frames(1)

 .HorizontalPosition = wdFrameRight "水平相對(duì)于頁(yè)邊距、右側(cè)
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相對(duì)于頁(yè)面、6.4厘米
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage

End With

Selection.MoveLeft Unit:=wdItem "選中第8個(gè)圖文框

With Selection.Frames(1)

.HorizontalPosition = wdFrameLeft "水平相對(duì)于頁(yè)邊距、左側(cè)
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = CentimetersToPoints(6.4) "垂直相對(duì)于頁(yè)面、6.4厘米
       .RelativeVerticalPosition = wdRelativeVerticalPositionPage

End With

Selection.MoveLeft Unit:=wdItem "選中第9個(gè)圖文框

With Selection.Frames(1)

.HorizontalPosition = wdFrameRight "水平相對(duì)于頁(yè)邊距、右側(cè)
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .VerticalPosition = wdFrameTop "垂直相對(duì)于頁(yè)邊距、頂端
    .RelativeVerticalPosition = wdRelativeVerticalPositionMargin

End With

Selection.MoveLeft Unit:=wdItem "選中第10個(gè)圖文框

With Selection.Frames(1)

 .HorizontalPosition = wdFrameLeft "水平相對(duì)于頁(yè)邊距、左側(cè)
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
    .VerticalPosition = wdFrameTop "垂直相對(duì)于頁(yè)邊距、頂端
    .RelativeVerticalPosition = wdRelativeVerticalPositionMargin

End With

最后，關(guān)閉宏編輯器，用"另存為"菜單，將文檔保存為"文檔模板"，取名"名片模板"。整個(gè)一個(gè)名片制作模板即告完成。

  使用方法

用前面的方法建立一個(gè)名片模板后，可隨時(shí)方便地用它來(lái)設(shè)計(jì)、打印名片，可謂一勞永逸。

1. 直接用鼠標(biāo)雙擊"名片模板"或進(jìn)入WORD后，打開(kāi)"名片模板"。
    2. 在圖文框中輸入名片的具體內(nèi)容、設(shè)置字體字號(hào)、進(jìn)行排版，也可以插入圖片和進(jìn)行藝術(shù)加工，設(shè)計(jì)出一張名片樣板。
    3. 選中名片樣板圖文框。
    4. 單擊"名片"工具欄上的"復(fù)制排版" 按鈕，Word便自動(dòng)將設(shè)計(jì)好的名片樣板復(fù)制10份并均勻地排列在整張名片紙上。
    5. 用"文件"菜單中的"打印"命令將整聯(lián)名片打印輸出。
    6．如果需要，可"另存為"一個(gè)Word文檔。

以上操作簡(jiǎn)單、方便、高效，讀者不妨試一試。