在Delphi中怎样实现对Microsoft Word的编程

在Ｄｅｌｐｈｉ中怎样实现对Ｍｉｃｒｏｓｏｆｔ　Ｗｏｒｄ的编程　夏静清　（广州市广播电视大学理工部，５１００３０）　摘要：文章介绍了在Ｄｅｌｐｈｉ　ｑ－利用ＯＬＥ　Ａｕｔｏｍａｔｉｏｎ技术实现对Ｗｏｒｄ编程的三　种方法，对Ｗｏｒｄ对象的属性、方法及对象之间的关系也进行了介绍。　关键词：ＯＬＥ　ａｕｔｏｍａｔｉｏｎ；Ｗｏｒｄ对象；Ｗｏｒｄ控件；ＯＬＥ　Ｏｂｊｅｃｔ对象；ＶＢＡ　Ａｂｓｔｒａｃｔ：Ｔｈｉｓ　ｐａｐｅｒ　ｉｎｔｒｏｄｕｃｅｓ　ｔｈｒｅｅ　ｍｅｔｈｏｄｓ　ｉｍｐｌｅｍｅｎｔｉｎｇ　ｔｈｅ　ｐｒｏｇｒａｍｍｉｎｇ　ｏｆ　ｔｈｅ　Ｍｉｃｒｏｓｏｆｔ　Ｗｏｒｄ　ｉｎ　Ｄｅｌｐｈｉ，ａｎｄ　ｔｈｅ　ｍｅｔｈｏｄ，ｐｒｏｐｅｒｔｙ　ｏｆ　ｔｈｅ　Ｗｏｒｄ　０ｂｊｅｃｔ．　Ｋｅｙ　ｗａｒｄｓ：０ＬＥ　ａｕｔｏｍａｔｉｏｎ；Ｗｏｒｄ　Ｏｂｊｅｃｔ；Ｗｏｒｄ　ｃｏｍｐｏｎｅｎｔ；０ＬＥ　Ｏｂｊｅｃｔ；ＶＢＡ　Ｄｅｌｐｈｉ是近几年国内最流行的软件开　法和属性可以被客户程序调用。　发工具之一，在实际应用中，经常会有在应用　程序中进行文字处理和编辑排版的需求。虽　ｌ　应用Ｄｅｌｐｈｉ系统中提供的Ｗｏｒｄ　说Ｄｅｌｐｈｉ中也提供了ＴＲｉｃｈＥｄｉｔ控件进行　控件进行对Ｗｏｒｄ的编程　文字处理，但很难真正实现Ｍｉｃｒｏｓｏｆｔ　Ｗｏｒｄ　在Ｄｅｌｐｈｉ的ｓｅｒｖｅｒ控件页面中（Ｄｅｌｐｈｉ　的强大功能。所以，通过ＯＬＥ　Ａｕｔｏｍａｔｉｏｎ等　５．０，Ｄｅｌｐｈｉ　６．０中提供），系统提供了　技术控制Ｗｏｒｄ进行编辑排版的文字处理工　ＴＷｏｒｄＡｐｐｌｉｃａｔｉｏｎ　ＴＷｏｒｄＤｏｃｕｍｅｎｔ、　作就显得尤其必要。下面将详细介绍在　ＴＷｏｒｄＦｏｎｔ等控件。通过应用这些控件就可　Ｄｅｌｐｈｉ中实现对Ｗｏｒｄ编程的几种方法。　以实现对Ｗｏｒｄ的控制。　．　Ｍｉｃｒｏｓｏｆｔ　Ｗｏｒｄ是一个基于Ｍｉｃｒｏｓｏｆｔ　ＷｏｒｄＤｏｃｕｍｅｎｔ代表一篇文档，可使用　的ＣＯＭ组件模型的自动化服务器程序，　Ｄｏｃｕｍｅｎｔ对象或Ｄｏｃｕｍｅｎｔｓ集合对象的方　Ｃ０Ｍ组件模型则是一种基于客户／服务器　法ａｄｄ和ｏｐｅｎ来创建新文档和打开修改文　结构的技术规范，它使得服务器程序与应用　档。　程序之间的交互成为可能。除了基本的　Ｒａｎｇｅ对象指文档中的某一连续区域。　Ｃ０Ｍ服务外，Ｍｉｃｒｏｓｏｆｔ对这项技术进行了　每个Ｒａｎｇｅ对象都是通过开始和结束字符　相应的扩充，比如０ＬＥ　Ａｕｔｏｍａｔｉｏｎ技术。　位置来定义的。使用Ｒａｎｇｅ对象可以定义文　在ＯＬＥ　Ａｕｔｏｍａｔｉｏｎ技术中，一个可以　档的某一部分。一个Ｒａｎｇｅ对象小至只是一　提供它自己的对象、方法及属性给其他应用　个插入点，大至包括整篇文档。Ｓｔａｒｔ和Ｅｎｄ　程序调用的应用程序称为ＯＬＥ　Ｓｅｒｖｅｒ（即　属性返回或设置Ｒａｎｇｅ对象的开始和结束　ＯＬＥ服务器）。而使用ＯＬＥ　Ｓｅｒｖｅｒ对象的程　字符位置。在文档开头的字符位置为零，第一　序则被称为ＯＬＥ　Ｃｌｉｅｎｔ（０ＬＥ客户）。利用　个字符之后的位置为１，以此类推。　０ＬＥ　Ａｕｔｏｍａｔｉｏｎ技术，一个客户应用程序　图　１　显示了　ＷｏｒｄＡｐｐｌｉｃａｔｉｏｎ、　可以实现对服务器应用程序的控制。服务器　ＷｏｒｄＤｏｃｕｍｅｎｔ、Ｒａｎｇｅ等对象的层次关系。　提供可编程对象，也就是说服务器对象的方　Ｆｏｎｔ对象包含了各种字体属性（－７－体名　收稿日期：２００２—０３一ｌ６；修回日期：２００２—０５—１５　作者简介：夏静清，女．工程师．研究方向：计算机应用软件开发。　・２６・　《电脑与信息技术）２００２年第３期　维普资讯 http://www.cqvip.com

