10-Min-Abschriften (Makro für Lehrer)

[christianF]

Hallo Fans der 10-Minuten-Abschriften,

in einem vorangegangenem Beitrag habe ich mein Makro für 10-Min-Abschriften zur Verfügung gestellt.

Hier lege ich noch eine Version für Lehrer bei. (Minuten(L)_V18.dot

Mit der Lehrer-Version des Makros können folgende Arbeiten schnell erledigt werden:
- Erstellen von Musterlösungen (Zeitbegrenzung von 10 Minuten auf 1 Minute reduziert)
- Erstellen von ausgezählten 10-Min-Abschriften
-> Anschlagszahlen am Zeilenende
-> Zeilennummern am Zeilenanfang
-> Beliebige Randeinstellungen möglich
- Integration des Dokumentenvergleichs (Musterlösung mit Schülerarbeit)

Bei der Installation geht ihr bitte folgendermaßen vor:

1. Datei "Minuten(L)_V18.dot" in das Start-Up-Verzeichnis von Word kopieren.
z. B. C:\Dokumente und Einstellungen\Christian\Anwendungsdaten\Microsoft\Word\STARTUP

Minuten(L)_V18.dot

Achtung: Es darf nur die Lehrer oder die Schülerversion in das Start-Up-Verzeichnis kopiert werden.
Wenn beide Versionen in das Start-Up-Verzeichnis kopiert werden funktioniert in aller Regel die Schülerversion nicht korrekt.

Anbei noch eine Installationsanweisung für die Lehrerversion.

Beschreibung-(Installation)-V18.doc

Bei Rückfragen und Anregungen meldet euch bitte per Mail bei mir.

Viel Spaß bei der Arbeit.

Gruß

Christian Franke

[mathias]

Hallo,
ich hab das Macro mit einer Menüleiste (Ribbon) für Word 2008-10 versehen. Wenn es jemand haben will bitte ich um Nachricht.

P.s. ist überigends eine gute Sache!

[sunshine-sr]

Hallo Christian,

ich habe mich etwas in dein Makro befasst. Eine interessante Anwendung, die viel Arbeit sparen kann .

Ich habe unter Word 2003 das Problem, dass die gezählten Anschläge nicht wie gewünscht angezeigt werden. Sicher, das lässt sich manuell recht einfach nachregeln, aber du wolltest ja Anregungen.

Da ich viel mit OCR-Texten und Texten aus dem Internet arbeite, wäre auch die automatisierte Umwandlung von formatierten Texten in attributfreie Texte in der Schriftart Courier New mit wählbarer Schriftgröße denkbar .

Oliver

[christianF]

Hallo Oliver,

bin etwas spät dran mit der Antwort

Wenn du einen neuen 10-Min-Text erstellst, musst du erst die Seitenränder links auf 2,41 cm und rechts auf 2,00 cm einstellen, und anschließend mit dem Makro jede Zeile mit einer Absatzmarke versehen.

Wichtiger Zwischenschritt!!!
Anschließend musst du die Seitenränder verringern (links 1,41 cm und rechts 1,00 cm) um Platz für die Zeilennummern und Anschläge zu schaffen.

Als dritten Schritt kannst du dann mit dem Makro die Zeilennummern, die Tabstopplinie und die Anschläge einfügen lassen.

Dann funkt's.

Gruß

Christian

[sunshine-sr]

Hi Christian,

das würde heißen, dass auch die Schüler die Seitenränder immer ändern müssten, um ihr Geschriebenes mit der Vorlage vergleichen zu können. Schadet sicherlich nicht.

Ich habe Texte, da möchte ich die Randeinstellungen allerdings nicht mehr ändern, da sonst ein unangenehmer Flattersatz entsteht und für den Anfängerunterricht durch deine vorgeschlagenen Randeinstellungen bei Courier 12 ziemlich lange Zeilen entstehen würden.

Um meine Randeinstellungen beibehalten zu können, markiere ich den Text und lasse mit deinem Makro die Enter einsetzen. Die Abfrage nach dem rechten Einzug bleibt auf Null. Dann lasse ich dein Makro die Anschläge zählen, einen rechtsbündigen Tabulator einfügen, die Nummerierung (schreibt man übrigens neu mit "mm") durchführen und die Enter nicht mit zählen.

Bei bestehender Markierung verschiebe ich dann den rechten Tabstopp und den Leiste-Tabstopp möglichst weit nach rechts. Wenn ich abschließend den rechten Einzug deckungsgleich mit dem Leiste-Tabstopp bringe, liegt mein Text unverändert und ausgezählt vor.

So klappt das recht gut.

VG Oliver

[christianF]

Hallo Oliver,

ja, so gehts auch )

Ich mach immer den Zwischenschritt mit der Randeinstellung, dann muss ich die Tabulatoren nicht verschieben.

Gruß

Christian

[FKD]

- Erstellen von Musterlösungen (Zeitbegrenzung von 10 Minuten auf 1 Minute reduziert)

Und ich wollte gerade meckern

Hier noch schnell der VisualBasic-Code nach dem man suchen muss, wenn man die Zeiteinstellung verändern möchte:

Code: Alles auswählen

' hier wird die Zeit eingestellt
Endezeit = Merkzeit + TimeValue("00:01:00")
Application.OnTime When:=Now + TimeValue("00:01:00"), _
    Name:="Normal.tastschr18.signal18"

End Sub