如何实现打开文档编号自动递增？

413191246se

* 楼主，我的宏毫无问题！我上面已经说了，我让你录制一个新宏，然后，找到它，就会进入通用的标准宏模块 NewMacros 中，将我的宏先复制到空白文档中，再全选剪切下来，再粘贴到这个 NewMacros 模块中即可自动发挥作用，而无需你手动干预（你把我的宏放到文档内的宏模块 ThisDocument 中了，这是错误的！），每次只要调入“内部专报.docx”即可开始录入编辑，然后保存退出即可。
* 再说一遍：不要把宏放到文档内的宏模块 ThisDocument 中，而要放到通用标准宏模块 NewMacros 中。模板文档“内部专报.docx”只须是一个普通文档即可。

* 请录制一个新宏，比如：宏 3，录制一个空宏即可，然后，按 Alt + F8 找到“宏 3”，再点“编辑”，然后，就进入了 VBA 代码编辑环境 VBE 中了！这也就是通用标准宏模块 NewMacros 中了，把我的宏放到这里即可（请 楼主 认真按照我说的做，毫无问题的）。

413191246se

* 楼主，我的代码毫无问题！只是你放错地方了！
* 请录制一个新宏，比如：“宏 3”。录制完毕后，按 Alt + F8 找到宏名列表，找到“宏 3”，再按“编辑”按钮，这样就进入到了 VBE（即 VBA 编程环境）的标准宏模块 NewMacros 中（你放到了文档的内部模块 ThisDocument 中）。
* 把我的代码复制粘贴到一个新建文档中，全选，剪切，然后在 VBE 中，在比如“宏 3”下面，粘贴上我的代码，关闭 VBE，然后打开“内部专报.docx”即可。以后每次打开此文档即可自动编号另存为新文档，只须录入编辑保存退出即可。

cfsusu

413191246se 发表于 2022-6-29 21:06
* 楼主，我的代码毫无问题！只是你放错地方了！
* 请录制一个新宏，比如：“宏 3”。录制完毕后，按 Alt + ...

经过不断测试，终于找到问题的所在了，是缺了一行保存覆盖的代码。现在的代码只能运行一次，生成一个递增的子文件，而本身的序号递增后没有保存到“内部专报”里，原来编号是002，因为自身没保存覆盖后的编号，下次打开还是002。增加了自己覆盖保存，运行后除了另存为新的子文件后，原文件的序号也跟着递增，实现了我的需求，再次感谢老师的耐心指教！谢谢！

413191246se

* 楼主 还是曲解了我的意思！——我让你把代码放到 通用标准宏模块 NewMacros 中，这个模块保存于默认模板 Normal.dotm 中；而你放的位置是文档自身的宏模块 ThisDocument 中，两者是不一样的。
  
* 还有，你的模板文件“内部专报.docx”不必包含宏代码，只是一个普通的文档即可，它的起始期数是 001 也好，002 也好，每次只要你打开这个模板即可自动另存为新的期号，你只管编辑保存退出即可。
   
* 根本不需要什么覆盖的代码，我的代码会自动查找文件夹中是否有某期，如果有，会升一期的。
   
* 楼主，你到底认真读了我的回复没有？你是把代码放错地方了！也曲解了模板的作用。
     
* 我的代码是只要你打开“内部专报.docx”就会自动运行，无需手动运行；如果你手动运行它，你就错了（希望 楼主 再反复读一读我的回复！）。

cfsusu

413191246se 发表于 2022-6-30 20:11
* 楼主 还是曲解了我的意思！——我让你把代码放到 通用标准宏模块 NewMacros 中，这个模块保存于默认模板  ...

谢谢老师！我是一个新手，通过这次交流让我学到了很多知识，现在知道怎么用了。