Wordvba宏應(yīng)用實(shí)例(一)

1、Word vba宏批處理應(yīng)用實(shí)例（一）Office辦公軟件使用過(guò)程中，應(yīng)用宏進(jìn)行批處理操作，能幫助工作者節(jié)省大 量時(shí)間，提高辦公效率與準(zhǔn)確性，而且是一件非常有意思的事情。廢話(huà)不說(shuō)了， 直接上實(shí)例一一Word vba之文檔表格內(nèi)容自動(dòng)拷貝。舉個(gè)栗子，有兩個(gè)word文檔：A和B。A中有200頁(yè)，每頁(yè)中有一個(gè)表格， 表格第一行需要錄入天氣數(shù)據(jù)，見(jiàn)圖1所示。B中有一個(gè)表格，有200行，每行 有1條天氣數(shù)據(jù)，見(jiàn)圖2所示。現(xiàn)在需要把文檔B中的天氣數(shù)據(jù)拷貝到文檔 A 中，你會(huì)怎么處理？ CTRL+然后CTRL+V想想一一心累。手好酸。 然而，如果你用 Word vba來(lái)處理，你就可以坐在旁邊喝咖啡了。U -

2、Ih A.iliH UHI虱 kiHtrf 不.AM5H* ：!».： ：M：-I Mi-.|rF|r -njii iii-i-ilii nrilllrHI"圖1 Word文檔A圖2文檔B操作過(guò)程很簡(jiǎn)單，代碼也就幾行：2）宏名隨便輸入個(gè)名稱(chēng)如“1）打開(kāi)文檔A,進(jìn)入視圖選項(xiàng)卡，點(diǎn)擊宏圖標(biāo)，打開(kāi)宏界面，如圖 aa”，點(diǎn)擊創(chuàng)建，進(jìn)入 Word vba工程界面，然后復(fù)制以下代碼，覆蓋原有內(nèi)容，如下圖。完成后保存，若無(wú)法保存，文檔A另 存為啟用宏的 Word文檔（*docm）。Microsoft Visual Kasic - A色a-4（L 輯（L 同l為由）與J、u 田式|空房式跖

3、之工鼻LD 外TE程序以 ，口出日筌曲Haa-H工型-次伯仃X國(guó)昌守f三.晝巾1Ml CT >=0 tt Vc-T 1 Xl® B-&便境叵感 TT*ji*flt (a) M-or *15 Li Vw J率Vhis&flP3s&rt 亡巧便快JTsviHzercE £二引用-* ” 父毒當(dāng)苧 歲至19 .利于1IA - Ner Macros代理三 回|送IClSffl)，l k二Sub tisjicj匚口口”, J,Din a vor vs, L-u 1. Ltt Ai Jiriiic IVJf 二©wrt/ - AM tlrg,d-

4、l .E&r對(duì)土 - Ac 土ivLk 加加七江也 MstDin 招福 As 口it!”Se-t di曰與=>ialoss(vi4D <IcsFileOjecLl If dit2. Shu* - T rktn.kwre, - ditSiNan/El4 If 皿jLt ""y 班* UJ Di t4xg<i , w> fken Evil：g味 匹IfFar b. = 1 I* ArtiiralftiziuiiaiiT1)霍we: Cfl-mt(VijlcLcts 1 JiOuj- de . h七ir at 七ttt kttivtDc«

5、ui«ntL FtlLie(1 Cull a - 1* 1) Rytit ->Clr13),ijLckrs ( Lar ml). Acti *1 ai e _幅*iv口TMLcQ： G«ll 1.= ittbTd.st扈任 NrMuhcrosHcirikBOK ?？?檸界后I住分類(lèi)*IEnd £ulSub tianqi_copy()Dim source, target, ttt As String source ="" target =""target = ActiveDocument.NameDim dias As

6、DialogSet dias = Dialogs(wdDialogFileOpen)If dias.Show = -1 Thensource = dias.NameEnd IfIf source = "" Or target = "" ThenExit SubEnd IfWindows(source).ActivateFor n = 1 To ActiveDocument.Tables(1).Rows.CountWindows(source).Activatettt = ActiveDocument.Tables(1).Cell(n - 1, 1).Rangettt = Replace(ttt, Chr(13),"")Windows(target).ActivateActiveDocument.Tables(n).Cell(1, 1).Range = ttt NextEnd Sub3)關(guān)閉word vba工程界面，再次點(diǎn)擊文檔 A宏選項(xiàng)，這回就有個(gè) tianq