第十一章_Delphi在Word及Excel中的应用

(7)字体相关属性的测试与设置 (7)字体相关属性的测试与设置
字体的属性主要指的是字体、字型、字号、字间距、 字体的属性主要指的是字体、字型、字号、字间距、字体的颜色等属 性，这些属性的设置和测试有助于通过程序代码对Word文档的文本标注。下面 这些属性的设置和测试有助于通过程序代码对Word文档的文本标注 文档的文本标注。 分别讲解它们的设置及测试方法。 分别讲解它们的设置及测试方法。 1. 字 体 的 测 试 通过代码可以测试或设置文档中指定范围内文本的字体，但要 通过代码可以测试或设置文档中指定范围内文本的字体， 求被测试文本的字体必须一致。 求被测试文本的字体必须一致。 2. 字 号 的 测 试 字体的字号是通过Size属性来测试和设置的。 字体的字号是通过Size属性来测试和设置的。 Size属性来测试和设置的
(3)
建新Word文档 文档 建新
创建新文档与打开文档的操作方式相似，只不过这里使用的是 方法， 创建新文档与打开文档的操作方式相似，只不过这里使用的是Add方法，定义格式 方法
如下： 如下： function Add( var Template: OleVariant ; var NewTemplate : OleVariant; var DocumentType : OleVariant; var Visible: OleVariant): WordDocument 功能：按指定要求建立新文档。 功能：按指定要求建立新文档。
3.
字型的测试
字体的字型主要有粗体、斜体和下划线等属性，它通过Font的Bold、 字体的字型主要有粗体、斜体和下划线等属性，它通过Font的Bold、 Italic和 Italic和Outline 等几个属性来设置或测试。其中， 等几个属性来设置或测试。其中， （1）bold 粗体 （2）italic 斜体 （3）outline 下划线 上述三个属性是字体(Font)的基本属性 当属性值为- 时表示已经设置相应属性， 的基本属性， 上述三个属性是字体(Font)的基本属性，当属性值为-1时表示已经设置相应属性， 否则表示没有设置。 否则表示没有设置。 4. 字间距 字体的间距可通过Font的Spacing属性值来设置或测试 字体的间距可通过Font的Spacing属性值来设置或测试。 属性值来设置或测试。 5. 字 体 上 升 与 下 降 字体的上升与下降可以通过Font的Position属性来判定 字体的上升与下降可以通过Font的Position属性来判定，当Position>0时， 属性来判定， Position>0时 表示上升，否则表示下降， Position=0时则表示正常显示 时则表示正常显示。 表示上升，否则表示下降，当Position=0时则表示正常显示。
通过Delphi程序启动和退出 通过Delphi程序启动和退出Word应用软件分别有两种方法，操 程序启动和退出Word应用软件分别有两种方法 应用软件分别有两种方法， 作方法如下： 作方法如下： 启动Word 启动Word 通过属性启动Word 通过属性启动Word
WordApplication 组件有一个名为 AutoConnect的属性，它是专门 AutoConnect的属性 的属性， 用于启动Word的属性 将其值设置为True， 的属性， 用于启动Word的属性，将其值设置为True，则在启动窗体的同时启动 Word软件 Word软件。 软件。
(6) 另存文件
若要将指定的Word文档另存为一个新文档 可使用Item或ActiveDocument的 若要将指定的Word文档另存为一个新文档，可使用Item或ActiveDocument的 文档另存为一个新文档， SaveAs过程来另存指定文档或当前文档，SaveAs过程的定义格式如下 SaveAs过程来另存指定文档或当前文档，SaveAs过程的定义格式如下： 过程的定义格式如下： 过程来另存指定文档或当前文档 SaveAs(var FileName, FileFormat, LockComments, Password,AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks: OleVariant); 功能：将当前已打开的Word文档另存为指定文档 文档另存为指定文档。 功能：将当前已打开的Word文档另存为指定文档。
(5)
保存文档
通过上一节的学习，容易知道保存文档有三种方式，分别是保存所有已打开的文 通过上一节的学习，容易知道保存文档有三种方式， 保存当前文档和保存指定文档，下面是它们的具体使用格式。 档、保存当前文档和保存指定文档，下面是它们的具体使用格式。 1.保存所有已打开文档 1.保存所有已打开文档 使用格式： 使用格式： WordApp.Documents.Save(NoPrompt:OleVarant;OriginalFormat:OleVariant); 2.保存当前文档 2.保存当前文档 使用格式： 使用格式： WordApp.ActiveDocument.Save； WordApp.ActiveDocument.Save； 3.保存指定文档： 3.保存指定文档 保存指定文档： 使用格式：WordApp.Documents.item[I].Save； 使用格式：WordApp.Documents.item[I].Save；
第十一章 Delphi在Word及Excel中的应用 Delphi在Word及Excel中的应用
本章内容： 本章内容：
Office应用程序服务器组件 Office应用程序服务器组件 在Word软件上的应用 Word软件上的应用 在Excel软件上的应用 Excel软件上的应用
Delphi 对MS Office系列软件的支持 Office系列软件的支持
(2)
打开文件
文档的操作是以打开文档为前提的， 对Word文档的操作是以打开文档为前提的，使用程序代码打开 文档的操作是以打开文档为前提的 使用程序代码打开Word文档是通过 文档是通过
WordApplication组件的 组件的Open方法来完成的，它有 个参数，其使用格式为： 方法来完成的， 个参数， 组件的 方法来完成的 它有12个参数 其使用格式为： WordApp. Documents. Open(文件名，参数1，……，参数11，)； 文件名，参数 ， ，参数 ， ； 文件名 上述格式的功能是按照指定的参数打开Word文档。 文档。 上述格式的功能是按照指定的参数打开 文档
6. 字 体 颜 色 字体的颜色是通过ColorIndex属性来表示的， 字体的颜色是通过ColorIndex属性来表示的，该属性是 属性来表示的 类型名为wdColorIndex的枚举类型 它主要有wdAuto， 的枚举类型， 类型名为wdColorIndex的枚举类型，它主要有wdAuto， wdBlack，wdBlue等可选择的枚举值 wdBlack，wdBlue等可选择的枚举值。具体可rdXP.pas） Word97.pas（Word2000.pas或WordXP.pas）文件中类型 wdColorIndex的说明 wdColorIndex的说明。 的说明。 7. 其 它 属 性 字体的相关属性极多，下列是可能用到的部分属性： 字体的相关属性极多，下列是可能用到的部分属性： 1) hidden : integer 隐藏 2) smallcaps : integer 小型大写字母 3) allcaps : integer 大型大写字母 4) strikethrough : integer 删除线 5) doublestrikethrough : integer 双删除线 6) subscript : integer 下标 7) superscript : integer 上标 8) underline : WdUnderline 下划线
好的菜单设计应该具有功能强大、条理清晰、易于使用等特点： 好的菜单设计应该具有功能强大、条理清晰、易于使用等特点： MS Office软件实际上是应用程序服务器，它为程序 Office软件实际上是应用程序服务器 软件实际上是应用程序服务器， 员提供了非常丰富的二次开发接口，为更好的设计面向MS 员提供了非常丰富的二次开发接口，为更好的设计面向MS Office软件的应用程序 Delphi提供了专用于开发应用程序 Office软件的应用程序，Delphi提供了专用于开发应用程序 软件的应用程序， Office服务器组件 它们在Delphi的Servers组件面板上 服务器组件， 组件面板上， 的Office服务器组件，它们在Delphi的Servers组件面板上， 包括Access，Word，Excel，PowerPoint和Outlook等组 包括Access，Word，Excel，PowerPoint和Outlook等组 件。
退出Word 退出
退出Word与启动 与启动Word的方法很相似，它也有两种设置方式，具体设置方法如下： 的方法很相似， 退出 与启动 的方法很相似 它也有两种设置方式，具体设置方法如下：
通过 AutoQuit 属性
WordApplication组件有一个名为 AutoQuit 属性，当设置其值为 组件有一个名为 属性，当设置其值为True时，则关 时 闭应用程序时，通过应用程序启动的Word也将同时关闭；而当其值为 也将同时关闭； 闭应用程序时，通过应用程序启动的 也将同时关闭 而当其值为False时，关闭 时 应用程序对启动的Word则没有影响，此时需要通过代码来关闭它。 应用程序对启动的 则没有影响，此时需要通过代码来关闭它。 则没有影响 通过Quit方法 方法 通过 通过WordApplication组件的 组件的Quit方法可关闭 方法可关闭Word软件，使用格式如下： 软件， 通过 组件的 方法可关闭 软件 使用格式如下： 组件名.Quit(参数 ，参数2，参数3)； 组件名 参数1，参数 ，参数 ； 参数 功能：按照设置的参数关闭打开的Word软件。 软件。 功能：按照设置的参数关闭打开的 软件
(4) 选取操作文档
通过WordApplication组件选择要操作文档，有三种选择文档的方法， 通过WordApplication组件选择要操作文档，有三种选择文档的方法， 组件选择要操作文档 即选择所有已打开的文档、当前文档和已打开的指定文档， 即选择所有已打开的文档、当前文档和已打开的指定文档，下面是它们的 使用格式。 使用格式。 选择所有已打开的文档 格式：WordApp .Documents。 .Documents。 格式： 选择当前正在操作的文档： 选择当前正在操作的文档： 格式：WordApp. ActiveDocument。 ActiveDocument。 格式： 选择已打开的第i个文档： 选择已打开的第i个文档： 格式：WordApp. Documents .item (i)。 (i)。 格式：
通过代码启动Word 通过代码启动
组件AutoConnect的属性值设置为 的属性值设置为False时，可通过执行此 当WordApplication组件 组件 的属性值设置为 时 组件的Connect方法来完成 方法来完成Word的启动工作，格式如下： 的启动工作， 组件的 方法来完成 的启动工作 格式如下： 组件名.Connect; 组件名
如下既是Word和Excel组件在 和 组件在Delphi组件面板中的位置 组件面板中的位置. 如下既是 组件在 组件面板中的位置
Word Application
Excel Application
Server组件包中的Word和Excel组件
在Word软件上应用 Word软件上应用
要通过Delphi操作 要通过Delphi操作Word文档，首先将 操作Word文档 文档， WordApplication组件放在窗体上 WordApplication组件放在窗体上，并将此组件名改为 组件放在窗体上， WordApp ，下面将通过设置此组件的属性和方法来完 Word文档的相关操作 文档的相关操作。 成Word文档的相关操作。 (1)Word的启动与退出 (1)Word的启动与退出