Word Как вывести данные из VBA, в документ ворд

Как вывести элементы данного массива в документ ворд?

    Sub Çàäàíèå2()
Dim i, n As Integer
Dim arr(1 To 1000) As Long
n = InputBox("Ââåäèòå ÷èñëî, íå ìåíüøå 1")
For i = 1 To n
Randomize
arr(i) = Int((n * 3 - 1 + 1) * Rnd + 1)

Next

End Sub