資源描述：
《vba對象引用的前期綁定與后期綁定》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、VBA在EXCEL中操作WORD表格之一第9頁共9頁VBA對象引用的前期綁定與后期綁定編輯：madmlwt前言系列問題涉及：1．操作環(huán)境是：Ofeice2003完整版，WinXP操作系統(tǒng)。2．探討主方向：在EXCEL中用VBA操作WORD表格，進行EXCEL數(shù)據(jù)與WORD數(shù)據(jù)的相互讀寫及相應(yīng)格式設(shè)置。3．引用WORD程序的方法：后期綁定。不需要在對象庫中去勾選MicrosoftWord11.0ObjectLibrary對象。4．資料收集整理：網(wǎng)絡(luò)查詢、Ofeice2003相關(guān)程序自身的VBA幫助、個人理解，本人是個編輯者。5．相關(guān)實例：網(wǎng)絡(luò)搜索引用、個人原創(chuàng)，在EXCEL中實際操作通過。
2、綜上，在后續(xù)的系列文章中的諸多說法、實例中，不再一一重復闡述說明。編輯此系列問題，可能已經(jīng)滯后，僅供有此需要的朋友參考借鑒！如有雷同，敬請見諒、免責！一、問題的提出試圖在EXCEL中用VBA操作WORD文檔，結(jié)果在WORD中能夠正常使用的一些方法或?qū)傩?，在EXCEL中不能使用或使用后沒有達到應(yīng)該有的效果。【例子】在EXCEL中用VBA操作。首先創(chuàng)建一個空白的新WORD文檔，再寫入2句話（作為2個段落），然后分別對這二個段落進行字體、字號和居中設(shè)置。【要求】在EXCEL中用VBA操作WORD文檔時，VBA代碼編輯過程中，不直接引用MicrosoftWord11.0ObjectLibrary
3、對象，采用后期綁定SetwordAppl=CreateObject("Word.Application")定義一個Word對象變量?！静僮鳌縑BA在EXCEL中操作WORD表格之一第9頁共9頁1．直接在WORD文檔中運行代碼⑴在已經(jīng)存在的操作假定上面要求的WORD文檔已經(jīng)創(chuàng)建，打開該文檔。在鍵盤上按組合鍵Alt+F11，打開WORD代碼編輯窗口。在左邊的“工程-Normal”下面窗格中雙擊“Project(當前打開的WORD文檔名稱)”下面的“引用Normal”圖標，右邊顯示當前WORD文檔的代碼編輯窗口，復制并粘貼下面的代碼。Sub設(shè)置()WithActiveDocument.Para
4、graphs(1).Range.Font.Size=18'字號.Font.Name="黑體"'字體.Font.Bold=wdToggle'字型加粗.ParagraphFormat.Alignment=wdAlignParagraphCenter'水平居中EndWithEndSub單擊代碼編輯窗口上方工具欄上的綠色三角形按鈕(或按鍵盤上的F5)，運行上述代碼，可以看到你打開的WORD文檔中的第一段文本，按要求進行了字體設(shè)置和水平居中?？梢姡a正常運行且達到預期目標?、苿?chuàng)建一個新的WORD文檔打開一個任意已經(jīng)存在的WORD文檔，在鍵盤上按組合鍵Alt+F11，打開WORD代碼編輯窗口。在左
5、邊的“工程-Normal”下面窗格中雙擊“Project(當前打開的WORD文檔名稱)”下面的“引用Normal”圖標，右邊顯示當前WORD文檔的代碼編輯窗口，復制并粘貼下面的代碼。Sub設(shè)置()Application.ScreenUpdating=False'關(guān)閉屏幕刷新Documents.Add'創(chuàng)建一個新的Word文檔Selection.TypeTextText:="創(chuàng)建WORD表格模型"'寫入第一段文字VBA在EXCEL中操作WORD表格之一第9頁共9頁…………WithActiveDocument.Paragraphs(1).Range'對第一個段落進行格式設(shè)置.Font.Siz
6、e=18'字號.Font.Name="黑體"'字體.Font.Bold=wdToggle'字型加粗.ParagraphFormat.Alignment=wdAlignParagraphCenter'水平居中(問題代碼)EndWithActiveDocument.SaveAsFileName:=ThisDocument.Path&"新建WORD文檔.doc"'保存新建Word文檔與當前WORD文件相同位置ActiveWindow.Close'關(guān)閉新建文檔Application.ScreenUpdating=False'關(guān)閉屏幕刷新EndSub2．在EXCEL中運行代碼打開一個EXCEL工
7、作簿，任指定一個名字保存打開的工作簿于任意位置(為便于操作最后就保存到桌面)。在鍵盤上按組合鍵Alt+F11，打開EXCEL代碼編輯窗口。在菜單命令中單擊“插入”打開列表命令后再單擊“模塊”，顯示當前EXCEL文檔的代碼編輯窗口，復制并粘貼下面的代碼。⑴創(chuàng)建一個新的WORD文檔Sub設(shè)置()Application.ScreenUpdating=False'關(guān)閉屏幕刷新SetwordAppl=CreateObject("Word.Ap
