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

ljjqaz

        我想求个宏，我有大星word文件，想在同文件夹下的每个word文档末尾插入6位数的数字（数字是随机的），书写格式为“￥xxxxxx”（xxxx为6位随机数字）。我的本意是绐每个word文件一个随机编码，不知道是否能够实现？？
         我的word资料数目是好几万，若依次手工添加，会手抽筋的，不知道各位老师有无办法实现这个代码？？？
         随机数字不能添加到文件名上，那样会影响到重复文件清理的

jiminyanyan

为什么要这么做？是为了什么…………

ljjqaz

jiminyanyan 发表于 2017-9-1 21:04
为什么要这么做？是为了什么…………

      因为我要给每一伤word文档内容里植入随机编码，便于登记在册，日后便于编写摘之处，一个编码就代表一个案例文档。
    如果在文档标题上添加序号，会影响文件的重复清哩
    我在网上找不到相类似宏代码，无奈论坛求助。望大神想想办法。
最好能遍历文件夹（含子目录的）

ljjqaz

坛主、管理员：我想将此帖换个孑版块，再发帖，不知行不行？

duquancai

ljjqaz 发表于 2017-9-3 09:16
坛主、管理员：我想将此帖换个孑版块，再发帖，不知行不行？

不就是：遍历文件夹（含子文件夹）下的文件？至于在遍历的每个文档最后插入随机编号那就不在话下了！！！
请先移步到到这里看懂了就没问题了！！！
http://club.excelhome.net/thread-1185089-1-1.html

ljjqaz

老师误会了，遍历的每个文档最后在文档末尾插入随机编号才是重中之重，（网上没有类似代码，故无从参考）

duquancai

ljjqaz 发表于 2017-9-3 10:27
老师误会了，遍历的每个文档最后在文档末尾插入随机编号才是重中之重，（网上没有类似代码，故无从参考）

既然你这样认为：“在文档末尾插入随机编号才是重中之重”？我就给一个在单个文档末尾插入随机编号的代码，至于其它文档依葫芦画瓢（就是遍历文档了！！！）

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

duquancai

ljjqaz 发表于 2017-9-3 10:27
老师误会了，遍历的每个文档最后在文档末尾插入随机编号才是重中之重，（网上没有类似代码，故无从参考）

既然这样：“在文档末尾插入随机编号才是重中之重”？我就给一个在单个文档末尾插入随机编号的代码，至于其它文档依葫芦画瓢（就是遍历文档了！！！）

ljjqaz

老师好，麻烦给个遍历文件夹下多文档的（最好能注释下，让我学习学习），我只会改改代玛中数字等，其至难度大的，有些眼晕

duquancai

ljjqaz 发表于 2017-9-3 11:14
老师好，麻烦给个遍历文件夹下多文档的（最好能注释下，让我学习学习），我只会改改代玛中数字等，其至难度 ...

5楼，我给你链接了啊！那个是专题论述啊？我在5楼说的很清楚了，然而你却说我误会了，我按照你6楼说的给你了是重中之重的代码了吧？至于遍历这不是重点的，你自己搞就行了。