如何随机排列句子？

zzpsx

如何随机排列以下句子.rar (3.69 KB, 下载次数: 13)

2018-4-26 06:45 上传

点击文件名下载附件

duquancai

要保留原“格式”，还是有一定难度的！

zzpsx

duquancai 发表于 2018-4-26 09:10
要保留原“格式”，还是有一定难度的！

不用保留源格式，谢谢。

ming0018

Sub 随机洗牌()
    Dim myDoc As Document
    Set myDoc = ActiveDocument
    Dim arr(1 To 10) As String
    Dim n%
    For i = 1 To 10
        arr(i) = myDoc.Paragraphs(i + 1).Range
    Next i
    n = UBound(arr)
    Randomize
    For i = 1 To n
        r = Int(Rnd * (n - i + 1)) + i
        t = arr(r): arr(r) = arr(i): arr(i) = t
    Next
   
    myDoc.Paragraphs.Last.Range.InsertAfter Chr(13) & Chr(13) & ":"
    For i = 1 To 10
        myDoc.Paragraphs.Last.Range.InsertAfter arr(i)
    Next i

End Sub

基本实现了你的需求，有变化自己改一下变量范围。

ming0018

怎么又是你

zzpsx

ming0018 发表于 2018-4-28 10:03
Sub 随机洗牌()
    Dim myDoc As Document
    Set myDoc = ActiveDocument

谢谢高手，终于能随机排列了。

tangqingfu

ming0018 发表于 2018-4-28 10:03
Sub 随机洗牌()
    Dim myDoc As Document
    Set myDoc = ActiveDocument

谢谢分享。做个标记，抽空学习！