Создание случайного предложения с использованием Word 2007 VBA

Question

Как создать случайное предложение в слове с помощью VBA?

Например, код под созданным предложением кошка сидела на мат1. Я хотел бы объявить слова вместо 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 

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 

А может быть, красивый способ сделать это, чтобы прочитать слова из файла. Я оставляю это для вас как хорошее упражнение.