Word 2007を使用したランダムな文章の作成VBA

Question

VBAを使用して単語でランダムな文章を作成するにはどうすればよいですか？

たとえば、下のコードは、catが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 

Answer 1

以下は、配列を宣言し、単語で埋めます。次いで、ランダム・ワードは、アレイから選択された文（簡略化のためにメッセージボックスとして示される）に添加する。これを行うために

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 

多分よりよい方法は、ファイルから単語を読み出すことです。私はあなたに素晴らしい運動術としてそれを任せます。