Kann ich eine Zufallszahl in Microsoft Word erstellen?

2 Antworten

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

Was möchtest Du wissen?