《中文Word2000 高级教程》
? ? ? ?
BorderColor 属性：设置对象的边框颜色。
BorderStyle 属性：返回或设置文字框的边框的方式。 ForeColor 属性：设置前景颜色。
PasswordChar 属性：如果当前在后面输入一个符号，如星号“*”，那么该文字框就类似一个输入密码的文字框，每输入一个字符，都以星号来显示。 ? SpecialEffect 属性：指定对象的外观。 fmSpecialEffect 的设置值如表12-4 所示。 表12-4 fmSpecialEffect 的设置值 常数 值 描述 fmSpecialEffectFlat 0 对象显示为平面的，借助于边框、颜色的变化或二者的共同变化，与周围的窗体相区别。该值为图像和标签的默认值；对所有控件均有效 fmSpecialEffectRaised 1 对象的上边和左边高亮，下边和右边具有阴影。 fmSpecialEffectSunken 2 对复选框和选项按钮无效对象的上边和左边具有阴影，下边和右边高亮。控件及其边框显示好象刻入所在的窗体似的。复选框和选项按钮的默认值； fmSpecialEffectEtched 3 对所有控件有效(默认)边框显示为沿着控件边缘被雕刻。对复选框和选项按钮无效 mSpecialEffectBump 6 对象下边和右边隆起，而上边和左边显示为平面的。对复选框或选项按钮无效 对于框架，默认值是Sunken。 需要注意的是，复选框、数值调节钮和切换按钮只接受Flat 和Sunken (0 和2)。而其他控件可接受所列的全部值。
? Value 属性：定义某给定的控件的状态或内容。
? AutoSize 属性：规定对象是否自动调整大小以显示其完整的内容。
? AutoTab 属性：用来规定当用户在文本框或组合框的文本框区域输入最大允许字符数时，
是否自动跳格。
? AutoWordSelect 属性：指定是采用单词还是采用字符，来作为扩展选定内容的基本单元。 ? Enabled 属性：设置控件是否可用，即是否响应用户的操作。
? EnterKeyBehavior 属性：定义在文本框中按下Enter 键的结果，如果为True，按Enter 键
将创建一个新行；如果为False，按Enter 键，将焦点移到Tab 键顺序的下一个对象(默认)。 ? HideSelection 属性：指定当控件没有焦点时被选定的文本是否保持突出显示。
? IntegralHeight 属性：指定列表框或文本框是显示列表中全部文本行还是显示部分行。 ? Locked 属性：指定一个控件能否被编辑。
? MaxLength 属性：规定用户可以在文本框或组合框中输入的最多字符数。若将MaxLength
属性设置为0，表明只要内存允许则没有限制。
? MultiLine 属性：规定控件能否接受和显示多行文本。
? SelectionMargin 属性：规定用户能否通过单击文本左边区域来选中一行。 ? TabKeyBehavior 属性：决定是否允许制表符出现在编辑区。 ? TextAlign 属性：定义控件中文本的对齐方式。
? WordWrap 属性：指出一个控件的内容在行末是否自动换行。
(名称)属性：用来标识该控件，与显示无关，但在程序代码中通过该标识来调用该对象。 ? DragBehavior 属性：指定系统是否允许在文本框或组合框中执行拖放功能。 ? EnterFieldBehavior 属性：指定进入文本框或组合框时的选择行为。 fmEnterFieldBehavior 的设置值如表12-5 所示。
第 6 页 共 18 页
《中文Word2000 高级教程》
表12-5 fmEnterFieldBehavior 的设置值常数值描述 常数 值 描述 fmEnterFieldBehavior SelectAll 0 进入控件时选定编辑区域的全部内容(默认) fmEnterFieldBehavior 1 保持不变的选择。实际上，所用的是控件上次RecallSelection 激活时起作用的选择 ? Height 属性：用来表明对象的高度。 ? IMEMode 属性：指定进入文本框或组合框时的选择行为。为控件指定输入法编辑器(IME)
的默认的运行时间模式。这个属性只用于为远东地区编写的应用程序，在其他应用程序中被忽略。
? MouseIcon 属性：为对象指定一个自定义的图标。
? MousePointer 属性：指定当用户把鼠标放到特定对象上时，所显示鼠标指针的类型。 ? Width 属性：用来表明对象的宽度。
? Font 属性：用来设置对象文字(如果有文字要显示的话)的字体。
关于其他对象的属性，这里就不一一讲述，用户可以参考其他相应的书籍。需要说明的是，作为控件容器的文档窗体(ThisDocument)也是一个对象，用户也可以设置它的属性，使其更适合用户的实际需要。设置完成后的窗体如图12-6 所示。
图12-6 设置完成后的窗体 ? 12.4 调用窗体对象的方法用
户在图12-6 中可以看到，如果仅仅只靠设置对象的属性，还不能设置出满意的窗体。如列表框和组合列表框的选项就无法通过设置属性来设置。此时需要调用对象的各种方法来设置。
对象的方法很多，对象不同，方法也不尽相同。列表框和组合列表框都有一个AddItem 方法，通过调用这个方法，即可在列表框和组合列表框中加入相应的选项。
为了在文档打开时能够自动对窗体的对象进行初始化，可以在AutoOpen 过程中调用，其代码
第 7 页 共 18 页
《中文Word2000 高级教程》
如下：
Public Sub AutoOpen() ListBox1.AddItem \党员\ListBox1.AddItem \团员\ListBox1.AddItem \民主党派\ListBox1.AddItem \无党派人士\ComboBox1.AddItem \北京\ComboBox1.AddItem \广西\ComboBox1.AddItem \广东\ComboBox1.AddItem \陕西\ComboBox1.AddItem \山西\ComboBox1.AddItem \山东\End Sub
通过以上代码，在打开文档时如果设置了运行自动宏，即可显示如图12-7 所示的界面。
图12-7 加了列表项目的窗体 如果【选项】对话框的【编辑器】选项卡中设置了【自动列出成员】复选框，那么在输入某个对象的名称后输入“.”，即可在屏幕上列出该对象的方法和属性，图12-8 所示的是自动组合列表框的成员。
图12-8 自动列出成员
对象的方法前面由图标一些方法及其意义。 Add 方法
来标识，其他的为该对象的属性。下面介绍VBA 中经常用到的
第 8 页 共 18 页
《中文Word2000 高级教程》
用于在TabStrip 或多页中添加或插入一个标签或页，或通过其程序设计标识符(ProgID)在页或窗体中添加控件。 语法：
对于多页和TabStrip ：
Set Object = object.Add( [ Name [,Caption [, index]]])
对于其他控件：Set Control = object.Add( ProgID [, Name [,Visible]])
Add 方法的语法包括表12-6 所示成分。 成分 object Name 描述 必需。有效对象名 可选。指定被添加的对象的名称。如果没有指定名称，系统将根据使用该窗体的应用程序的规则产生一默认的名称 Caption 可选。指定在标签或控件上出现的题注。如果没有指定题注，系统将根据使用该窗体的应用程序的规则产生一默认的题注 index 可选。表示页或标签在 Pages 或 Tabs 集合中的位置。若没有规定索引，系统会将页或标签添加Pages或Tabs 集合的末尾，并赋于它相应的索引值 ProgID 必需。程序设计标识符。是用于标识对象类的、没有空格的 文 本 串 。ProgID的 标 准 语 法 是
对于单列的列表框或组合框，在列表中添加一项。对于多列的列表框或组合框，在列表中添加一行。
语法：Variant = object.AddItem [ item [, varIndex]] AddItem 方法的语法有表 12-7 所示的成分。 成分 描述 object 必需。有效对象 Item 可选。指定要添加的项或行。第一个项或行的编号为 0；第二个项或行的编号为1，依次类推 varIndex 可选。整数，指定新的项或行在对象中的位置 表 12-7 Add Item方法的语法成分 Clear 方法
从一个对象或集合中删去所有对象。 语法：object.Clearobject 为必需的有效对象。 Copy 方法
将对象的内容复制到剪贴板上。
语法：object.Copyobject 为必需的有效对象。 Cut 方法
从一个对象中删除选定的信息并将它送到剪贴板。 语法：object.Cutobject 为必需的有效对象 DropDown 方法
显示组合框的列表区。
语法：object.DropDownobject 为必需的有效对象。
第 9 页 共 18 页
《中文Word2000 高级教程》
在组合框中使用DropDown 方法打开组合框中的列表。 GetFormat 方法
返回一个整数值，表明指定的格式是否在DataObject 上。 语法：Boolean = object.GetFormat(format)
GetFormat 方法的语法成分如表12-8 所示。
表12-8 GetFormat 方法的语法成分 成分 描述 object 必需。有效对象 format 必需。整数或字符串，用来表示可能存在于 DataObject 之中的特定格式。如果特定的格式存在于 DataObject 之中，则GetFormat返回 True 设置format 的设置如表12-9 所示。 表 12-9 Format 的设置值 设置值 描述 1 文本格式 字符串或任由 SetText传递到 DataObject 的用户自定义的何非的整数 DataObject格式 GetFromClipboard 方法 从剪贴板复制数据到DataObject。
语法：String = object.GetFromClipboard( )
说明DataObject 可以包含多个数据项，但每个数据项必须有不同的格式。例如，DataObject 可以包含一个文本项和用户定义项，但不能同时有两个文本项。 GetText 方法
用特定的格式在DataObject 中检索一文本串。
语法：String = object.GetText([ format])
GetText 方法的语法成分如表12-10 所示。 成分 描述 object 必需。有效对象名 format 可选。字符串或整数，用来指定要在 DataObject 中检索的数据的格式 表12-10 Item 方法的语法成分 说明DataObject 支持多种格式，但只支持每种格式的一个数据项。例如，DataObject 可能包含一个文本项和一个自定义格式的项；但不能包含两个文本项。
如果不指定格式，GetText 方法要求从DataObject 中得到文本格式的信息。 Item 方法
返回集合的一个成员，无论按位置，还是按名称。 语法：Set Object = object.Item(collectionindex)
Item 方法的语法成分如表12-11 所示。
表12-11 Item 方法的语法成分 成分 描述 object 必需。有效对象 collectionindex 必需。集合中成员的位置或索引 collectionindex 可以是字符串，也可以是整数。如果是字符串，则必须是一个有效的成员名。 第 10 页 共 18 页