Question

如何使用VBA在单词中创建随机句子？

例如，下面的代码创建了一个猫坐在mat1上的句子。我想用声明来代替我。

是否可以使用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

Answer 1

以下声明一个数组并用文字填充它。然后从数组中选择一个随机单词并添加到句子中（为简单起见，显示为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

更好的方法是从文件中读取单词。我把它留给你作为一个很好的练习。

使用Word 2007 VBA

1 个答案: