盡管Word2000提供的"向導"、"信封和標簽";功能可以用來制作名片，但操作比較復雜，格式也不夠靈活。我們用Word2000的宏創建一個名片制作模板，簡單實用，甚至可以和專業的名片制作系統相媲美。用它進行實際名片設計、打印，效果非常理想。

    一、頁面及圖文框設置

　　首先，按標準的名片紙張規格定義紙張大小、頁邊距，并定義一個與名片尺寸相一致的圖文框。

　　進入Word 2000，在"文件"菜單中選擇"頁面設置"命令。選定"紙型"卡，指定"寬度"和"高度"分別為19.5厘米和29.5厘米（標準名片紙張規格）。選定"頁邊距"卡，指定上、下、左、右邊距均為0.7厘米。單擊"確定"按鈕，退出"頁面設置"。

　　從"插入"菜單中選擇"文本框 橫排"命令，在當前文檔空白處拖動鼠標，任意畫一個文本框。從"格式"菜單中選擇"文本框"命令，在"文本框"卡中，單擊"轉換為圖文框"按鈕，確認后，再選"格式 圖文框"菜單，設置固定寬度、高度值分別為8.6厘米和5.4厘米（標準名片規格）。單擊"確定"按鈕，退出"圖文框"設置。

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

    二、定義"復制排版"工具按鈕

　　接下來，我們定義一個"復制排版"工具按鈕，用來將設計好的單個名片樣板復制10份并均勻地排列在整張名片紙上。

　　選中圖文框，選擇"工具 宏 宏錄制"菜單。在"宏錄制"對話框中：

　　①指定一個宏名--"復制排版"；　　②指定將宏保存在當前文檔；　　③單擊"工具欄"按鈕，彈出"自定義"對話框。

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

　　在"自定義"對話框的"命令"卡中，將宏"Project.NewMacros.復制排版"拖動到新建工具欄。單擊"更改所選內容"按鈕，修改工具欄按鈕名為"復制排版"。

　　"關閉"自定義對話框，"停止"宏錄制。

　　用"工具 宏 宏"菜單，選擇前面定義宏"復制排版"，單擊"編輯"按鈕，進入編輯狀態。

將以下代碼輸入或復制進去：

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

　　For k = 1 To 10 '粘貼10次

　　　　Selection.Paste

　　Next

　　Selection.MoveLeft Unit:=wdItem '選中第1個圖文框

　　With Selection.Frames(1)

　　　　.HorizontalPosition = wdFrameLeft '水平相對于頁邊距、左側　　　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin　　　　.VerticalPosition = wdFrameBottom '垂直相對于頁邊距、低端　　　　.RelativeVerticalPosition = wdRelativeVerticalPositionMargin

　　End With

　　Selection.MoveLeft Unit:=wdItem '選中第2個圖文框

　　With Selection.Frames(1)

　　　　.HorizontalPosition = wdFrameRight '水平相對于頁邊距、右側　　　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin　　　　.VerticalPosition = wdFrameBottom '垂直相對于頁邊距、低端 　　　　.RelativeVerticalPosition = wdRelativeVerticalPositionMargin

　　End With

　　Selection.MoveLeft Unit:=wdItem '選中第3個圖文框

　　With Selection.Frames(1)

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

　　End With

　　Selection.MoveLeft Unit:=wdItem '選中第4個圖文框

　　With Selection.Frames(1)[next]

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

　　End With

　　Selection.MoveLeft Unit:=wdItem '選中第5個圖文框

　　With Selection.Frames(1)

　　　　.HorizontalPosition = wdFrameLeft '水平相對于頁邊距、左側　　　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin　　　　.VerticalPosition = wdFrameCenter '垂直相對于頁邊距、居中　　　　.RelativeVerticalPosition =wdRelativeVerticalPositionMargin

　　End With

　　Selection.MoveLeft Unit:=wdItem '選中第6個圖文