一、如何用wordvb宏来生成sql
昨天BOSS下了个命令让我用word宏的方式来快速生成sql，这样在我们建表的时候就不用在一条一条元数据的输入。从而提高效率节约成本：
接到命令后就开始着手来做，一边上网搜相关的现成的材料，一边看vb宏的视频教程。终于让我写出了这个程序，虽说有点儿小吧，可是感觉挺好的。
这里的vb宏要针对固定的数据库数据字典表格进行的。
由于代码太长就不拿出来了，这里是word中的表格式和vb运行后的结果如下：
文件名称
T_Test
中文描述
用户信息表
序
号
字段名
中文说明
数据类型
长度
缺省
允许
空值
主键
1
userid
主键ID
Integer
10
√
2
username
用户名
Varchar
50
Chen
3
password
密码
Varchar
30
我的
4
telephone
用户电话
Varchar
20
112323
5
Address
用户地址
Varchar
50
sss
√
6
Discription
用户介绍
Varchar
200
sssss
√
8
jjjjjj
试试看
varchar
122
333
7
hhhh
试试看撒
Varchar
23
111
代码如下:
CREATE TABLE T_Test (
userid integer NOT NULL ,
username varchar (50) Default 'Chen' NOT NULL ,
password varchar (30) Default '我的' NOT NULL ,
telephone varchar (20) Default '112323' NOT NULL ,
Address varchar (50) Default 'sss' ,
Discription varchar (200) Default 'sssss' ,
jjjjjj varchar (122) Default '333' NOT NULL ,
hhhh varchar (23) Default '111' NOT NULL
);
ALTER TABLE T_Test add
CONSTRAINT PK_T_Test PRIMARY KEY(userid);
comment on table T_Test is '用户信息表';
comment on column T_Test.userid is '主键ID' ;
comment on column T_Test.username is '用户名' ;
comment on column T_Test.password is '密码' ;
comment on column T_Test.telephone is '用户电话' ;
comment on column T_Test.Address is '用户地址' ;
comment on column T_Test.Discription is '用户介绍' ;
comment on column T_Test.jjjjjj is '试试看' ;
comment on column T_Test.hhhh is '试试看撒' ;
在pl/sql中跑了一遍也挺好的，直接就可以执行。
您可能感兴趣的文章:VB.net读取Word文档属性的方法用vbscript把 Word 文档保存为文本文件的代码VB中的RasEnumConnections函数返回632错误解决方法VB6中的LSet语句和RSet语句详解VB实现的16位和32位md5加密代码分享通过VB6将ASP编译封装成DLL组件最简教程 附全部工程源文件VB6反编译软件VB RezQV2.4a 正式版注册码VB调用Word拼写检查功能实例
二、word宏vb中怎样在word中改内容
示例：把c:1.doc中的“一”替换为“壹”：
Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open("c:1.doc")
.Content.Find.Execute "一", , , , , , , , , "壹", 2
.Save
End With
wordObj.quit
End Sub
