如何用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 '试试看撒' ;