如何用word vb宏来生成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中跑了一遍也挺好的，直接就可以执行。