MSWord 2010-顺序编号

Question

这适用于Word文档上的VBA。

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

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

以下是我的目标：

答：让用户能够点击＆＃34;进入文本框并让它在序列中生成一个数字，每次打开文档时增加+ 1，从15001开始

B：在文本框中使用相同的概念，但序列号由＆＃34;命令按钮＆＃34;

生成

Answer 1

MS Word不提供此类功能。 我建议创建MS Excel工作簿或MS Access数据库（preffered）作为数据源。 每次用户打开表单（在文本框或命令按钮内单击）时，宏都应该向数据库添加新记录并按顺序返回新的数字。

要做的步骤： 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）Create new ADODB.Connection并使用http://www.connectionstrings.com/access/

中的ConnectionString连接到数据库

3）Create new ADODB.Recordset使用 CursorType = adOpenDynamic

4）Add new record获取 ID

这就是全部！

遇到麻烦，请告诉我。我会改进我的答案。