称、大小和颜色等）。ＴａｂｌｅｓＯｆＣｏｎｔｅｎｔ对象代表文档中的一（ｉｔｅｍｉｎｄｅｘ））；ＷｏｒｄＤｏｃｕｍｅｎｔＩ．ＳａｖｅＡｓ（ｄｏｃＦｉｌｅＮａｍｅ）。个目录，可使用该对象的ａｄｄ方法在文档中创建一个目录。关于相关对象的属性和方法请参阅ｏｆｆｉｃｅ安装光盘里提供的ＶＢＡ帮助文件（Ｏｆｆｉｃｅ９７的帮助文件为ｖｂａｗｒｄ８．ｈｉｐ，Ｏｆｆｉｃｅ２０００的帮助文件为ｖｂａｗｒｄ９．ｃｈｍ），以及Ｄｅｌｐｈｉ５．０系统中的Ｗｏｒｄ９７．ｐａｓ文件，、Ｄｅｌｐｈｉ６．０中的Ｗｏｒｄ２０００．ｐａｓ文件。‘设置标题字体，可设置字体、字体大小、加粗、斜体、下划线等。其中ｗｄｓｔｙｌｅｈｅａｄｉｎｇｌｗｄｓｔｙｌｅｈｅａｄｉｎｇ２表表示示标标题题１，２，ｗｄｓｔｙｌｅｈｅａｄｉｎｇ３表示标题３。ｗｄｓｔｙｌｅｉｔｅｍｉｎｄｅｘ：。ｗｄｓｔｙｌｅｈｅａｄｉｎｇｌ‘／／标题１”。。ｄＤｏ。“”。“。１・Ｓｔｙ’ｅ。・Ｉｒｅｍ下面举例具体说明：加入对象实例．‘”ｄ。。Ｙ‰。”ｉｎｄｅ。’・‘。ｎｔ．Ｎａｍｅ：。’宋体’；”。。ｄＤｏ。“”。“。’・ｓ。ｙｌ？。・’。。ｍ（ｗｄｓ。ｙｌ。ｉ。。”ｉ“ｄ。。）・ｆ。“。・ｓｉｚｅ：一１０；在表单中加入控件ＴＷｏｒｄＡｐｐｌｉｃａｔｉｏｎ，ＴＷ。，ｄ【）０。。。。。ｔ、Ｔｗ。，ｄＦ。。ｔ的实例。插入正文。调用Ｒａｎｇｅ对象的ＩｎｓｅｒｔＢｅｆｏｒｅ、ＩｎｓｅｒｔＡｆｔｅｒ方法在指定位置的Ｗ。ｒｄＡｐｐｌｉｃａｔｉ。ｎ１、Ｗ。ｒｄＤ。ｃｕｍｅｎｒ１、ｗ。ｒｄＦ。ｎｔｌ；．启动Ｗｏｒｄ，实现与Ｗｏｒｄ的连接前后插入文本内容，并通过Ｐａｒａｇ’ｒａｐｈ对象的ＳｅｔＡｌｉｇｎｍｅｎｔ方法设置正文位置是否—ｔ，。ＷｏｒｄＡｐｐｌｉｃａｔｉｏｎｌ．Ｃｏｎｎｅｃｔ：ｅｘｃｅｐｔ居中、居左、居右。Ａｌｉｇｎｍｅｎｔ：＝ｗｄＡｌｉｇｎＰａｒａｇｒａｐｈＣｅｎｔｅｒ；Ａｐｐｌｉｃａｔｉｏｎ．ＭｅｓｓａｇｅＢｏｘ（’不能生成文档，请确认是否安装了Ｗｏｒｄ’，’提示’ｍｂ—／／居中ｗｏｒｄＤｏｃｕｍｅｎｔＩ・Ｒａｎｇｅ・Ｐａｒａｇｒａｐｈｓ．Ｓｅｔ—ｏｋ）：Ａｂｏｒｔ；Ａｌｉｇｎｍｅｎｔ（Ａｌｉｇｎｍｅｎｔ）；ｗｏｒｄＤｏｃｕｍｅｍＩ．Ｒａｎｇｅ．１ｎｓｅｒｔＰａｒａｇｒａｐｈ；ｅｎｄ：ｗｏｒｄＤｏｃｕｍｅｍｌ．Ｒａｎｇｅ．ＩｎｓｅｒｔＡｆｔｅｒ（‘正文’）；ＷｏｒｄＡｐｐｌｉｃａｔｉｏｎｌ．Ｖｉｓｉｂｌｅ：＝ｔｒｕｅ：・・插入分隔符通过设置分隔符的类型可以插入分节符、分页符等多种分隔符。ｂｒｅａｋＴｙｐｅ：＝ｗｄＰａｇｅＢｒｅａｋ；／／分页符ｗｏｒｄｌ）ｏｃｕｍｅｎｔＩ．Ｒａｎｇｅ（ｒａｎｇｅＳｔａｒｔ）．ｌｎｓｅｒｔＢｒｅａｋ（ｂｒｅａｋＴｙｐｅ）：生成新Ｗｏｒｄ文档，或打开已经存在的Ｗｏｒｄ文档。ＷｏｒｄＡｐｐｌｉｃａｔｉｏｎＩ．Ｄｏｃｕｍｅｎｔｓ．Ａｄｄ（ｔｅｍｐｌａｔｅ，ｎｅｗｔｅｍｐｌａｔｅ）；ＷｏｒｄＤｏｃｕｍｅｎｔｌ．ＣｏｎｎｅｃｔＴｏ（ＷｏｒｄＡｐｐｌｉｃａｔｉｏｎｌ．Ｄｏｃｕｍｅｎｔｓ．Ｉｔｅｍ・插入页码・２７・《电脑与信息技术｝２００２年第３期维普资讯 http://www.cqvip.com

