Vba MSWord 2010顺序编号

Vba MSWord 2010顺序编号,vba,ms-word,increment,Vba,Ms Word,Increment,这适用于Word文档上的VBA 我正在使用activex在Word 2010上创建一个可填充表单 空白表格将存储在网络驱动器上,员工可以根据需要填写表格,然后将填写好的表格发送到电子邮件。填写表单的人不会保存文档,因为它会将完成的表单发送到电子邮件,我可以在那里保存它 以下是我的目标: A:让用户能够“点击”文本框,并让它以顺序生成一个数字,从15001开始,每次打开文档时递增+1 B:将相同的概念放入文本框中,但通过“命令按钮”生成序列号。MS Word不提供此类功能。 我建议创建MS Exc

这适用于Word文档上的VBA

我正在使用activex在Word 2010上创建一个可填充表单

空白表格将存储在网络驱动器上,员工可以根据需要填写表格,然后将填写好的表格发送到电子邮件。填写表单的人不会保存文档,因为它会将完成的表单发送到电子邮件,我可以在那里保存它

以下是我的目标:

A:让用户能够“点击”文本框,并让它以顺序生成一个数字,从15001开始,每次打开文档时递增+1


B:将相同的概念放入文本框中,但通过“命令按钮”生成序列号。

MS Word不提供此类功能。 我建议创建MS Excel工作簿或MS Access数据库(首选)作为数据源。 每次用户打开表单时(单击文本框内部或commandbutton),宏都应向数据库中添加新记录并按顺序返回新编号

采取的步骤: 1) 创建新Access数据库并添加新表:

CREATE TABLE MyData
(
ID PRIMARY KEY AUTOINCREMENT,
CurrentDate Date
)
You can add other fields if it's needed. I added *CurrentDate* to be able to to get statistic information about number of documents created day by day ;)
2) 并使用来自的ConnectionString连接到数据库

3) 使用CursorType=adOpenDynamic

4) 获取ID

就这些

万一有麻烦,请告诉我。我会改进我的答案