能否不用excel，将word文档里面的每行文字乱序？

shoe12

请教各位大侠：能否不用excel，将word文档里面的每一行文字随机乱序？

shoe12

我搜索了度娘，基本都是复制到excel，然后利用公式排序乱序，很麻烦。就是不知道有没有不用excel，就用word本身来每行文字乱序的？

daibao88

把行和段落先搞明白吧。用vba 两者都可以的.

zldccmx

zldccmx

1. Sub zldccmx()
   
2.     Dim Ic&, Arr(), Dic, I&, R&
   
3.     Ic = ThisDocument.Paragraphs.Count
   
4.     ReDim Arr(1 To Ic)
   
5.     For I = 1 To Ic
   
6.         Arr(I) = ThisDocument.Paragraphs(I).Range.Text
   
7.     Next
   
8.     Set Dic = CreateObject("Scripting.dictionary")
   
9.     Do
   
10.         DoEvents
    
11.         If Dic.Count = Ic Then Exit Do
    
12.         R = Int(Rnd() * Ic + 1)
    
13.         Dic("" & R) = ""
    
14.     Loop
    
15.     I = 0
    
16.     For Each Key In Dic.keys
    
17.         I = I + 1
    
18.         ThisDocument.Paragraphs(Key).Range.Text = Arr(I)
    
19.     Next
    
20. End Sub

复制代码

shoe12

zldccmx 发表于 2021-12-15 10:01

是每一行，不是每个段落，不知道大侠这个如何使用？我插入这个VBA代码，另存为启用宏的模板，重新打开没变化呢？

zhanglei1371

给老大出难题了，搞行比较麻烦