Word2000下創(chuàng)建名片制作模板
發(fā)表時(shí)間:2023-04-01 來(lái)源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]盡管Word2000提供的"向?qū)?quot;、"信封和標(biāo)簽";功能可以用來(lái)制作名片,但操作比較復(fù)雜,格式也不夠靈活。我們用Word2000的宏創(chuàng)建一個(gè)名片制作模板,簡(jiǎn)單...
盡管Word2000提供的"向?qū)?、"信封和標(biāo)簽";功能可以用來(lái)制作名片,但操作比較復(fù)雜,格式也不夠靈活。我們用Word2000的宏創(chuàng)建一個(gè)名片制作模板,簡(jiǎn)單實(shí)用,甚至可以和專業(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ì)話框中:
、僦付ㄒ粋(gè)宏名--"復(fù)制排版"; 、谥付▽⒑瓯4嬖诋(dāng)前文檔; 、蹎螕"工具欄"按鈕,彈出"自定義"對(duì)話框。
在"自定義"對(duì)話框的"工具欄"卡中,單擊"新建"按鈕。指定工具欄名為"名片",工具欄的有效范圍為當(dāng)前文檔,然后"確定"。
在"自定義"對(duì)話框的"命令"卡中,將宏"Project.NewMacros.復(fù)制排版"拖動(dòng)到新建工具欄。單擊"更改所選內(nèi)容"按鈕,修改工具欄按鈕名為"復(fù)制排版"。
"關(guān)閉"自定義對(duì)話框,"停止"宏錄制。
用"工具 宏 宏"菜單,選擇前面定義宏"復(fù)制排版",單擊"編輯"按鈕,進(jìn)入編輯狀態(tài)。
將以下代碼輸入或復(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)[next]
.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è)圖文
Office辦公軟件是辦公的第一選擇,這個(gè)地球人都知道。除了微軟Office,市面上也存在很多其他Office類(lèi)軟件。