设氍页码位置参数ｐａｇｅＮｕｍｂｅｒＳｔｙｌｅ：一　ＴＯｂｊｅｃｔ）；　ｖａｔ　ｔｅｍｐｌａｔｅ，ｎｅｗｔｅｍｐｌａｔｅ，ｉｔｅｍｉｎｄｅｘ，　ｗｄＡｌｉｇｎｌ　ａｇｅＮｕｍｂｅｒＲｉｇｈｔ；／／页码皤右ｄｏｃＦｉｌｅＮａｍｅ：Ｏｌｅｖａｒｉａｎｔ：　设　首页是否显示页码　ｐａｇｅＮｕｍｂｅｒＳｔｙ１ｅ１：一ｆａｌｓｅ：　ｆａｌｓｅ一不显示ａｌｉｇｎｍｅｎｔ：ＯｌｅＶａｒｉａｎｔ；　／／ｔｒｕｅ一显示　ｂｅｇｉｎ　ｄｏｃＦｉｌｅＮａｍｅ：一　ｓａｍｐｌｅ１．ｄｏｃ　；　插入页面顶端　ｗ。ｒｄＤ。ｃｕｍｅｎｔ１．Ｒａｎｇｅ．Ｓｅｃｔｉ。ｎｓ．Ｉｔｅｍ（１）．　Ｈｅａｄｅｒｓ．Ｉｔｅｍ（１）．ＰａｇｅＮｕｍｂｅｒｓ．　ｉｆ　ｆｉｌｅＥｘｉｓｔｓ（ｄｏｃＦｉｌｅＮａｍｅ）ｔｈｅｎ　ｂｅｇｉｎ　ｂｅｅｐ　Ａｄｄ（ｐａｇｅＮｕｍｂｅｒＳｔｙｌｅ，　ｉｆ　ａｐｐｌｉｃａｔｉｏｎ・ＭｅｓｓａｇｅＢｏｘ（’文档已经存　ｐａｇｅＮｕｍｂｅｒＳｔｙｌｅ１）；　在，请确认是否覆盖？’，’警告’ｍｂ一　插入页面底端　ｗｏｒｄＤＯＣＵｍｅｎｔ１．Ｒａｎｇｅ．Ｓｅｃｔｉｏｎｓ．Ｉｔｅｍ（１）．　Ｆ。。ｔｅｒｓ．Ｉｔｅｍ（１）．ＰａｇｅＮｕｍｂｅｒｓ．　Ａｄｄ（ｐａｇｅＮｕｍｂｅｒＳｔｙｌｅ，ｐａｇｅＮｕｍｂｅｒＳｔｙｌｅ１）：　・ｏｋｃａｎｃｅ１）一ｉｄｃａｎｃｅｌ　ｔｌ　ｅｎ　ｅｘｉｔ　ｅｎｄ　ｔｅｍｐｌａｔｅ：　ｅｍｐｔｙＰａｒ；Ｉｍ；　“　ｔ。ｍｐｌ　ｔ。：一ｔ　。：　生成目录　。　ｎｄｅｘ：　Ｙ　。　ｄＡｐｐｌｉｃａｔｉｏｎ１・Ｃｏｎｎｅｃｔ；　ｕｈｓ：一ｔｒｕｅ：／／设援参数　Ｉ１ｈ１：一１；　ｕｈ１：一【）：　ｕｆ：一ｆａｌｓｅ：　，　／／建立Ｗｏｒｄ连接　ｅｘｃｅＰｔ　ｔｉｄ：一…１，；　ｒａＩ）１］：一ｔｒｕｅ；　ａｐｐｌｉｃａｒｉｏｎ・ＭｅｓｓａｇｅＢｏｘ（’不能生成文档，　请确认是　安装Ｉ，Ｗｏｒｄ’，’提示’ｍｂ—　ｏｋ）；　ＩＦＩ１２：一ｔｒｕｅ　ａｄｄｓｔｙｌｅ：一，ｔｉｔ１ｅ・；　ｗｏｒｄＤｏｃｕｍｅＩ、ｔ１．ＴａｂｌｅｓＯｆＣｏｎｔｅｎｔｓ．　Ａｄｄ（ＷｏｒｄＤｏｃｕｍｅＩ１ｔ１．Ｒ　Ｊ１ｎｇｅ（ｃｏｎｔｅｎｔＳｔａｒｔ，　Ａｂｏｒｔ；　ｅｎｄ；　ｗｏｒｄＡｐｐｌｉｃ；Ｉｔｉｏｎｌ・Ｖｉｓｉｂｌｅ：一ｔ　ｒｕｅ；　ｃ０ｎｔｅｎｔＳｔａｒｔ），ｕｈ　，ｕｈ１，１ｈ１．ｕｆ．ｔｉｄ．ｒａｐｎ，　ｉｐｎ．ａｄｄｓｔｖ１ｅ）：　／／ｉａ￣Ｗｏｒｄ　ｗｏｒｄＡｐｐｌｉｃａｔｉｏｎＩ・Ｄｏｃｕｍｅｎｔｓ・Ａｄｄ（ｔｅｍｐｌａｔｅ，　／／设　目录格式ｆｏｒｍａｔｓｔｙｌｅ　ｎｅｗｔｅｍｐｌａｔｅ）；　／／以空换饭新建文　ｗｏｒｄＤｏｃｕｍｅｎｔＩ・ＣｏｎｎｅｃｔＴｏ　（ＷｏｒｄＡｐｐｌｉｃａｔｉｏ“１・ＤｏｃｕｍｅＩ１ｔｓ・１ｔｅｎ１　（ｉｔｅｍｉｎｄｅｘ））：　ｗｏｒｄ１）ｏｃｕｍｅｎｔＩ．Ｓａｘ　ｅＡｓ（ｄｏｃＦｉｌｅＮａｍｅ）；　ｗｏｒｄ【）ｏｃｕｍｅｎｔ１．Ｔ，ＩｂｌｅｓＯｆＣｏｎｔｅｎｔ　．　ＳｅｔＦｏｒｍａｔ（ｆｏｒｍａｔＳｔｙ１ｅ）；ｗ（）ｒｄＤｏｃｕｍｅｎｔ　１．ＴａｂｌｅｓＯｆＣｏｎｔｅｎｔｓ．１ｔｅｎ１（１）．ｕＤｄａｔｅ；　注意：以上Ｗｏ　ｄ对象的方法调用时，参　数的类型都必须定义为Ｏ１ｅＶａｒｉａｎｔ类型。　宰彻ｆ．　将新文馅保存为　。　Ｄｏ　“眦“　・Ｒ　ｌ１Ｒ　・Ｆ。　Ｎａｍｅ：一’　ａｒ　’；　／／设　文档字体　ｏ　ｒｄ１）ｏ　ｃ　ｕｍｄＩ）ｏｅｎｔ１．（１）　在　ｆｏｒｍ　中　加　入控件　。Ｒ　ａ　ｎｇ　ｚｅ：一。　；　ｅＦｏｎｔ．Ｓｉ．ｒｎ。ｍ１Ｒ．ｇ．｝ｊ。ｌｄ：—１；ＴｗｏｒｄＡｐｐｌｉｃａｔｉｏｎ、ＴＷｏｒｄ１）ｏｃｕｍｅＩ１ｔ的实　例ＷｏｒｄＡｐｐｌｉｃａｔｉｏｎ１、Ｗｏｒｄ１）ｏｃｕｍｅｎｔ１；　（２）在ｆｏｒｍ中加入按钮Ｂｕｔｔｏｎ１，在　ａｌｉ　ｇｌ１ｎ］ｅｎｔ：一ｗｄＡｌｌｇｎＰ｜Ｉｒａ　ｇｒ‘１Ｉ）１１（、ｅｎｔ…／／设髓内容居【｝１　ｗ（）ｒｄＤｏｃｕｍｅ１１ｔ１．Ｒａｎ　Ｐａｒａｇｒａｐｈｓ．　　Ｂｕｔｔｏｎ　１的ｃｌｉｃｋ事件中输入以下代码：　ｐｒｏｃｅｄｕ　ｒｅ　ｌ＇ｍａｉｎｆｒｍ．ＢｕｕｏｎｌＣｌｉｃｋ（Ｓｅｎｄｅｒ：　・Ｓｅｔ　Ａｌｉｇｎｎ　１ｔ（ａｌｉｇｎｍｅｎｔ）；　ｗｏｒｄＬ）ｏｃｕｍｅｎｔ１．Ｒａｎｇｅ．１ｎｓｅｒｔＰａｒａｇｒａｐｈ：　２８・　《电脑与信息技术｝２００２年第３期　维普资讯 http://www.cqvip.com

