国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 辦公 > Word > 正文

使用VBA開發(fā)Word文檔的編程基礎(chǔ)知識(shí)

2024-08-22 13:27:17
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

   ①什么是對(duì)象和集合

  對(duì)象代表一個(gè) Word 元素,如文檔、段落、書簽或單獨(dú)的字符。集合也是一個(gè)對(duì)象,該對(duì)象包含多個(gè)其他對(duì)象,通常這些對(duì)象屬于相同的類型;例如,一個(gè)集合對(duì)象中可包含文檔中的所有書簽對(duì)象。通過(guò)使用屬性和方法,可以修改單獨(dú)的的對(duì)象,也可修改整個(gè)的對(duì)象集合。

  ②什么是屬性

  屬性是對(duì)象的一種特性或該對(duì)象行為的一個(gè)方面。例如,文檔屬性包含其名稱、內(nèi)容、保存狀態(tài)以及是否啟用修訂。若要更改一個(gè)對(duì)象的特征,可以修改其屬性值。

  若要設(shè)置屬性的值,可在對(duì)象的后面緊接一個(gè)句號(hào)、屬性名稱、一個(gè)等號(hào)及新的屬性值。下列示例在名為“MyDocument.doc”的文檔中啟用修訂。

  Sub TrackChanges()

  Documents("Sales.doc").TrackRevisions = True

  End Sub

  在本示例中,Documents 引用由打開的文檔構(gòu)成的集合,而“MyDocument.doc”標(biāo)識(shí)集合中單獨(dú)的文檔。并設(shè)置該文檔的TrackRevisions屬性。

  不能設(shè)置某些屬性。屬性的“幫助”主題中會(huì)標(biāo)明可以設(shè)置該屬性(可讀寫),或只能讀取該屬性(只讀)。

  通過(guò)返回對(duì)象的一個(gè)屬性值,可以獲取有關(guān)該對(duì)象的信息。下列示例返回活動(dòng)文檔的名稱。

  Sub GetDocumentName()

  Dim strDocName As String

  strDocName = ActiveDocument.Name

  MsgBox strDocName

  End Sub

  在本示例中,ActiveDocument 引用 Word 活動(dòng)窗口中的文檔。該文檔的名稱賦給了strDocName 變量。

  說(shuō)明

  每個(gè)屬性的“幫助”主題表明可以設(shè)置該屬性(可讀寫),只能讀取該屬性(只讀),或只能寫入該屬性(只寫)。此外“Visual Basic 編輯器”中的“對(duì)象瀏覽器”在瀏覽窗口的底部顯示所選屬性的讀寫狀態(tài)。

  ③什么是方法

  方法是對(duì)象可以執(zhí)行的動(dòng)作。例如,只要文檔可以打印,Document對(duì)象就具有PrintOut方法。方法通常帶有參數(shù),以限定執(zhí)行動(dòng)作的方式。下列示例打印活動(dòng)文檔的前三頁(yè)。

  Sub PrintThreePages()

  ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="1-3"

  End Sub

  在大多數(shù)情況下,方法是動(dòng)作,而屬性是性質(zhì)。使用方法將導(dǎo)致發(fā)生對(duì)象的某些事件,而使用屬性則會(huì)返回對(duì)象的信息,或引起對(duì)象的某個(gè)性質(zhì)的改變。

  ④返回一個(gè)對(duì)象

  可通過(guò)返回集合中單獨(dú)的對(duì)象的方式來(lái)返回大多數(shù)對(duì)象。例如Documents集合包含打開的 Word 文檔。可使用(位于 Word對(duì)象結(jié)構(gòu)頂層的)Application對(duì)象的Documents屬性返回 Documents集合。

  在訪問(wèn)集合之后,可以通過(guò)在括號(hào)中使用索引序號(hào)(與處理數(shù)組的方式相似)返回單獨(dú)的對(duì)象。索引序號(hào)通常是一個(gè)數(shù)值或名稱。詳細(xì)內(nèi)容,請(qǐng)參閱返回集合中的對(duì)象。

  下列示例使用 Documents屬性訪問(wèn) Documents集合。索引序號(hào)用于返回 Documents集合中的第一篇文檔。然后將Close方法應(yīng)用于 Document對(duì)象,關(guān)閉 Documents集合中的第一篇文檔。

  Sub CloseDocument()

  Documents(1).Close

  End Sub

  下列示例使用名稱(指定為一個(gè)字符串)來(lái)識(shí)別 Documents集合中的 Document對(duì)象。

  Sub CloseSalesDoc()

  Documents("Sales.doc").Close

  End Sub

  集合對(duì)象通常具有可用于修改整個(gè)對(duì)象集合的方法和屬性。Documents對(duì)象具有Save方法,可用于保存集合中的所有文檔。下列示例通過(guò)使用 Save方法保存所有打開的文檔。

  Sub SaveAllOpenDocuments()

  Documents.Save

  End Sub

  Document對(duì)象也可使用 Save方法保存單獨(dú)的文檔。下列示例保存名為 Sales.doc 的文檔。

  Sub SaveSalesDoc()

  Documents("Sales.doc").Save

  End Sub

  若要返回一個(gè)處于 Word對(duì)象結(jié)構(gòu)底層的對(duì)象,就必須使用可返回對(duì)象的屬性和方法,“深入”到該對(duì)象。

  若要查看該過(guò)程的執(zhí)行,請(qǐng)打開“Visual Basic 編輯器”,在“視圖”菜單上單擊“對(duì)象瀏覽器”。單擊左側(cè)“類”列表中的 Application。然后單擊右側(cè)“成員”列表中的 ActiveDocument。“對(duì)象瀏覽器”底部會(huì)顯示文字,表明 ActiveDocument 是只讀的,該屬性返回 Document對(duì)象。然后單擊“對(duì)象瀏覽器”底部的 Document,則會(huì)在“類”列表中自動(dòng)選定 Document對(duì)象,并將在“成員”列表中顯示 Document對(duì)象的成員。滾動(dòng)成員列表,找到 Close,單擊 Close方法。“對(duì)象瀏覽器”窗口底部會(huì)顯示文字,說(shuō)明該方法的語(yǔ)法。有關(guān)該方法的詳細(xì)內(nèi)容,請(qǐng)按 F1 或單擊“幫助”按鈕,以跳轉(zhuǎn)到 Close方法的“幫助”主題。

  根據(jù)這些信息可編寫下列指令,以關(guān)閉活動(dòng)文檔。

  Sub CloseDocSaveChanges()

  ActiveDocument.Close SaveChanges:=wdSaveChanges

  End Sub

  下列示例將活動(dòng)文檔窗口最大化。

  Sub MaximizeDocumentWindow()

  ActiveDocument.ActiveWindow.WindowState = wdWindowStateMaximize

  End Sub

  ActiveWindow屬性返回一個(gè) Window對(duì)象,該對(duì)象代表活動(dòng)窗口。將 WindowState屬性設(shè)為最大常量(wdWindowStateMaximize)。

  下列示例新建一篇文檔,并顯示“另存為”對(duì)話框,這樣即可為文檔提供一個(gè)名稱。

  Sub CreateSaveNewDocument()

  Documents.Add.Save

  End Sub

  Documents屬性返回 Documents集合。Add方法新建一篇文檔,并返回一個(gè) Document對(duì)象。然后對(duì) Document對(duì)象應(yīng)用 Save方法。

  如上所示,可以使用方法或?qū)傩詠?lái)訪問(wèn)下層對(duì)象。也就是說(shuō),在對(duì)象結(jié)構(gòu)中,將方法或?qū)傩詰?yīng)用于某個(gè)對(duì)象的上一級(jí)對(duì)象,可返回該下級(jí)對(duì)象。返回所需對(duì)象之后,就可以應(yīng)用該對(duì)象的方法并控制其屬性。

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 榕江县| 阿克陶县| 汝南县| 屯门区| 商都县| 东平县| 遂昌县| 大埔区| 舒城县| 安平县| 射阳县| 东阳市| 微山县| 东兴市| 夹江县| 体育| 甘德县| 泾川县| 新蔡县| 老河口市| 湖南省| 榕江县| 青铜峡市| 肥城市| 长寿区| 岚皋县| 克山县| 名山县| 德钦县| 肃北| 同江市| 玛纳斯县| 旬阳县| 濮阳县| 武川县| 南丹县| 双鸭山市| 南昌市| 同德县| 龙口市| 澄迈县|