第十一章 Delphi在Word及Excel中的應(yīng)用.ppt

第十一章Delphi在Word及Excel中的應(yīng)用 本章內(nèi)容 Office應(yīng)用程序服務(wù)器組件在Word軟件上的應(yīng)用在Excel軟件上的應(yīng)用 Delphi對(duì)MSOffice系列軟件的支持 好的菜單設(shè)計(jì)應(yīng)該具有功能強(qiáng)大 條理清晰 易于使用等特點(diǎn) MSOffice軟件實(shí)際上是應(yīng)用程序服務(wù)器 它為程序員提供了非常豐富的二次開發(fā)接口 為更好的設(shè)計(jì)面向MSOffice軟件的應(yīng)用程序 Delphi提供了專用于開發(fā)應(yīng)用程序的Office服務(wù)器組件 它們在Delphi的Servers組件面板上 包括Access Word Excel PowerPoint和Outlook等組件 如下既是Word和Excel組件在Delphi組件面板中的位置 Server組件包中的Word和Excel組件 WordApplication ExcelApplication 在Word軟件上應(yīng)用 要通過Delphi操作Word文檔 首先將WordApplication組件放在窗體上 并將此組件名改為WordApp 下面將通過設(shè)置此組件的屬性和方法來完成Word文檔的相關(guān)操作 1 Word的啟動(dòng)與退出通過Delphi程序啟動(dòng)和退出Word應(yīng)用軟件分別有兩種方法 操作方法如下 啟動(dòng)Word通過屬性啟動(dòng)WordWordApplication組件有一個(gè)名為AutoConnect的屬性 它是專門用于啟動(dòng)Word的屬性 將其值設(shè)置為True 則在啟動(dòng)窗體的同時(shí)啟動(dòng)Word軟件 通過代碼啟動(dòng)Word當(dāng)WordApplication組件AutoConnect的屬性值設(shè)置為False時(shí) 可通過執(zhí)行此組件的Connect方法來完成Word的啟動(dòng)工作 格式如下 組件名 Connect 退出Word退出Word與啟動(dòng)Word的方法很相似 它也有兩種設(shè)置方式 具體設(shè)置方法如下 通過AutoQuit屬性WordApplication組件有一個(gè)名為AutoQuit屬性 當(dāng)設(shè)置其值為True時(shí) 則關(guān)閉應(yīng)用程序時(shí) 通過應(yīng)用程序啟動(dòng)的Word也將同時(shí)關(guān)閉 而當(dāng)其值為False時(shí) 關(guān)閉應(yīng)用程序?qū)?dòng)的Word則沒有影響 此時(shí)需要通過代碼來關(guān)閉它 通過Quit方法通過WordApplication組件的Quit方法可關(guān)閉Word軟件 使用格式如下 組件名 Quit 參數(shù)1 參數(shù)2 參數(shù)3 功能 按照設(shè)置的參數(shù)關(guān)閉打開的Word軟件 2 打開文件 對(duì)Word文檔的操作是以打開文檔為前提的 使用程序代碼打開Word文檔是通過WordApplication組件的Open方法來完成的 它有12個(gè)參數(shù) 其使用格式為 WordApp Documents Open 文件名 參數(shù)1 參數(shù)11 上述格式的功能是按照指定的參數(shù)打開Word文檔 3 建新Word文檔 創(chuàng)建新文檔與打開文檔的操作方式相似 只不過這里使用的是Add方法 定義格式如下 functionAdd varTemplate OleVariant varNewTemplate OleVariant varDocumentType OleVariant varVisible OleVariant WordDocument功能 按指定要求建立新文檔 4 選取操作文檔 通過WordApplication組件選擇要操作文檔 有三種選擇文檔的方法 即選擇所有已打開的文檔 當(dāng)前文檔和已打開的指定文檔 下面是它們的使用格式 選擇所有已打開的文檔格式 WordApp Documents 選擇當(dāng)前正在操作的文檔 格式 WordApp ActiveDocument 選擇已打開的第i個(gè)文檔 格式 WordApp Documents item i 5 保存文檔通過上一節(jié)的學(xué)習(xí) 容易知道保存文檔有三種方式 分別是保存所有已打開的文檔 保存當(dāng)前文檔和保存指定文檔 下面是它們的具體使用格式 1 保存所有已打開文檔使用格式 WordApp Documents Save NoPrompt OleVarant OriginalFormat OleVariant 2 保存當(dāng)前文檔使用格式 WordApp ActiveDocument Save 3 保存指定文檔 使用格式 WordApp Documents item I Save 6 另存文件若要將指定的Word文檔另存為一個(gè)新文檔 可使用Item或ActiveDocument的SaveAs過程來另存指定文檔或當(dāng)前文檔 SaveAs過程的定義格式如下 SaveAs varFileName FileFormat LockComments Password AddToRecentFiles WritePassword ReadOnlyRecommended EmbedTrueTypeFonts SaveNativePictureFormat SaveFormsData SaveAsAOCELetter Encoding InsertLineBreaks AllowSubstitutions LineEnding AddBiDiMarks OleVariant 功能 將當(dāng)前已打開的Word文檔另存為指定文檔 7 字體相關(guān)屬性的測試與設(shè)置字體的屬性主要指的是字體 字型 字號(hào) 字間距 字體的顏色等屬性 這些屬性的設(shè)置和測試有助于通過程序代碼對(duì)Word文檔的文本標(biāo)注 下面分別講解它們的設(shè)置及測試方法 1 字體的測試通過代碼可以測試或設(shè)置文檔中指定范圍內(nèi)文本的字體 但要求被測試文本的字體必須一致 2 字號(hào)的測試字體的字號(hào)是通過Size屬性來測試和設(shè)置的 字型的測試字體的字型主要有粗體 斜體和下劃線等屬性 它通過Font的Bold Italic和Outline等幾個(gè)屬性來設(shè)置或測試 其中 1 bold粗體 2 italic斜體 3 outline下劃線上述三個(gè)屬性是字體 Font 的基本屬性 當(dāng)屬性值為 1時(shí)表示已經(jīng)設(shè)置相應(yīng)屬性 否則表示沒有設(shè)置 字間距字體的間距可通過Font的Spacing屬性值來設(shè)置或測試 字體上升與下降字體的上升與下降可以通過Font的Position屬性來判定 當(dāng)Position 0時(shí) 表示上升 否則表示下降 當(dāng)Position 0時(shí)則表示正常顯示 6 字體顏色字體的顏色是通過ColorIndex屬性來表示的 該屬性是類型名為wdColorIndex的枚舉類型 它主要有wdAuto wdBlack wdBlue等可選擇的枚舉值 具體可參見Word97 pas Word2000 pas或WordXP pas 文件中類型wdColorIndex的說明 7 其它屬性字體的相關(guān)屬性極多 下列是可能用到的部分屬性 1 hidden integer隱藏2 smallcaps integer小型大寫字母3 allcaps integer大型大寫字母4 strikethrough integer刪除線5 doublestrikethrough integer雙刪除線6 subscript integer下標(biāo)7 superscript integer上標(biāo)8 underline WdUnderline下劃線 8 查找或替換字符串 Delphi下對(duì)Word文檔的查找或替換是在指定范圍的文檔中進(jìn)行的 查找或替換通過Execute函數(shù)來完成 其使用格式為 Arange find Execute varFindText MatchCase MatchWholeWord MatchWildcards MatchSoundsLike MatchAllWordForms Forward Wrap Format ReplaceWith Replace MatchKashida MatchDiacritics MatchAlefHamza MatchControl OleVariant WordBool 文檔中關(guān)于段的操作對(duì)Word文檔段的操作是Word文檔操作的一部分 主要包括段中文本的選取 段的對(duì)齊方式 段行間距等操作 在對(duì)段操作之前 需要先選擇要操作的段 1 選擇要操作的段為方便編程 通常情況下 選擇的段需要保存到段變量中 定義段變量的格式為 Var段變量名 Paragraph 為方便講解 下面約定Apara為段變量 定義格式為 Apara Paragraph 有了段變量 就可選擇我們要操作的段 并將其保存到定義的Apara變量中 1 當(dāng)前文檔中的段選擇Apara WordApp ActiveDocument Paragraphs item i 功能 Apara表示當(dāng)前文檔的第i段 2 指定文檔中的段選擇Apara WordApp Documents Item i Paragraphs item j 功能 Apara表示第i個(gè)文檔的第j段 注意 這里Apara僅表示段 若要對(duì)段內(nèi)的文本進(jìn)行操作 則必須通過其范圍屬性range選擇要操作的文本 段范圍可通過Apara range來獲取 2 選擇段文本段文本的選擇就是從指定的段中選擇文本內(nèi)容 使用格式 段變量 Range text 功能 選取指定范圍內(nèi)的文本內(nèi)容 3 段的對(duì)齊設(shè)置段對(duì)齊設(shè)置就是設(shè)置段內(nèi)容的水平對(duì)齊方式 段的水平對(duì)齊方式主要有水平居中 左對(duì)齊 右對(duì)齊和兩端對(duì)齊四種方式 設(shè)置格式如下 格式 Apara Alignment 對(duì)齊參數(shù) 4 段行距的設(shè)定及測試段行距的設(shè)定及測試是通過段變量的LineSpacing屬性來完成 LineSpacing屬性有以下幾個(gè)固定值 單位為磅 5 段縮進(jìn)的設(shè)置及測試按作用范圍的不同 段縮進(jìn)可分為行首縮進(jìn)和整體縮進(jìn)兩種 下面分別講述這兩種縮進(jìn)的設(shè)置及測試方法 段首行縮進(jìn)在段變量中 表示首行縮進(jìn)的是數(shù)值型屬性為FirstLineIndent 單位為磅 縮進(jìn)值與縮進(jìn)字符和字體大小之間的關(guān)系為 縮進(jìn)值 縮進(jìn)字符個(gè)數(shù) 段首字體大小 2 段的整體縮進(jìn)段的整體縮進(jìn)又可以分為左縮進(jìn) 右縮進(jìn)和懸掛縮進(jìn)三種 具體的測試或設(shè)置如下 段左縮進(jìn)的測試及設(shè)置段的左縮進(jìn)是通過設(shè)置APara的LeftIndent屬性來完成的 注意 當(dāng)段整體左縮進(jìn)時(shí) LeftIndent的值和縮進(jìn)字符的關(guān)系與行首縮進(jìn)和縮進(jìn)字符的關(guān)系相同 所以以字符個(gè)數(shù)為標(biāo)準(zhǔn)測試左縮進(jìn)的方法為 if Apara LeftIndent arange Font size 2 thenshowmessage 左縮進(jìn)2個(gè)字符 段右縮進(jìn)的測試與設(shè)置 段右縮進(jìn)的測試與設(shè)置方法與 相同 只是屬性名不同而已 右縮進(jìn)使用的屬性名為RightIndent 懸掛縮進(jìn)的判別在Delphi中無此專用屬性 但可以通過首行縮進(jìn)和左縮進(jìn)來設(shè)置或測試 實(shí)際上懸掛縮進(jìn)值是首行縮進(jìn)與左縮進(jìn)的差 其判別方法如下實(shí)例 懸掛縮進(jìn)圖示 6 段邊框的設(shè)置使用段變量的OutsideLinestyle屬性可測試或設(shè)置段的邊框 若此屬性的值為wdLinestyleNone則表示沒有邊框 否則有邊框 本節(jié)內(nèi)容僅講述了Delphi在Word中的部分應(yīng)用 其實(shí) Word的所有功能幾乎都可通過程序代碼來實(shí)現(xiàn) 包括表格 圖表等方面的操作 有興趣的讀者請(qǐng)根據(jù)Word提供的編程幫助來編寫相應(yīng)的應(yīng)用程序 在Excel上的應(yīng)用 Excel是以表格處理為主的應(yīng)用軟件 因此 本節(jié)對(duì)Excel的編程操作也以表格處理為主 Delphi在Excel上的應(yīng)用方法與Word相似 仍是采用先選擇操作范圍再進(jìn)行操作的方式 編程中主要使用ExcelApplication組件的兩個(gè)子對(duì)象 分別是workbooks 工作薄 和worksheets 工作表 下面將具體說明它們的用法 要通過Delphi操作Word文檔 首先將WordApplication組件放在窗體上 并將此組件名改為WordApp 下面將通過設(shè)置此組件的屬性和方法來完成Word文檔的相關(guān)操作 Excel軟件的啟動(dòng)與退出啟動(dòng)Excel與啟動(dòng)Word相似 啟動(dòng)Excel也有兩種方法 具體操作如下 通過屬性啟動(dòng)WordExcelApplication組件有一個(gè)名為AutoConnect的屬性 它是專門用于啟動(dòng)Excel的屬性 將其值設(shè)置為True 則應(yīng)用程序啟動(dòng)窗體時(shí) 同時(shí)啟動(dòng)Excel軟件 通過代碼啟動(dòng)Excel當(dāng)ExcelApplication組件的AutoConnect屬性值設(shè)置為False時(shí) 通過執(zhí)行此組件的Connect方法可完成Excel的啟動(dòng)工作 格式如下 組件名 Connect 退出Excel退出Excel與啟動(dòng)Excel的方法很相似 具體設(shè)置方法如下 通過AutoQuit屬性ExcelApplication組件有一個(gè)名為AutoQuit屬性 當(dāng)設(shè)置其值為True時(shí) 則當(dāng)關(guān)閉應(yīng)用程序時(shí) 通過應(yīng)用程序啟動(dòng)的Excel也將同時(shí)關(guān)閉 而當(dāng)其值為False時(shí) 關(guān)閉應(yīng)用程序?qū)?dòng)的Excel沒有影響 此時(shí)需要通過代碼來關(guān)閉它 通過Quit方法通過代碼關(guān)閉Excel使用格式為 組件名 Quit 此格式的功能是關(guān)閉已打開的Excel軟件 例如 使用代碼將由ExcelApp組件啟動(dòng)的Excel軟件關(guān)閉 代碼為 ExcelApp Quit 新建工作簿建立工作薄可通過ExcelApplication組件的Workbooks子對(duì)象的方法來完成 使用格式如下 ExcelApp Workbooks Add Template OleVariant lcid Integer ExcelWorkbook 上格式的功能是按指定的模板建立新工作薄 其中 Template是一個(gè)OleVariant類型的參數(shù) 用于確定如何創(chuàng)建工作簿 如果此參數(shù)為MicrosoftExcel文件名的字符串 文件名可包含路徑 那么創(chuàng)建新工作簿將以該指定的文件作為模板 如果此參數(shù)為常量 新工作簿將包含指定類型的單張工作表 可用的常量為XlWBATemplate類型 有xlWBATChart xlWBATExcel4IntlMacroSheet xlWBATExcel4MacroSheet或xlWBATWorksheet四個(gè)可供選擇的值 若使用EmptyParam 表示省略本參數(shù) MicrosoftExcel將創(chuàng)建包含有一定數(shù)目的空白工作表的工作簿 該數(shù)目由ExcelApplication組件的SheetsInNewWorkbook屬性設(shè)置 參數(shù)lcid通常為0 表示軟件系統(tǒng)使用默認(rèn)語言 打開工作薄應(yīng)用程序經(jīng)常使用的操作通常是在打開的舊文件中進(jìn)行的 例如 通過軟件批閱考生的Excel文件是否達(dá)到考試要求等 這就需要打開已有的文件 打開已有Excel文件的格式為 ExcelApp Workbooks Open constFilename WideString UpdateLinks OleVariant ReadOnly OleVariant Format OleVariant Password OleVariant WriteResPassword OleVariant IgnoreReadOnlyRecommended OleVariant Origin OleVariant Delimiter leVariant Editable OleVariant Notify OleVariant Converter OleVariant AddToMru OleVariant Local OleVariant CorruptLoad OleVariant lcid Integer ExcelWorkbook 功能 按照參數(shù)設(shè)置打開Excel文件 格式中有較多參數(shù) 其中部分參數(shù)的含義下 FileName是一個(gè)WideString類型參數(shù) 用于指定要打開的Excel文件名 UpdateLinks是一個(gè)Variant類型的 用于指定文件中鏈接的更新方式 如果省略本參數(shù) 則提示用戶選擇鏈接的更新方式 ReadOnly是一個(gè)Variant類型的可選參數(shù) 如果該值為True 則以只讀模式打開工作簿 Format是一個(gè)Variant類型的可選參數(shù) 如果MicrosoftExcel正在打開一個(gè)文本文件 則該參數(shù)用于指定分隔字符 如下表所示 如果省略本參數(shù) 則使用當(dāng)前的分隔符 工作薄及工作表的選擇對(duì)Excel文檔的操作實(shí)際上是對(duì)Excel工作薄中工作表的操作 因此 正確選擇要操作的工作表是十分關(guān)鍵的 下面講解工作薄和工作表的選擇方法 1 工作薄選擇格式 ExcelApp workbooks I 或ExcelApp workbooks item I 功能 選擇第I個(gè)工作薄 2 工作表選擇格式 ExcelApp workbooks I Worksheets J 或ExcelApp workbooks I Worksheets item J 功能 選擇第I個(gè)工作薄中的第J個(gè)工作表 選擇操作范圍與Word操作一樣 操作前首先要選擇操作的范圍 為方便編程 操作范圍通常保存在范圍變量中 定義Excel變量的方法與定義Word變量的方法略有不同 Excel中使用的范圍變量定義格式為 Var變量名 Excelrange 本小節(jié)約定Arange表示Excel范圍變量 定義格式為VarArange ExcelRange 使用Arange變量可保存指定單元格區(qū)域 使用格式為 Arange 工作表 Range 開始單元格 結(jié)束單元格 邊框設(shè)置和測試邊框設(shè)置包括線型和粗細(xì)的設(shè)置 邊框的線型及粗細(xì)可分別使用LineStyle和Weight兩個(gè)屬性來設(shè)置 使用格式如下 邊框的線型設(shè)置Arange Borders Item index LineStyle 設(shè)置值 邊框的粗細(xì)設(shè)置Arange Borders Item index Weight 設(shè)置值 字體設(shè)置及測試 8 單元格對(duì)齊方式的設(shè)置與檢測單元格對(duì)齊方式有兩種 一種是水平對(duì)齊 另一種是垂直對(duì)齊 這兩種對(duì)齊方式可通過范圍變量的HorizontalAlignment和Verticalalignment兩個(gè)屬性來設(shè)置 下面是它們的具體用法 水平對(duì)齊方式Excel中單元格中文本的對(duì)齊方式的設(shè)置格式為 Arange HorizontalAlignment 設(shè)置值 垂直對(duì)齊方式設(shè)置格式為 Arange Verticalalignment 設(shè)置值 其中的設(shè)置值有如下選擇 1 xlVAlignBottom下對(duì)齊2 xlVAlignTop上對(duì)齊3 xlVAlignCeter垂直居中4 xlVAlignJustify正常對(duì)齊xlVAlignDistributed等距分布 9 行高和列寬的設(shè)置與測試Excel中單元格的行高和列寬可使用范圍變量的RowHeight和ColumnWidth屬性來設(shè)置 它們具體設(shè)置方法如下 1 行高使用格式 Arange RowHeight 高度例 Arange RowHeight 20 將行高設(shè)置為202 列寬使用格式 Arange ColumnWidth 寬度例 Arange columnwidth 5 將列寬設(shè)置為5數(shù)字格式的選擇與設(shè)置使用范圍Arange的NumberFormat屬性可設(shè)置單元格的顯示格式 由于單元格有較多的顯示方式 下面說明幾種常用的設(shè)置方法 數(shù)據(jù)顯示格式的設(shè)置 1 保留小數(shù)位格式 Arange NumberFormat 0 000 0 例如 將Arange的數(shù)值保留三位小數(shù) 代碼如下 Arange Numberformat 0 000 表示保留三位小數(shù) 2 使用百分號(hào) 格式 Arange NumberFormat 0 000 0 例如 0 表示整型 如1表示為100 0 00 表示有二位小數(shù)百分?jǐn)?shù)如1表示為100 00 0 000 表示有三位小數(shù)百分?jǐn)?shù)如1表示為100 000 3 使用貨幣和分節(jié)符格