／／插入文　内容　ｗｏｒｄＤｏｃｕｍｅｎｔ　１．Ｒａｎｇｅ．ＩｎｓｅｒｔＡｆｔｅｒ　程序运行前，系统是无法预报的。　实例：　在ｆｏｒｍ中加入按钮ｂｕｔｔｏｎ３，在按钮的　（’演示文档’十＃１　３）；　ｅｎｄ：　ｃｌｉｃｋ．－＇－ｊｒｉ￣－中输入以下代码：　ｐｒｏｃｅｄｕｒｅ　Ｔｍａｉｎｆｒｍ，Ｂｕｔｔｏｎ３Ｃｌｉｃｋ　２　通过创建ｃｒｅａｔｅＯｌｅＯｂｊｅｃｔ调用　Ｗｏｒｄ　（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　Ｖａｒ　Ｖｏｌｅ：ＯｌｅＶａｒｉａｎｔ：　ｂｅｇｉｎ　通过Ｏｌｅ自动化技术，用户在Ｄｅｌｐｈｉ应　用程序中可以访问Ｗｏｒｄ中对象的方法和属　性。Ｗｏｒｄ做为Ｏｌｅ自动化服务器，可以由　Ｖｏｌｅ：一Ｃｒｅａｔｅ０ｌｅ０ｂｊｅｃｔ（’ｗｏｒｄ．ｂａｓｉｃ’）：　／／Ｉ２，１　Ｗｏｒｄ．ｂａｓｉｃ时象　Ｖｏｌｅ，Ｆｉｌｅｎｅｗ：　／新建Ｗｏｒｄ文　Ｉ）ｅｌｐｈｉ应用程序控制。具体方法如下：　・在程序的ＵＳｅＳ语句中加入Ｃｏｍｏｂｊ单　Ｖｏｌｅ．Ｉｎｓｍ’ｔ（’Ｈｅｌｌｏ’）；　／／插入【ｊ、ｊ容　Ｖｏｌｅ．ＦｉｌｅＳａｘ，ｅＡｓ（’ｅ：＼ｓａｍｐｌｅ２，ｄｏｃ’）；　元，该单元中的　ｌ＇ｏｌｅＡｕｔｏ类提供了强大的　Ｏｌｅ自动化支持；　・／　／保仃　Ｖｏｌｅ．ＦｉｌｅＣｌｏｓｅ（１）：　／／关闭文档并保仃　ｅｎｄ：　定义作为Ｏｌｅ对象的ＯｌｅＶａｒｉａｎｔ变　ＶＯｌｅ的　量，例如，以下定义了一个并且在程序的ＵＳｅＳ语句中加入Ｃｏｍｏｂｊ　单元；　ＯｌｅＶａｒｉａｎｔ变量：　Ｖａｒ　Ｖｏｌｅ：ＯｌｅＶａｒｉａｎｔ；　・如果要了解更多关于Ｗｏｒｄ　Ｂａｓｉｃ的属　性和方法，请参考微软提供的ＶＢＡ帮助文　件。　通过ＣｒｅａｔｅＯｌｅＯｂｊｅｃｔ函数启动　Ｗｏｒｄ服务器，并将其赋给变量ＶＯｌｅ：　Ｖｏｌｅ：一ＣｒｅａｔｅＯｌｅ０ｂｉｅｃｔ（‘ｗｏｒｄ．ｂａｓｉｃ’）：　在得到一个Ｗｏｒｄ　Ｂａｓｉｃ自动化对象的　引用后，就可以自由调用它的属性和方法。　・３　通过Ｄｅｌｐｈｉ中的ＴＯｌｅＣｏｎｔａｉｎｅｒ　控件实现对Ｗｏｒｄ的控制　在设计阶段，将　ｌ＇ＯｌｅＣｏｎｔａｉｎｅｒ控件拖　访问Ｗｏｒｄ　Ｂａｓｉｃ自动化对象的特性　Ｖｏｌｅ．Ｆｉｌｅｎｅｗｓ；　Ｖｏｌｅ．Ｉｎｓｅｒｔ（‘Ｈｅｌｌｏ’）；　与方法．下面举例说明：　新建文档插入文本放到表单中，命名为（）ｌｅｃｏｎｔａｉｎｅ　ｒ】，确定位　和大小后，用鼠际双击它调出“Ｏｌｅ对象类　型选择窗口”，通过该窗口选择Ｗｏｒｄ就可建　立一个Ｗｏｒｄ，对象。在程序运行中，可以通过　保存文档Ｖｏｌｅ．ＦｉｌｅＳａｖｅ（。文件名’）；　保存文件并设　密码ｐｓｗｄ。　Ｖｏｌｅ．ＦｉｌｅＳａｖｅ（‘文件名’，　ｐａｓｓｗｏｒｄ：＝‘ｐｓｗｄ’）；　调用ＩｎｓｅｒｔＯｂｊｅｃｔ函数打开该对话框。　通过对　ｌ＇ＯｌｅＣｏｎｔａｉｎｅｒ的属性和方法的　调用，可达到对Ｗｏｒｄ对象的控制。举例如　下：　・关闭文档　保存并关闭文档　Ｖｏｌｅ．ＦｉｌｅＣｌｏｓｅ（１）；　打开选择插入对象对话框　ＯｌｅＣｏｍａｉｎｅｔ’１，ＩｎｓｅｒｔＯｂｊｅｃｔＤｉａｌｏｇ　ｆ　・关闭文档不保存　Ｖｏｌｅ．ＦｉｌｅＣｌｏｓｅ（０）；　打开文档　ＯｌｅＣｏｎｔａｉｎｅｒ　ｌ，ＬｏａｄＦｒｏｍＦｉｌｅ（Ｆｉｌｅｎａｍｅ）；　打印文档　Ｖｏｌｅ．ＦｉｌｅＰｒｉｎｔ；　由于１）ｅｌｐｈｉ无法对Ｏｌｅ对象中的属性　ｆｎＹｙ￣＊，ｊ调用进行运行时的语法检测，所以，　Ｏｌｅ对象中的属性和方法的错误调用在应用　注意：这里只能打开文档格式是ＯＩ　Ｅ文　档的文件　・创建文档　Ｏ１ｅＣｏｎｔａｉｎｅｒ１．ＣｒｅａｔｅＯｂｊｅｃｔｆｒｏＩＴｌｆｉｌｅ　・２９・　《电脑与信息技术））２００２年第３期　维普资讯 http://www.cqvip.com

