如何用宏在word中文档末尾自动添加随机数字

ljjqaz

老师不行冴，提示错误
代码如下：
Sub 文档插入()
  Dim sn，doc As Document
  Set doc = ThisDocument
  Randomize
  Sn = "￥"&Int(Rnd*100000)
  doc.Content.InsertAfter vbCr & sn
End Sub


另外，我要求多文档的代码，若只是单文档的代码，那我可以自己一个个手工添加

jiminyanyan

ljjqaz 发表于 2017-9-3 13:13
老师不行冴，提示错误
代码如下：
Sub 文档插入()

Sub 文档插入()
  Dim sn, doc As Document
  Set doc = ThisDocument
  Randomize
  sn = "￥" & Int(Rnd * 100000)
  doc.Content.InsertAfter vbCr & sn
End Sub

jiminyanyan

ljjqaz 发表于 2017-9-3 13:13
老师不行冴，提示错误
代码如下：
Sub 文档插入()

逗号有问题，自己改一下………………。

duquancai

ljjqaz 发表于 2017-9-3 13:13
老师不行冴，提示错误
代码如下：
Sub 文档插入()

哎！       你回头看看我在5楼是怎么回复你的？

ljjqaz

老师，明白丁，逗号须是英文的。
但还是求给个多文档插入随机数字的代码，我确实有用！！

jiminyanyan

ljjqaz 发表于 2017-9-3 15:17
老师，明白丁，逗号须是英文的。
但还是求给个多文档插入随机数字的代码，我确实有用！！

想自己学习可看老师推荐的5楼帖子，需代写QQ联系我。

duquancai

ljjqaz 发表于 2017-9-3 15:17
老师，明白丁，逗号须是英文的。
但还是求给个多文档插入随机数字的代码，我确实有用！！

下载附件，解压后打开word文档，点击按钮，选取目标文件夹，确定OK！

ljjqaz

感谢“duquancai ”老师，十分感激！！我都不知该怎么说了，这帖子内客是上面领导派的急活儿，我已经愁了好几天了。总之十万万分之感谢！！

duquancai

ljjqaz 发表于 2017-9-4 20:12
感谢“duquancai ”老师，十分感激！！我都不知该怎么说了，这帖子内客是上面领导派的急活儿，我已经愁了好 ...

随机编码  保证是6位数，但是并不保证 不是重复的6位数，就是说有可能存在重复的编码。其实修改文件名多好啊，只需要保证6位数是不重复的随机数就行了。

ljjqaz

老师好，这帖子内容是我领导的奇葩妙想，我是哭笑不得，不过托老师的福，好歹能够交差了
另外，我想咨询下，我有犬量的txt文本，文本的标题在文档中默认向左对齐，让人浏览很是不爽，不知遒能否让txt文档标题居中（文档第一行是标题），而word文档中是有居中按钮的（标题可以居中），望老师们给些启示？？