Word編程對象模型

1、Word編程對象模型 Application 對象。Application 對象代表微軟Word 應用程序， 它是所有其他Word 對象的最頂層對象。Application對象包含可返回最高級對象的屬性和方法， 通過使用這些屬性和方法可以控制整個Word 環(huán)境。在程序中必須要通過這個對象啟動Word， 才可以實現(xiàn)對Word 程序的控制; 進而可以打開Word 文檔， 實現(xiàn)對其他對象的控制。Document 對象。Document 對象代表一篇Word 文檔，這個對象是Word 程序設計的重點。Document 對象是Documents集合中的一個元素， Documents 集合包含Word 當

2、前打開的所有Document 對象。在應用程序中當打開一個已有的Word 文檔或者建立一個新的Word 文檔時， 就建立了一個新的Document 對象并將其加入Documents 集合。因此， 一般都可以通過Documents 集合對象來訪問具體的Document 對象。Selection 對象。Selection 對象代表窗口或窗格中的當前所選定的內容; 若文檔中沒有所選內容， 則代表插入點。每個文檔窗格只能有一個活動的Selection 對象， 并且整個應用程序中只能有一個活動的Selection 對象。Range 對象。Range 對象代表文檔中的一個連續(xù)范圍， 每一個Range 對象

3、由一個起始和一個終止字符位置定義。注意， Range 對象和Selection 對象是不同的： 可定義和復制一個范圍而不需改變所選內容; 還可在文檔中定義多個范圍，但每一個窗格中只能有一個所選內容。另外， Range 對象只在定義該對象的過程正在運行時才存在。Bookmark 對象。Bookmark 對象代表單個書簽， 它和Range 對象有點類似： 也是用于代表文檔中的一個連續(xù)范圍，也是由一個起始和一個終止字符位置定義。但是Bookmarks 對象和Range 對象主要的不同點在于： Bookmarks 對象可以同所在的文檔一起保存， 也就是說即使建立Bookmarks 對象的程序停止運行甚

4、至是Bookmarks 對象所在的對象關閉了， Bookmarks對象也不會自動消失。而指定的選定內容、區(qū)域或文檔中的所有書簽則組成了Bookmarks 對象; 一般也都可以通過Bookmarks 集合對象來訪問具體的Bookmark 對象。VB中訪問Word的方法 新建一個VB的標準EXE工程 工程-引用-勾中Microsoft word 12.0 Object Library（12.0是word 2007的版本，如果電腦上安裝的版本不同，這個版本號可能不一樣） 然后進行編程。 本例要新建一個word文件，在里面插入兩行文字，然后以mytest.docx文件名保存于D盤或（C盤）界面設計 在

5、窗體上添加一個命令按鈕，在屬性窗口中將其caption屬性值改為“建立”。代碼編寫（1） 雙擊命令按鈕，會彈出代碼窗口，代碼窗口中顯示如下兩行代碼，不要改動，將光標移到這兩條代碼之間，編寫代碼代碼編寫（2）運行 保存工程，系統(tǒng)會提示先后保存窗體和工程文件。 然后點擊“運行”-“啟動” 在窗體中點擊“建立”的命令按鈕。 到D盤下查看mytest.docx文件。以模版方式新建word文檔 啟動word，新建一個模板，另存為模板文件 重建和上個實驗相同的VB工程 代碼改為 Set doc=wrdapp.documents.add(“模板名稱”)Excel和Word混合編程 完成“授課通知書” 讀取E

6、xcel的數(shù)據(jù)，填寫到對應的Word文檔中，每條記錄對應的文檔保存為一個word文件。操作步驟 創(chuàng)建word文檔（已經(jīng)建好） 在需要填寫內容的地方創(chuàng)建書簽 點擊“插入”-“鏈接”-“書簽” 輸入書簽名稱（本例依次從a1編到a7），點擊“添加” 將修改后的文檔以book.dotx（模板類型）保存。操作步驟 啟動VB程序 新建工程 引用Excel和word類庫（方法同前） 在界面上添加命令按鈕，設置界面，并編寫代碼，完成任務要求段落 Paragraphs 段落 編號從1開始，最大的段編號是Paragraphs.count 使用序號為i的某一段（i在1到Paragraphs.count之間）： Pa

