Création de phrases aléatoires à l'aide de Word 2007 VBA

Question

Comment créer une phrase aléatoire dans Word à l'aide de VBA?

Par exemple, le code ci-dessous a créé une phrase que le chat s'est assis sur le mat1. Je voudrais déclarer des mots à la place de i.

Est-il possible d'utiliser 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

Le tableau suivant décompose un tableau et le remplit de mots. Ensuite, un mot au hasard est sélectionné dans le tableau et ajouté à la phrase (présentée comme MsgBox pour simplifier):

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 

A peut-être plus belle façon de le faire est de lire les mots d'un fichier. Je vous laisse cela comme un bel exercice.