Kann ich eine Zufallszahl in Microsoft Word erstellen?

Folgendes Makro sucht die erste Tabelle in einem Dokument, fügt eine Spalte vor der Tabelle ein und füllt diese mit Zufallszahlen aus dem Bereich 0 .. 1

Das Makro erstellen mit Extras -> Makro -> Makros -> Erstellen und Code einfügen.

Das Makro ausführen mit Extras -> Makro -> Makros - Ausführen

oder einn Knopf auf der Symbolleiste anlegen.

 Sub Makro2()
    Randomize
    Set myTable = ActiveDocument.Tables(1)
    Set aColumn = myTable.Columns.Add(BeforeColumn:=myTable.Columns(1))
    For Each aCell In aColumn.Cells
        aCell.Range.Delete
        aCell.Range.InsertAfter Rnd()
    Next aCell
    End Sub