7、ragraphs(i)段落格式 使用Paragraphs(i).range來設置段落格式 如果設置的格式很多，可用 with 文檔名. Paragraphs(i).range 設置格式 end with 形式來設置段落字體 Paragraphs(i).range.font Paragraphs(i).=“字體名稱” Paragraphs(i).range.font.bold=true(加粗） Paragraphs(i).range.font.bold=false(取消加粗） Paragraphs(i).range.font.size=(磅值）(字號） Paragr

8、aphs(i).range.font.color=顏色的常量 Paragraphs(i).range.font.italic=true 設置斜體 Paragraphs(i).range.font.italic=false 取消斜體段落字體 Paragraphs(i).range.font.underline 下劃線段落格式 Paragraphs(i).range. ParagraphFormat.Alignment 段落對齊 常量 名稱描述 賦值 wdAlignParagraphCenter 居中 1 wdAlignParagraphDistribute 分散對齊 4 wdAlignParag

9、raphJustify 等同效果左對齊 3 wdAlignParagraphJustifyHi 等同效果左對齊 7 wdAlignParagraphJustifyLow 等同效果左對齊 8 wdAlignParagraphJustifyMed 等同效果左對齊 5 wdAlignParagraphLeft 左對齊(兩端對齊) 0 wdAlignParagraphRight 右對齊 2 wdAlignParagraphThaiJustify 等同效果左對齊 9段落格式 Paragraphs(i).range. ParagraphFormat.SpaceAfter 段后間距 值為磅值 Paragra

10、phs(i).range. ParagraphFormat.Spacebefore 段前間距 值為磅值首字下沉 Paragraphs(i). DropCap Paragraphs(i). DropCap.Position = wdDropNormal （下沉狀態(tài)，正常） Paragraphs(i).DropCap.Position = wdDropNone (取消下沉 Paragraphs(i).DropCap.LinesToDrop = 3 （下沉的行數(shù)）復制段落格式 利用selection對象 將要復制格式的段落選定 Paragraphs(i).Range.Select 此時selecti

11、on就代表這個選定的段落 Wrdapp.selection.copyformat (復制其格式） 選定其它要應用此格式的段落 Wrdapp.selection.pasteformat (應用其格式）插入文件 指定要插入文件的位置 用insertfile 文件名 的方法插入文件判斷一個文件是否存在使用scripting類庫判斷一個文件是否存在Dim fso As New FileSystemObject If fso.FileExists(要檢測的文件名（包括路徑) =true Then fso.DeleteFile 文件 （刪除此文件） End If新建VB工程練習上述內容 引入word類庫和

12、scripting類庫 添加一個命令按鈕，在命令按鈕的單擊事件中寫代碼段落 Paragraphs 段落 編號從1開始，最大的段編號是Paragraphs.count 使用序號為i的某一段（i在1到Paragraphs.count之間）： Paragraphs(i)段落格式 使用Paragraphs(i).range來設置段落格式 如果設置的格式很多，可用 with 文檔名. Paragraphs(i).range 設置格式 end with 形式來設置段落字體 Paragraphs(i).range.font Paragraphs(i).=“字體名稱” Parag

13、raphs(i).range.font.bold=true(加粗） Paragraphs(i).range.font.bold=false(取消加粗） Paragraphs(i).range.font.size=(磅值）(字號） Paragraphs(i).range.font.color=顏色的常量 Paragraphs(i).range.font.italic=true 設置斜體 Paragraphs(i).range.font.italic=false 取消斜體段落字體 Paragraphs(i).range.font.underline 下劃線段落格式 Paragraphs(i).ra

14、nge. ParagraphFormat.Alignment 段落對齊 常量 名稱描述 賦值 wdAlignParagraphCenter 居中 1 wdAlignParagraphDistribute 分散對齊 4 wdAlignParagraphJustify 等同效果左對齊 3 wdAlignParagraphJustifyHi 等同效果左對齊 7 wdAlignParagraphJustifyLow 等同效果左對齊 8 wdAlignParagraphJustifyMed 等同效果左對齊 5 wdAlignParagraphLeft 左對齊(兩端對齊) 0 wdAlignParagra

15、phRight 右對齊 2 wdAlignParagraphThaiJustify 等同效果左對齊 9段落格式 Paragraphs(i).range. ParagraphFormat.SpaceAfter 段后間距 值為磅值 Paragraphs(i).range. ParagraphFormat.Spacebefore 段前間距 值為磅值首字下沉 Paragraphs(i). DropCap Paragraphs(i). DropCap.Position = wdDropNormal （下沉狀態(tài)，正常） Paragraphs(i).DropCap.Position = wdDropNone (取消下沉 Paragraphs(i).DropCap.LinesToDrop = 3 （下沉的行數(shù)）復制段落格式 利用selection對象 將要復制格式的段落選定 Paragraphs(i).Range.Select 此時selection就代表這個選定的段落 Wrdapp.selection.copyformat (復制其格式） 選定其它要應用此格式的段落 Wrdapp.selection.pastefor