Hallo!
Kann mir jemand Tipps geben, wie man Makros in Word 97 programmiert? Es soll einen Zufallsgenerator geben, den man z. B. für Mathe-Übungsblätter einsetzen kann. Ziffernfolgen generieren sich dann automatisch. Vielleicht gibt es ja auch Literatur zu schulspezifischen Anwendungen. Bisher habe ich leider nur kaufmännisch orientierte Büroanwendungsmöglichkeiten für Makros gefunden.
Vielleicht hilft Dir das für den Anfang weiter:
Sub GeneriereZahlen(Min As Single, Max As Single, Anzahl As Integer, Optional Kommastellen As Byte, Optional Ini As Single)
Dim i As Integer
'VBA-Hilfe-Auszug: (mit Cursor auf "Rnd" gehen und Strg-F1 drücken)
'To produce random integers in a given range, use this formula:
'Int((upperbound - lowerbound + 1) \* Rnd + lowerbound)
'Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the range.
**Randomize Ini**
For i = 1 To Anzahl
Selection.TypeText Round(((Max - Min + 1) \* **Rnd** + Min), Kommastellen) & vbLf ' vbLf ist LineFeed (Zeilenumbruch)
Next i
End Sub 'GeneriereZahlen
Sub TestGenerator()
Dim a As Single
Dim b As Single
Dim n As Integer
Dim i As Single
Dim k As Byte
Dim t As Single
Dim x As Byte
Dim Komma As String
t = Time 'um einen echten Zufallswert zu bekomen
a = Val(InputBox("Minimum:", "Eingabe", 1))
b = Val(InputBox("Maximum:", "Eingabe", 50))
n = Val(InputBox("Anzahl:", "Eingabe", 20))
k = Val(InputBox("Kommastellen:", "Eingabe", 3))
i = t
On Error Resume Next
i = CSng(InputBox("Initialisierung:", "Eingabe", t))
Komma = ""
For x = 1 To k
Komma = Komma & "0"
Next x
If Komma "" Then Komma = "," & Komma
Selection.TypeText n & " x [" & a & ".." & b & "]" & Komma & " (Ini: " & i & ")" & vbLf
Call GeneriereZahlen(a, b, n, k, i)
Selection.TypeParagraph 'Absatz
MsgBox "Fertig", vbInformation, "Meldung"
End Sub 'TestGenerator
Viele Grüße,
Kristian