office辦公軟件中利用VBA(VisualBasicforApplication)宏文庫(kù)

1、office辦公軟件中利用VBA(VisualBasicforApplication宏唐鐵鑫談到宏，很多人想到的是宏病毒，其實(shí)如果有正版殺毒軟件，打開(kāi)了實(shí)時(shí)防護(hù)，設(shè)置好宏安全性，可以利用宏來(lái)完成許多辦公自動(dòng)化功能。打開(kāi)word軟件，從文件主菜單中“工具”-“宏”-“安全性”，設(shè)置安全性為中，這樣就可以選擇執(zhí)行宏。安裝office的時(shí)候，應(yīng)該定制安裝，Basic幫助”，這樣就能獲得非常完善的關(guān)于VBA編程環(huán)境、在“office工具”VBA語(yǔ)言參考、里選上“VisualVBA對(duì)象等的幫助文檔。從“工具”-“宏”-“VisualBasic編輯器”可以打開(kāi)VBA編程環(huán)境Microsoftoffice辦

2、公軟件中利用VBA(VisualBasicforApplication宏VisualBasic”。在編程環(huán)境中打開(kāi)“幫助”“MicrosoftVisualBasicDOD，就可以看到幫助了。很多人覺(jué)得學(xué)習(xí)VisualBasic沒(méi)有用，事實(shí)上，VisualBasic系列的編程語(yǔ)言包括VB、VBA、VBScript等，可以寫(xiě)網(wǎng)頁(yè)、辦公自動(dòng)化編程、應(yīng)用編程。在一些其他公司的應(yīng)用軟件中也是可以用VBA的，例如CorelDraw。這里舉幾個(gè)例子來(lái)說(shuō)明VBA的使用。如果有數(shù)十個(gè)文檔需要合并為一個(gè)文檔，逐個(gè)打開(kāi)、拷貝是件麻煩事，可以用宏來(lái)完成。例一：合并文檔。新建一個(gè)窗體，窗體上放一個(gè)按鈕。工具箱可以從“視

3、圖”“工具箱”打開(kāi)。按鈕事件PrivateSubCommandButton1_Click()DimsPathAsStringsPath用來(lái)保存路徑DimtemAsString中間變量SetnewDoc=Documents.Add用Documents.Add增加一個(gè)新文檔WithnewDoc.SaveAsFileName:=D:/txtal.doc新文檔保存的完整路徑EndWithActiveDocument.close關(guān)閉新建的文檔WithDialogs(wdDialogFileFind)設(shè)置文本查找對(duì)話(huà)框.SortBy=2文件按名稱(chēng)排列.SearchName=*.txt只列出文本文件.Upd

4、ate更新EndWithIfDialogs(wdDialogFileFind).Show=-1Then如果按下打開(kāi)，就執(zhí)行sPath=Dialogs(wdDialogFileFind).SearchPath將查找對(duì)話(huà)框打開(kāi)的路徑附值給SPathDialogs(wdDialogFileFind).ExecuteElseExitSub如果取消或者關(guān)閉，就退出EndIfoffice辦公軟件中利用VBA(VisualBasicforApplication宏office辦公軟件中利用VBA(VisualBasicforApplication宏WithApplication.FileSearch.NewS

5、earch.LookIn=sPath.SearchSubFolders=True.FileType=msoFileTypeAllFiles體見(jiàn)FileSearch對(duì)象的.FileName=.ExecuteFileType屬性*.txt設(shè)置應(yīng)用程序的查找新查找將新查找的路徑設(shè)置為文件對(duì)話(huà)框的路徑（查找子目錄查找所有文件類(lèi)型，這里可以設(shè)置其他類(lèi)型，具查找后綴為txt的文件執(zhí)行文件查找sPath)Documents.Open(D:/txtal.doc)打開(kāi)D:/txtal.docSetRange2=ActiveDocument.Content設(shè)置Range2對(duì)象為活動(dòng)文檔的內(nèi)容Fori=1To.Fo

6、undFiles.CountD:/txtal.do文件中Documents.Open(.FoundFiles(i)ActiveDocument.Content.SelectSelection.CopyActiveDocument.Close把找到的文件打開(kāi)，拷貝文件內(nèi)容，加到新建的打開(kāi)第i000000全選活動(dòng)文件的內(nèi)容拷貝選中的內(nèi)容關(guān)閉活動(dòng)文檔Range2.CollapseDirection:二wdCollapseEnd設(shè)置粘貼位置為Range20最后Range2.Paste將拷貝的內(nèi)容粘貼到Range2NextiActiveDocument.Save保存活動(dòng)文檔ActiveDocument.

7、Close關(guān)閉活動(dòng)文檔EndWithEndSub如果有大量的word0檔需要修改某個(gè)術(shù)語(yǔ)或者什么固定的語(yǔ)句，逐一打開(kāi)是件麻煩事，利用宏可以很很快完成這項(xiàng)任務(wù)，而且不會(huì)錯(cuò)漏。對(duì)例一修改一下就可以完成這個(gè)任務(wù)。office辦公軟件中利用VBA(VisualBasicforApplication宏例二：全文查找替換。PrivateSubCommandButton1_Click()DimsPathAsStringWithDialogs(wdDialogFileFind)設(shè)置文本查找對(duì)話(huà)框.SortBy=2文件按名稱(chēng)排列.SearchName=*.doc只列出*.doc文件.Update更新如果按下打開(kāi)

8、，就執(zhí)行將查找對(duì)話(huà)框打開(kāi)的路徑附EndWithIfDialogs(wdDialogFileFind).Show=-1ThensPath=Dialogs(wdDialogFileFind).SearchPath值給SPathDialogs(wdDialogFileFind).ExecuteElseExitSub如果取消或者關(guān)閉，就退出EndIfWithApplication.FileSearch.NewSearch.LookIn=sPath.SearchSubFolders=Trueword文檔.FileType=msoFileTypeWordDocuments查找文件類(lèi)型為.ExecuteFo

9、ri=1To.FoundFiles.CountDocuments.Open(.FoundFiles(i)ActiveDocument.SelectWithDialogs(wdDialogEditReplace)OnErrorGoToErr.Find=TextBox1.Text.Replace=TextBox2.Text.ReplaceAll=True.ExecuteEndWithActiveDocument.SaveActiveDocument.CloseNextiEndWithoffice辦公軟件中利用VBA(VisualBasicforApplication宏IfTextBox1.Text

10、=Thenoffice辦公軟件中利用VBA(VisualBasicforApplication宏ActiveDocument.SaveActiveDocument.CloseEndIfMsgBox請(qǐng)輸入替換查找的字串EndSubExel中我沒(méi)找到將行變列、列變行的功能，于是寫(xiě)了個(gè)宏。例三：在Exel中將行變成列。在開(kāi)編程環(huán)境，通過(guò)“插入”Exel中從“工具”-“模塊”，建立宏。-“宏”-“VisualBasic編輯器”打Subchange()change宏Dimrow(0To20,0To20)AsString定義一個(gè)21*21的二維數(shù)組Range(Al).Select選定A1單元格Fori=0To20Forj=0To20row(i,j)=ActiveCell.Offset(i,j).Value把Al位移(i,j)個(gè)單元格的單元格的內(nèi)容依次附值給數(shù)組row(i,j)NextjNext