（Ｆｉｌｅｎａｍｅ，Ｆａｌｓｅ）；　（２）在Ｂｕｔｔｏｎ２的ｃｌｉｃｋ事件中输入以下　注意：这里的文档是ｄｏｃ文档。　代码即可实现Ｗｏｒｄ调用：　・保存文档　ｐｒｏｃｅｄｕｒｅ　Ｔｍａｉｎｆｒｍ．Ｂｕｔｔｏｎ２Ｃｌｉｃｋ　Ｏｌｅｃｏｎｔａｉｎｅｒ１．ＳａｖｅＴｏＦｉｌｅ（ｆｉｌｅｎａｍｅ）；　（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　注意：这里保存的文档格式是ＯＩ　Ｅ文　、ｒａｒ　ｔｅｍｐｓｔｒ：ｓｔｒｉｎｇ；　档，用Ｗｏｒｄ应用程序是不能直接打开的。如　ｂｅｇｉｎ　果想将以ＯＬＥ格式保留的ｄｏｃ文档用Ｗｏｒｄ　ｔｅｍｐｓｔｒ：一’ｃ：＼ｓａｍｐｌｅ２．ｄｏｃ’；　打开，要将该文件进行格式转换，具体办法就　ｉｆ　ｎｏｔ（ｆｉｌｅＥｘｉｓｔｓ（ｔｅｍｐｓｔｒ））ｔｈｅｍ　是将该文档中的标记ＯＬＥ文档的文件头去　ｂｅｇｉｎ　ｂｅｅｐ　掉。　ａｐｐｌｉｃａｔｉｏｎ．ＭｅｓｓａｇｅＢｏｘ（’文档不存在’，’　Ｏｌｅｃｏｎｔａｉｎｅｒ　１．ＳａｘｒｅＡｓＤｏｃｕｍｎｅｔ　提示’，ｍｂ　ｏｋ）；　（Ｃｏｎｓｔ　ｆｉｌｅｎａｍｅ：ｓｔｒｉｎｇ）；　ｅｘｉｔ；　以Ｏｌｅ对象本身的格式保存，比如说　ｅｎｄ；　Ｗｏｒｄ文档。　（）ｌｅＣｏｎｔａｉｎｅｒ１．ＣｒｅａｔｅＯｂｊｅｃｔＦｒｏｍＦｉｌｅ　・关闭ＯｌｅＣｏｎｔａｉｎｅｒ　（ｔｅｍｐｓｔｒ，ｆａｌｓｅ）；Ｉｌｔｈ　ｄｏｃ文档创建　ＯｌｅＣｏｎｔａｉｎｅｒ１．Ｃｌｏｓｅ；／／退出Ｏｌｅ眼务器　ＯｌｅＣｏｎｔａｉｎｅｒ１．ＤｏＶｅｒｂ（１）；　／／调用Ｗｏｒｄ　・打开Ｗｏｒｄ　ｅｎｄ；　ＯｌｅＣｏｎｔａｉｎｅｒ１．ＤｏＶｅｒｂ（ｖｅｒｂ）：　以上所述都是作者在实际工作中的一些　ｖｅｒｂ值为ｏｖＳｈｏｗ时为显示Ｗｏｒｄ，为　经验总结，其实Ｏｌｅ　Ａｕｔｏｍａｔｉｏｎ技术是一项　ｏｖＰｒｉｍａｒｙ时，激活Ｗｏｒｄ。可通过调用　非常实用并应用广泛的技术。通过灵活应用，　ＴｏｌｅＣｏｎｔａｉｎｅｒ对象的ｏｂｊｅｃｔＶｅｒｂｓ属性来列　可以实现对更多的ＯＬＥ　Ｓｅｒｖｅｒ应用程序的　出ｖｅｒｂ。　调用和控制，比如对Ｏｆｆｉｃｅ的其它应用程序　・插入文本　（ＥＸＣＥＬ，Ｐｏｗｅｒｐｏｉｎｔ、Ａｃｃｅｓｓ）、Ｇｒａｐｈ　９７　ＯｌｅＣｏｎｔａｉｎｅｒ１．ｉｎｓｅｒｔ（ｓｔｒｉｎｇ１）：　等。　・打印文档　参考文献：　ＯｌｅＣｏｎｔａｉｎｅｒ１．ｐｒｉｎｔ；　［１］Ｍｉｌｌｅｒ　Ｔ，Ｐｏｗｅｌｌ　Ｄ，等．Ｄｅｌｐｈｉ　３开发使片Ｊ手册．机　实例：　械工业出版社．　（１）在ｆｏｒｍ中加入一个ＯｌｅＣｏｎｔａｉｎｅｒ　Ｅ２］Ｔｅｉｘｅｉｒａ　Ｓ，ｐａｃｈｅｃｏ　ｘ．等、ＤｅＬｐｈｉ　５开发人员指南　控件ＯｌｅＣｏｎｔａｉｎｅｒ１，再加入按钮Ｂｕｔｔｏｎ２；　机械工　出版社．　‘　‘　‘　’　‘　’　’　‘　‘　‘　’　‘。‘。‘　’。‘　‘　’　’　‘　‘　‘　‘　’　‘、“　‘　‘　‘０　‘　’、：／’　‘、　（上接第１３页）　在数据接口、数据模型、　环境・中国建筑出版社．　数据标准化等方面要做大量的研究。　［　］张Ｎ’－　上的虚拟现实技术及ＶＲＭＩ，语商・电　（３）ＶＲ—ＧＩｓ与网络地理信息系统　［。］　实技术．上海交大．　（Ｗｅｂ—ＧＩＳ、Ｃｏｒｎ—ＧＩＳ）相结合的研究。通过　［妇Ｓｌ。　ｃ　Ｊ　Ｄ．数字化生存．海南出版社．　这项技术可实现远距离操作和遥显／遥视，从　［５］汪成为．人类认识世界的帮手…虚拟现・　中国　而建立由虚拟实验室、虚拟影剧院、虚拟旅　院士丛书，清华大学出版社．　游、虚拟医院等虚拟的地理环境和人文环境　［　］李・虚拟环境技术・中国铁道出版社・　所构成的虚拟社会。参考文献：　　［　ＣＦ　渊‘。　　』耋ｌ拟现誊：现实系统制作指南・电子　［业出敝　　与　‘科学出版社－　ｌ　１　ｌ　里斯贝罗　比尔．用虚拟现实设汁照佳住宅人　女　外　±＋ｌ　Ｊ・’　・３０・　《电脑与信息技术｝２００２年第３期