懒人办公插件

自动化办公利器——懒人办公插件，懒人办公插件可以说是按键精灵办公领域里第三方插件的佼佼者。它包含了丰富的表格和文档以及Access 数据库处理的命令，基本上表格上需要的操作都能通过懒人插件来实现。比如：读取和写入单元格内容，根据条件筛选所需要的内容，在表格里插入图片、超链接，执行宏命令等等功能。

软件介绍

懒人办公插件是一款标准COM插件，为了方便办公而制作的，支持多种语言调用，懒人办公插件支持微软OFFICE或者金山WPS办公环境下大部分功能，支持多文件同时操作，可以进行word、excel、Access的各种功能操作!

功能介绍

1、[EXCEL部分]

打开/关闭EXCEL

数据处理

标签页操作

全表操作

区域操作

单元格操作

行操作

列操作

表格设置

图片操作

宏操作

保存表格

其他便捷功能

2、[WORD部分]

打开/关闭WORD

WORD文本读写

光标操作

从当前光标处按下快捷键键

表格操作

图片操作

宏操作

保存文档

文档设置

其他便捷功能

3、[Access部分]

打开/关闭数据库、数据表

获取数据库所有表名

数据表改名、删除、增加

字段改名、删除、增加

获取数据表所有数据，可直接用EXCEL操作命令区域写入

获取、查找某字段所有数据

获取数据表总记录数

记录增加、删除、修改、获取

游标位置(当前操作位置)定位、移动

数据库执行SQL语句

注册方法

在按键精灵中使用时，启动主程序编写脚本时程序将自动加载目录中所有插件，因此建议直接将本插件放入按键精灵安装目录下的Plugin文件夹内，无需再自己注册插件。运行按键精灵，即可在插件命令中找到本插件，选择命令，在下方帮助框内将看到对应命令说明。编写脚本时，用按键精灵调用插件的语法直接插入插件命令，或者通过创建对象调用插件均可。

其他语言的注册参照各语言中使用COM插件的语法。以下简要提供三种注册方法:

1、regsvr32 注册：

VBS语法下，LazyOffice.dll放在c:test目录，可使用以下代码对插件进行注册：

Set ws = CreateObject("Wscript.Shell")

ws.run "regsvr32 ""c:testLazyOffice.dll"" /s"

2、通过写注册表注册：

VBS语法下，以LazyOffice.dll放在c:test目录为例，可使用以下代码写注册表完成注册,此种方式一般不会弹出乱七八糟的提示：

Dim ws, DLLPath

DLLPath = "c:testLazyOffice.dll"

Set ws = CreateObject("wscript.shell")

ws.run "reg add ""HKEY_CLASSES_ROOTLazy.LxjExcelClsid"" /ve /d ""{A3A988D7-8A39-4505-83B9-9E31CCB7CB16}"" /f", 0

ws.run "reg add ""HKEY_CLASSES_ROOTLazy.LxjWordClsid"" /ve /d ""{ABB8CE32-77EE-4E4F-BB0E-DBC9568B8F00}"" /f", 0

ws.run "reg add ""HKEY_CLASSES_ROOTLazy.LxjAccessClsid"" /ve /d ""{8316739A-192A-475F-B734-32AD9460CC27}"" /f", 0

ws.run "reg add ""HKEY_CLASSES_ROOTCLSID{A3A988D7-8A39-4505-83B9-9E31CCB7CB16}InprocServer32"" /ve /d " & DLLPath & " /f", 0

ws.run "reg add ""HKEY_CLASSES_ROOTCLSID{ABB8CE32-77EE-4E4F-BB0E-DBC9568B8F00}InprocServer32"" /ve /d " & DLLPath & " /f", 0

ws.run "reg add ""HKEY_CLASSES_ROOTCLSID{8316739A-192A-475F-B734-32AD9460CC27}InprocServer32"" /ve /d " & DLLPath & " /f", 0

MsgBox "注册完毕!"

或者自行使用其他代码将指定内容写入注册表对应位置。

3、手动注册：

以LazyOffice.dll放在c:test目录为例，开始菜单->运行->cmd 命令提示符下，输入cd c:test，再输入 regsvr32 LazyOffice.dll 即可，这样会提示插件已经注册到系统中。(或者直接 开始菜单->运行->输入regsvr32 c:testLazyOffice.dll)

使用方法

插件使用前需要注册，具体方法见上部分注册方法。

然后使用下面代码创建对象：

Dim LazyExcel,LazyWord,LazyAccess

Set LazyExcel= CreateObject("Lazy.LxjExcel")

Set LazyWord= CreateObject("Lazy.LxjWord")

Set LazyAccess= CreateObject("Lazy.LxjAccess")

或者 工程-引用-LazyOffice By QQ:215537937，然后声明新对象：

Dim LazyExcel As New Lazy.LxjExcel

Dim LazyWord As New Lazy.LxjWord

Dim LazyAccess As New Lazy.LxjAccess

完成准备工作，即可开始使用：

path = "c:测试.xls"

Index = LazyExcel.ExcelOpen(path,1)

示例代码中将不再包括注册部分。