使用Word 2007 VBA創建隨機句子

如何使用VBA在單詞中創建隨機句子？使用Word 2007 VBA創建隨機句子

例如，下面的代碼創建了一個句子，貓坐在mat1上。我想宣佈單詞代替i。

可以使用VBA嗎？

Sub Randomsentence() 
    Dim text As String 
    Dim s As String 
    MyText = "The cat sat on the" 
    i = Int(4 * Rnd()) 
    Selection.TypeText (MyText) 
    Selection.TypeText (i) 
    End Sub

來源

2016-04-09 Programmer_nltk

鍵入* = lorem（）*然後按回車鍵生成lorem ipsum。 – ykaragol

我想在隨機變量中聲明單詞並在程序運行時調用它。例如結果應該是。貓坐在墊子上。貓坐在地板上。等等，其中mat floor這個詞被硬編碼並被調用。 –

以下聲明一個數組並填充單詞。然後一個隨機字從所述陣列中選擇並添加到句子（示爲MSGBOX爲簡單起見）：

Sub Randomsentence() 
    Dim MyText As String 
    Dim s(5) As String 
    Dim i As Integer 
    s(1) = "mat" 
    s(2) = "floor" 
    s(3) = "roof" 
    s(4) = "car" 
    s(5) = "garage" 
    MyText = "The cat sat on the " 
    i = Int(5 * Rnd()) 
    MsgBox MyText & s(i) 
End Sub

甲也許更好的方式做到這一點是從文件中讀取的話。我把這件事留給你作爲一個很好的練習。

來源

2016-04-09 09:28:04

使用Word 2007 VBA創建隨機句子

回答

相關問題