2024年1月2日发(作者：)
本文由ｎｕａａｚｚｙ贡献 二次开发的兼容性ＦＡＱ ＷＰＳ Ｏｆｆｉｃｅ２００７的二次开发开发和旧版本ＷＰＳ Ｏｆｆｉｃｅ有什么区别？ 答：ＷＰＳ Ｏｆｆｉｃｅ２００７是完全重新开发的一款产品，其对象格式，设置方式和旧的ＷＰＳ Ｏｆｆｉｃｅ版本有所不同。对应的二次开发接口也有所调整。但大部分的二次开发接口和旧版本保持一致。 ＷＰＳ Ｏｆｆｉｃｅ２００７的二次开发开发和微软的Ｏｆｆｉｃｅ二次开发有什么异同？ 答：ＷＰＳ Ｏｆｆｉｃｅ２００７的二次开发接口体系和微软Ｏｆｆｉｃｅ的二次开发接口体系基本保持一致。包括：对象树，即对象的组织构成、各对象代表的含义和微软Ｏｆｆｉｃｅ对象均保持一致；接口函数，即各对象的方法属性的名称和含义均与微软Ｏｆｆｉｃｅ保持一致。 原有的与ＷＰＳ Ｏｆｆｉｃｅ ２００３或者ＷＰＳ Ｏｆｆｉｃｅ ２００２结合的第三方程序，可以直接和ＷＰＳ Ｏｆｆｉｃｅ２００７结合运行吗？ 答：不行。ＷＰＳ Ｏｆｆｉｃｅ２００７是全新的一个版本，其中的类型库已经升级。由原来“Ｋｉｎｇｓｏｆｔ ＷＰＳ １．０ Ｏｂｊｅｃｔ Ｌｉｂｒａｒｙ”、“Ｋｉｎｇｓｏｆｔ ＥＴ １．０ Ｏｂｊｅｃｔ Ｌｉｂｒａｒｙ”、“Ｋｉｎｇｓｏｆｔ ＷＰＰ ２００３ Ｏｂｊｅｃｔ Ｌｉｂｒａｒｙ”分别升级为“Ｋｉｎｇｓｏｆｔ ＷＰＳ ２．０ Ｏｂｊｅｃｔ Ｌｉｂｒａｒｙ”、“Ｋｉｎｇｓｏｆｔ ＥＴ ２．０ Ｏｂｊｅｃｔ Ｌｉｂｒａｒｙ”、“Ｋｉｎｇｓｏｆｔ ＷＰＰ ２．０ Ｏｂｊｅｃｔ Ｌｉｂｒａｒｙ” ＷＰＳ Ｏｆｆｉｃｅ２００７二次开发接口中的对象树，基本保持和２００３的一致，但由于ＷＰＳ本身功能和内部元素结构的改变，个别接口有相应的调整。 原有的与ＷＰＳ Ｏｆｆｉｃｅ ２００３或者ＷＰＳ Ｏｆｆｉｃｅ ２００２结合的第三方程序，需要做什么改动才能正常和ＷＰＳ Ｏｆｆｉｃｅ２００７结合运行？ 答：使用ＶＢ编写的程序，需要将引用库改为升级后的类型库。并将二者接口有差别的部分进行修改，然后重新编译。 使用ＶＣ编写的并用到ＣＬＳＩＤ的程序，需要重写这些ＣＬＳＩＤ。并将二者接口有差别的部分进行修改，然后重新编译。 二次开发文字部分ＦＡＱ 提示： 各对象、方法和属性的详细使用方法，请参阅ＷＰＳＡＰＩ帮助。 以下示例代码都用ＶＢ编写，使用其它语言的开发者，请自行做相应转换。 什么是ＷＰＳ的二次开发？ 二次开发是指第三方程序利用ＷＰＳ提供的接口，实现对ＷＰＳ内部功能的调用，或者实现ＷＰＳ文档内部信息的自动获取、设置的功能。通过二次开发可以达到以下目的：完成某种自动化的操作、为ＷＰＳ增加特定功能、和ＯＡ系统结合实现办公自动化。 如何启动ＷＰＳ文字模块？ 如果ＷＰＳ文字模块已经启动，可以使用ＧｅｔＯｂｊｅｃｔ 获得这个进程： Ｓｅｔ ｗｐｓＡｐｐ ＝ ＧｅｔＯｂｊｅｃｔ（， ＂ＷＰＳ．Ａｐｐｌｉｃａｔｉｏｎ＂） ｗｐｓＡｐｐ．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ 如果ＷＰＳ尚未启动，可以使用ＣｒｅａｔｅＯｂｊｅｃｔ 来产生一个新进程： Ｓｅｔ ｗｐｓＡｐｐ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ＷＰＳ．Ａｐｐｌｉｃａｔｉｏｎ＂） ｗｐｓＡｐｐ．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ 如何退出ＷＰＳ文字模块？ ｗｐｓＡｐｐ．Ｑｕｉｔ ＳａｖｅＣｈａｎｇｅｓ：＝ｗｐｓＳａｖｅＣｈａｎｇｅｓ， ＯｒｉｇｉｎａｌＦｏｒｍａｔ：＝ｗｐｓＷＰＳＤｏｃｕｍｅｎｔ， ＲｏｕｔｅＤｏｃｕｍｅｎｔ：＝Ｔｒｕｅ ｓｅｔ ｗｐｓＡｐｐ ＝ Ｎｏｔｈｉｎｇ 如何得到ＷＰＳ中的工具栏数？ 下面的例子显示应用程序所有工具栏的数目。 ＭｓｇＢｏｘ ｗｐｓＡｐｐ．Ａｐｐｌｉｃａｔｉｏｎ．ＣｏｍｍａｎｄＢａｒｓ．Ｃｏｕｎｔ 下面的例子使工具栏的第一项不可见 ｗｐｓＡｐｐ．ＣｏｍｍａｎｄＢａｒｓ．Ｉｔｅｍ（１）．Ｖｉｓｉｂｌｅ ＝ Ｆａｌｓｅ 如何隐藏工具栏？ 用ＣｏｍｍａｎｄＢａｒｓ（Ｉｎｄｅｘ）可以直接返回一个 ＣｏｍｍａｎｄＢａｒ 对象。 ｐａｇｅ １
使用下面的语句可以将第一个工具栏隐藏 Ａｐｐｌｉｃａｔｉｏｎ．ＣｏｍｍａｎｄＢａｒｓ．Ｉｔｅｍ（１）．Ｖｉｓｉｂｌｅ ＝ ｆａｌｓｅ 如何使工具栏的按钮失效？ 下面的例子切换第一条工具栏第一项按钮的有效性 。 Ｄｉｍ ｂａｒ Ａｓ ＷＰＳ．ＣｏｍｍａｎｄＢａｒＣｏｎｔｒｏｌｓ Ｓｅｔ ｂａｒ ＝ ｗｐｓＡｐｐ．ＣｏｍｍａｎｄＢａｒｓ（１）．Ｃｏｎｔｒｏｌｓ ｂａｒ（１）．Ｅｎａｂｌｅｄ ＝ Ｎｏｔ ｂａｒ（１）．Ｅｎａｂｌｅｄ 如何获得一个文档？ 下例通过索引号获取第一个文档。 Ｓｅｔ ｗｐｓＤｏｃ ＝ ｗｐｓＡｐｐ．Ｄｏｃｕｍｅｎｔｓ（１） 如何打开ｗｐｓ文档？ 在获得ＷＰＳ ａｐｐｌｉｃａｔｉｏｎ 对象之后，就能对ＷＰＳ 进行控制，下面的例子中将以只读方式打开一个ＷＰＳ文档，并 激活此文档，如果文档不存在，将出示提示信息。 ｗｐｓＡｐｐ．Ｄｏｃｕｍｅｎｔｓ．Ｏｐｅｎ ＦｉｌｅＮａｍｅ：＝＂Ｅ：＼散文．ｗｐｓ＂， ＲｅａｄＯｎｌｙ：＝ｔｒｕｅ ｗｐｓＡｐｐ．ａｃｔｉｖａｔｅｄｏｃｕｍｅｎｔ． Ａｃｔｉｖａｔｅ 如何关闭一个文档？ 关闭第一篇文档。 ｗｐｓＡｐｐ．Ｄｏｃｕｍｅｎｔｓ（１）．Ｃｌｏｓｅ 如何保存一个文档？ 如果活动文档在上次保存后进行了修改，下面的例子将保存活动文档。 Ｉｆ ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｓａｖｅｄ ＝ Ｆａｌｓｅ Ｔｈｅｎ ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｓａｖｅ Ｅｎｄ Ｉｆ 如何获得或修改当前用户名？ 下面的例子设置应用程序的用户姓名（对应于菜单条＂工具＂－＞＂选项＂－＞＂用户＂－＞＂姓名＂）： ｗｐｓＡｐｐ．ＵｓｅｒＮａｍｅ ＝ ＂ｗｐｓ ｕｓｅｒ＂ 下面的例子显示应用程序的用户名 ＭｓｇＢｏｘ ｗｐｓＡｐｐ．ＵｓｅｒＮａｍｅ 如何在当前文档中添加一个表格？ 下面的例子在文章开头添加一４行４列的表格，并在最后一个单元格里写上＂需要写些什么＂ 字样 Ｄｉｍ ｒｎｇＴｂｌ Ａｓ ＷＰＳ．Ｒａｎｇｅ Ｄｉｍ ｗｐｓＴａｂｌｅ Ａｓ ＷＰＳ．Ｔａｂｌｅ Ｓｅｔ ｒ ＝ ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｒａｎｇｅ（０， ０） Ｓｅｔ ｗｐｓＴａｂｌｅ ＝ ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｔａｂｌｅｓ．Ａｄｄ（ｒ， ４， ４） ｗｐｓＴａｂｌｅ．ｃｅｌｌ（４， ４）．Ｒａｎｇｅ．Ｔｅｘｔ ＝ ＂需要写些什么＂ 如何获取表格的行和列？ 下面的例子将获得第一个表格的行和列 Ｄｉｍ ｍｙｔａｂｌｅ Ａｓ ＷＰＳ．Ｔａｂｌｅ Ｓｅｔ ｍｙｔａｂｌｅ ＝ ｗｐｓＡｐｐ．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｔａｂｌｅｓ（１） ＭｓｇＢｏｘ ＂第一个表有＂ ＆ ｍｙｔａｂｌｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ ＆ ＂列＂ ＆ ｍｙｔａｂｌｅ．Ｒｏｗｓ．Ｃｏｕｎｔ ＆ ＂行＂ 如何选中一个表？ 下面的例子将当前活动文档的第一个表选中。 ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｔａｂｌｅｓ（１）．Ｓｅｌｅｃｔ 如何修改一个表格的某个单元格的内容？ 下面的例子对活动文档第一个表格的第一个单元格的内容进行显示及修改。 Ｄｉｍ ｍｙｔａｂｌｅ Ａｓ ＷＰＳ．Ｔａｂｌｅ Ｓｅｔ ｍｙｔａｂｌｅ ＝ ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｔａｂｌｅｓ（１） ＭｓｇＢｏｘ ＂原来（１，１）单元格的内容是：＂ ＆ ｍｙｔａｂｌｅ．ｃｅｌｌ（１， １）．ｒａｎｇｅ．ｔｅｘｔ ＇缺省表示指定单元格内容 ｐａｇｅ ２
ｍｙｔａｂｌｅ．ｃｅｌｌ（１， １）．ｒａｎｇｅ．ｔｅｘｔ ＝ ＂金山文字＂ ＭｓｇＢｏｘ ＂修改后是：＂ ＆ ｍｙｔａｂｌｅ．ｃｅｌｌ（１， １）．ｒａｎｇｅ．ｔｅｘｔ ｍｙｔａｂｌｅ．ｃｅｌｌ（１， １）．Ｒａｎｇｅ．Ｔｅｘｔ ＝ ＂ＷＰＳ Ｏｆｆｉｃｅ＂ ＭｓｇＢｏｘ ＂再次修改后是＂ ＆ ｍｙｔａｂｌｅ．ｃｅｌｌ（１， １）．Ｒａｎｇｅ．Ｔｅｘｔ ．如何设置一个表格的单元格的高度和宽度？ 下面的例子将活动文档第一张表格的所有单元格的高度和宽度设置都设为 ２００＊０．１ｍｍ。 Ｄｉｍ ｍｙｔａｂｌｅ Ａｓ ＷＰＳ．Ｔａｂｌｅ Ｓｅｔ ｍｙｔａｂｌｅ ＝ ｗｐｓＡｐｐ．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｔａｂｌｅｓ（１） ｉＣｏｌｓ ＝ ｍｙｔａｂｌｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ ｉＲｏｗｓ ＝ ｍｙｔａｂｌｅ．Ｒｏｗｓ．Ｃｏｕｎｔ Ｆｏｒ ｉ ＝ １ Ｔｏ ｉＲｏｗｓ ｍｙｔａｂｌｅ．ｃｅｌｌ（ｉ， １）．Ｈｅｉｇｈｔ ＝ ２００ Ｎｅｘｔ Ｆｏｒ ｊ ＝ １ Ｔｏ ｉＣｏｌｓ ｍｙｔａｂｌｅ．ｃｅｌｌ（１， ｊ）．Ｗｉｄｔｈ ＝ ２００ Ｎｅｘｔ 下面的例子将活动文档的第一个表格的所有单元格的宽度设为设为４００＊０．１ｍｍ。 Ｄｉｍ ｍｙｔａｂｌｅ Ａｓ ＷＰＳ．Ｔａｂｌｅ Ｓｅｔ ｍｙｔａｂｌｅ ＝ ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｔａｂｌｅｓ（１） ｎｕｍ ＝ ｍｙｔａｂｌｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ Ｆｏｒ ｊ ＝ １ Ｔｏ ｎｕｍ ｍｙｔａｂｌｅ．ｃｅｌｌ（１， ｊ）．Ｗｉｄｔｈ ＝ ４００ Ｎｅｘｔ 如何添加一个书签？ 下面的例子将在当前文档中添加书签“我”，书签的内容为从第三个字符到第五个字符。 Ｄｉｍ ｒ Ａｓ ＷＰＳ．Ｒａｎｇｅ Ｓｅｔ ｒ ＝ ｗｐｓＡｐｐ．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｒａｎｇｅ ｒ．ＳｅｔＲａｎｇｅ Ｓｔａｒｔ：＝３， Ｅｎｄ：＝５ ｗｐｓＡｐｐ．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｂｏｏｋｍａｒｋｓ．Ａｄｄ Ｎａｍｅ：＝＂我＂， Ｒａｎｇｅ：＝ｒ 如何替换一个书签的内容？ 下面的例子判断名为＂ｔｅｍｐ＂的书签是否存在于活动文档中，如果存在则替换该书签的内容。 Ｉｆ ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｂｏｏｋｍａｒｋｓ．Ｅｘｉｓｔｓ（＂ｔｅｍｐ＂） ＝ Ｔｒｕｅ Ｔｈｅｎ ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｂｏｏｋｍａｒｋｓ（＂ｔｅｍｐ＂）．ｒａｎｇｅ．ｔｅｘｔ＝＂ＲｅｐｌａｃｅＴｅｘｔ＂ Ｅｎｄ Ｉｆ 如何获取和设置默认打印机？ 本示例获取默认打印机的名字。 ＭｓｇＢｏｘ “默认的打印机为：” ＆ Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＰｒｉｎｔｅｒ 本示例将 ＬＰＴ１ 端口的本地 ＨＰ ＬａｓｅｒＪｅｔ ６ 打印机设置为活动打印机。 Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＰｒｉｎｔｅｒ ＝ ＂ＨＰ ＬａｓｅｒＪｅｔ ６ ｌｏｃａｌ ｏｎ ＬＰＴ１：＂ 如何打印一篇已打开的文档？ 本示例以默认设置打印活动文档的所有页。 Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．ＰｒｉｎｔＯｕｔ 本示例打印了活动文档中的１到３页。 Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．ＰｒｉｎｔＯｕｔ Ｆｒｏｍ：＝＂１＂， Ｔｏ：＝＂３＂ 本示例按照活动文档的７５％大小进行打印。 Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．ＰｒｉｎｔＯｕｔ ＰｒｉｎｔＺｏｏｍＰａｐｅｒＷｉｄｔｈ：＝０．７５ ＊ ＿ （８．５ ＊ １４４０）， ＰｒｉｎｔＺｏｏｍＰａｐｅｒＨｅｉｇｈｔ：＝０．７５ ＊ （１１ ＊ １４４０） 如何获取和设置某些文字的字体属性？ ｐａｇｅ ３
本示例获取和设置选中部分的字体名称和大小。 Ｗｉｔｈ Ａｐｐｌｉｃａｔｉｏｎ．Ｓｅｌｅｃｔｉｏｎ．Ｒａｎｇｅ．Ｆｏｎｔ ＭｓｇＢｏｘ ＂字体名称：＂ ＆ ．Ｎａｍｅ ＆ ｖｂＣｒＬｆ ＆ ＂字号：＂ ＆ ．Ｓｉｚｅ ＭｓｇＢｏｘ ＂即将改变字体名称和字号！＂ ．Ｎａｍｅ ＝ ＂华文行楷＂ ．Ｓｉｚｅ ＝ ２０ ＭｓｇＢｏｘ ＂改变后的内容如下：＂ ＆ ｖｂＣｒＬｆ ＆ ＂字体名称：＂ ＆ ．Ｎａｍｅ ＿ ＆ ｖｂＣｒＬｆ ＆ ＂字号：＂ ＆ ．Ｓｉｚｅ Ｅｎｄ Ｗｉｔｈ 如何获取和设置段落的格式？ 本示例获取和设置活动文档首段左右各缩进１英寸。 Ｗｉｔｈ Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｐａｒａｇｒａｐｈｓ（１） Ｍｓｇｂｏｘ “左侧缩进：” ＆ ．ＬｅｆｔＩｎｄｅｎｔ ＆ ＶｂＣｒｌｆ ＆ “右侧缩进：” ＆ ．ＲｉｇｈｔＩｎｄｅｎｔ ．ＬｅｆｔＩｎｄｅｎｔ ＝ ＩｎｃｈｅｓＴｏＰｏｉｎｔｓ（１） ．ＲｉｇｈｔＩｎｄｅｎｔ ＝ ＩｎｃｈｅｓＴｏＰｏｉｎｔｓ（１） Ｅｎｄ Ｗｉｔｈ 本示例设置活动文档首段的行距为至少 １２ 磅。 Ｗｉｔｈ Ａｐｐｌｉｃａｔｉｏｎ．ｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｐａｒａｇｒａｐｈｓ（１） ．ＬｉｎｅＳｐａｃｉｎｇＲｕｌｅ ＝ ｗｐｓＬｉｎｅＳｐａｃｅＡｔＬｅａｓｔ ．ＬｉｎｅＳｐａｃｉｎｇ ＝ １２ Ｅｎｄ Ｗｉｔｈ 二次开发电子表格部分ＦＡＱ 如何启动ＷＰＳ电子表格模块？ 如果ＷＰＳ已经启动，可以使用ＧｅｔＯｂｊｅｃｔ 获得这个进程： Ｓｅｔ ｅｔＡｐｐ ＝ ＧｅｔＯｂｊｅｃｔ（， ＂ＥＴ．Ａｐｐｌｉｃａｔｉｏｎ＂） ｅｔＡｐｐ．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ 如果ＷＰＳ电子表格模块尚未启动，可以使用ＣｒｅａｔｅＯｂｊｅｃｔ 来产生一个新进程： Ｓｅｔ ｅｔＡｐｐ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ＥＴ．Ａｐｐｌｉｃａｔｉｏｎ＂） ｅｔＡｐｐ．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ 如何退出电子表格？ 调用Ａｐｐｌｉｃａｔｉｏｎ的Ｑｕｉｔ方法可以退出电子表格模块， 下面的例子先把所有打开的表格文档存盘，然后退出。 Ｄｉｍ ｏｂｊＷＢ Ａｓ ＥＴ．ｗｏｒｋｂｏｏｋ Ｆｏｒ Ｅａｃｈ ｏｂｊＷＢ Ｉｎ ｅｔＡｐｐ．Ｗｏｒｋｂｏｏｋｓ ｏｂｊＷＢ．Ｓａｖｅ Ｎｅｘｔ ｏｂｊＷＢ ｅｔＡｐｐ．Ｑｕｉｔ Ｓｅｔ ｅｔＡｐｐ ＝ Ｎｏｔｈｉｎｇ 如何打开一个电子表格文档？ 下面的示例以只读方式打开了一个电子表格文档： Ａｐｐｌｉｃａｔｉｏｎ．Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ ＦｉｌｅＮａｍｅ：＝＂Ｅ：＼Ｔｅｓｔ．ｅｔ＂， ＲｅａｄＯｎｌｙ：＝Ｔｒｕｅ 下面的示例打开了一个有密码的电子表格文档： Ａｐｐｌｉｃａｔｉｏｎ．Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ ＦｉｌｅＮａｍｅ：＝＂Ｅ：＼Ｔｅｓｔ．ｅｔ＂， ｐａｓｓｗｏｒｄ：＝＂ｅｔ＂ 如何关闭一个电子表格文档？ 本示例关闭了第一个工作簿，并放弃所有对该工作簿的更改。 Ａｐｐｌｉｃａｔｉｏｎ．Ｗｏｒｋｂｏｏｋｓ（１）．Ｃｌｏｓｅ ＳａｖｅＣｈａｎｇｅｓ：＝Ｆａｌｓｅ 本示例关闭了所有工作簿，如果某个打开的工作簿有改变，将会询问是否保存所作的更改。 Ａｐｐｌｉｃａｔｉｏｎ．Ｗｏｒｋｂｏｏｋｓ．Ｃｌｏｓｅ 如何保存一个电子表格文档？ ｐａｇｅ ４
本示例演示保存所有已打开的工作簿，并退出金山表格。 Ｆｏｒ Ｅａｃｈ ｗ Ｉｎ Ａｐｐｌｉｃａｔｉｏｎ．Ｗｏｒｋｂｏｏｋｓ ｗ．Ｓａｖｅ Ｎｅｘｔ ｗ Ａｐｐｌｉｃａｔｉｏｎ．Ｑｕｉｔ 本示例演示了将当前工作簿另存到其它位置。 Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＳａｖｅＡｓ ＂Ｆ：＼ｔｅｍｐ．ｅｔ＂ 如何设置一个单元格的大小？ 本例演示了设置（２，２）单元格的所在行的高度为２０，所在列宽度为１００。 Ｗｉｔｈ Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＡｃｔｉｖｅＳｈｅｅｔ ．Ｒａｎｇｅ（＂Ｂ２＂）．ＲｏｗＨｅｉｇｈｔ ＝ ２０ ．Ｒａｎｇｅ（＂Ｂ２＂）．ＣｏｌｕｍｎＷｉｄｔｈ ＝ １００ Ｅｎｄ Ｗｉｔｈ 本例演示了设置当前工作表的所有行高度为２０，所有列宽度为１００。 Ｗｉｔｈ Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＡｃｔｉｖｅＳｈｅｅｔ ． ＳｔａｎｄａｒｄＨｅｉｇｈｔ＝２０ ． ＳｔａｎｄａｒｄＷｉｄｔｈ＝１００ Ｅｎｄ Ｗｉｔｈ 如何获取单元格中的内容？ 本示例获取了当前工作表中第（２，３）单元格中的内容。 ＭｓｇＢｏｘ Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＡｃｔｉｖｅＳｈｅｅｔ．Ｃｅｌｌｓ．Ｉｔｅｍ（２，３）．Ｆｏｒｍｕｌａ 如何设置单元格中的内容？ 本示例设置了当前工作表中第（２，３）单元格中的内容。 Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＡｃｔｉｖｅＳｈｅｅｔ．Ｃｅｌｌｓ．Ｉｔｅｍ（２， ３）．Ｆｏｒｍｕｌａ ＝ ＂ｔｅｍｐ＂ 如何设置单元格中的公式？ 本示例设置了当前工作表中第（２，３）单元格中的公式内容，该单元格将显示计算结果：２．５。 Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＡｃｔｉｖｅＳｈｅｅｔ．Ｃｅｌｌｓ．Ｉｔｅｍ（２， ３）．Ｆｏｒｍｕｌａ ＝ ＂＝２＋３／６＂ 本例演示了统计从（２，１）到（３，４）这一区域的所有单元格内数字的平均值。 Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＡｃｔｉｖｅＳｈｅｅｔ．Ｃｅｌｌｓ．Ｉｔｅｍ（２， ３）．Ｆｏｒｍｕｌａ ＝ ＂＝ＡＶＥＲＡＧＥ（Ｂ１，Ｃ４）＂ 如何设置单元格的边框？ 本例演示了将（２，２）单元格的边框粗细设置为ｅｔＭｅｄｉｕｍ，线条样式设置为ｅｔＣｏｎｔｉｍｕｏｕｓ，颜色设置为ｖｂＲｅｄ。 Ｗｉｔｈ Ａｐｐｌｉｃａｔｉｏｎ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＡｃｔｉｖｅＳｈｅｅｔ ．Ｒａｎｇｅ（＂ｂ２＂）．Ｂｏｒｄｅｒｓ．Ｗｅｉｇｈｔ ＝ ｅｔＭｅｄｉｕｍ ．Ｒａｎｇｅ（＂ｂ２＂）．Ｂｏｒｄｅｒｓ．ＬｉｎｅＳｔｙｌｅ ＝ ｅｔＣｏｎｔｉｎｕｏｕｓ ．Ｒａｎｇｅ（＂ｂ２＂）．Ｂｏｒｄｅｒｓ．Ｃｏｌｏｒ ＝ ｖｂＲｅｄ Ｅｎｄ Ｗｉｔｈ 如何读取批注的内容 ＷＰＳ的电子表格模块用Ｃｏｍｍｅｎｔ对象代表一个批注。以下的示例，用于读取当前表单的第三行第四列单元格（编号为“Ｄ３”）中的批注信息。 Ｄｉｍ ｏｂｊＣＭ Ａｓ ＥＴ．Ｃｏｍｍｅｎｔ Ｄｉｍ ｏｂｊＲａｎｇｅ Ａｓ ＥＴ．Ｒａｎｇｅ Ｄｉｍ ｏｂｊＳｈｅｅｔ Ａｓ ＥＴ．Ｗｏｒｋｓｈｅｅｔ Ｓｅｔ ｏｂｊＳｈｅｅｔ ＝ ＥＴａｐｐ．ＡｃｔｉｖｅＳｈｅｅｔ Ｓｅｔ ｏｂｊＲａｎｇｅ ＝ ｏｂｊＳｈｅｅｔ．Ｃｅｌｌｓ．Ｉｔｅｍ（３， ４） Ｓｅｔ ｏｂｊＣＭ ＝ ｏｂｊＲａｎｇｅ．Ｃｏｍｍｅｎｔ Ｉｆ ｏｂｊＣＭ Ｉｓ Ｎｏｔｈｉｎｇ Ｔｈｅｎ ｐａｇｅ ５
ＭｓｇＢｏｘ ＂未发现批注内容＂ Ｅｌｓｅ ＭｓｇＢｏｘ ｏｂｊＣＭ．Ｔｅｘｔ Ｅｎｄ Ｉｆ 如何添加批注？ ＷＰＳ的电子表格模块用Ｃｏｍｍｅｎｔ对象代表一个批注，通过Ｒａｎｇｅ的ＡｄｄＣｏｍｍｅｎｔ方法可以添加批注。 下面的示例为当前表单的第三行第四列单元格（编号为“Ｄ３”），添加一个批注。 Ｄｉｍ ｏｂｊＣＭ Ａｓ ＥＴ．Ｃｏｍｍｅｎｔｓ Ｄｉｍ ｏｂｊＲａｎｇｅ Ａｓ ＥＴ．Ｒａｎｇｅ Ｄｉｍ ｏｂｊＳｈｅｅｔ Ａｓ ＥＴ．Ｗｏｒｋｓｈｅｅｔ Ｓｅｔ ｏｂｊＳｈｅｅｔ ＝ ＥＴａｐｐ．ＡｃｔｉｖｅＳｈｅｅｔ Ｓｅｔ ｏｂｊＲａｎｇｅ ＝ ｏｂｊＳｈｅｅｔ．Ｃｅｌｌｓ．Ｉｔｅｍ（３， ４） ｏｂｊＲａｎｇｅ．ＡｄｄＣｏｍｍｅｎｔ ＂这是一个批注＂ 如何设置单元格内字体的属性？ 通过Ｆｏｎｔ对象可以设置和读取字体的各种属性。 下面的例子设置当前单元格的字体设为粗体４５号字 ＥＴａｐｐ．ＡｃｔｉｖｅＣｅｌｌ．Ｆｏｎｔ．Ｂｏｌｄ ＝ Ｔｒｕｅ ＥＴａｐｐ．ＡｃｔｉｖｅＣｅｌｌ．Ｆｏｎｔ．Ｓｉｚｅ ＝ ４５ 下面的例子把第３行，第４列的单元格中的文字，修改为“字体设置试验”。字体设为黑体，斜体，红色并加下滑线。 Ｄｉｍ ｏｂｊＲａｎｇｅ Ａｓ ＥＴ．Ｒａｎｇｅ Ｄｉｍ ｏｂｊＳｈｅｅｔ Ａｓ ＥＴ．Ｗｏｒｋｓｈｅｅｔ Ｓｅｔ ｏｂｊＳｈｅｅｔ ＝ ＥＴａｐｐ．ＡｃｔｉｖｅＳｈｅｅｔ Ｓｅｔ ｏｂｊＲａｎｇｅ ＝ ｏｂｊＳｈｅｅｔ．Ｃｅｌｌｓ．Ｉｔｅｍ（３， ４） ｏｂｊＲａｎｇｅ．Ｆｏｎｔ．Ｎａｍｅ ＝ ＂黑体＂ ｏｂｊＲａｎｇｅ．Ｆｏｎｔ．Ｉｔａｌｉｃ ＝ Ｔｒｕｅ ｏｂｊＲａｎｇｅ．Ｆｏｎｔ．Ｕｎｄｅｒｌｉｎｅ ＝ ｅｔＵｎｄｅｒｌｉｎｅＳｔｙｌｅＤｏｕｂｌｅ ｏｂｊＲａｎｇｅ．Ｆｏｎｔ．Ｃｏｌｏｒ ＝ ２５５ ｏｂｊＲａｎｇｅ ＝ ＂字体设置试验＂ 如何打印电子表格文档？ 通过ＰｒｉｎｔＯｕｔ方法可以实现打印电子表格文档 以下示例实现打印，当前文档的第１到第３页。 Ｄｉｍ ｗｂ Ａｓ ＥＴ．ｗｏｒｋｂｏｏｋ Ｓｅｔ ＥＴａｐｐ ＝ ＧｅｔＯｂｊｅｃｔ（， ＂ＥＴ．Ａｐｐｌｉｃａｔｉｏｎ＂） Ｓｅｔ ｗｂ ＝ ＥＴａｐｐ．Ｗｏｒｋｂｏｏｋｓ（１） ｗｂ．ＰｒｉｎｔＯｕｔ １， ３， ， Ｆａｌｓｅ， ＂＂ｐａｇｅ ６
ｐａｇｅ ７
发布评论