Kim möchte Listen mit Aufzählungszeichen verwenden, um Notizen während einer Beobachtung im Klassenzimmer aufzuzeichnen. Jede Notiz (jedes Element mit Aufzählungszeichen in einer Liste) muss einen Zeitstempel haben, der angibt, wann sie beobachtet und erstellt wurde. Sie fragt sich, wie der Zeitstempel am besten automatisch zu jedem Listenelement mit Aufzählungszeichen hinzugefügt werden kann, wenn es erstellt wird.

Es gibt verschiedene Möglichkeiten, wie Sie eine Lösung für diesen Bedarf finden können, und für jeden Ansatz muss ein Makro verwendet werden. Der Grund dafür ist, dass Word keine Verknüpfungen oder Tools enthält, die Ihrem Dokument automatisch einen Zeitstempel hinzufügen. Sie können natürlich auch nur die herkömmlichen Werkzeuge verwenden, um ein Datum und eine Uhrzeit einzufügen (z. B. Alt + Umschalt + T drücken), aber Sie werden feststellen, dass dies unbefriedigend ist – die Werkzeuge fügen ein Feld ein, das auf das aktuelle Datum und die aktuelle Uhrzeit aktualisiert wird wann immer Felder aktualisiert werden.

Eine einfache Lösung besteht darin, ein Makro zu erstellen, das Datum und Uhrzeit einfügt:

Public Sub TimeStamp     Selection.InsertDateTime _       DateTimeFormat:="MM/dd/yyyy hh:mm:ss" & _       " - ", InsertAsField:=False End Sub

Sie können das Makro einer Tastenkombination zuweisen. Auf diese Weise können Sie während der Eingabe die Verknüpfung drücken und so an jeder Stelle in Ihrem Dokument ein statisches Datum und eine statische Uhrzeit einfügen.

Eine vollständigere Lösung könnte darin bestehen, ein Makro zu erstellen, das nicht nur Datum und Uhrzeit einfügt, sondern auch einen Absatz einfügt und ihn mit dem gewünschten Aufzählungszeichenformat formatiert. Erstellen Sie zunächst einen Absatzstil (ich nenne ihn „MyBullet“), der alle gewünschten Formatierungen im Absatz widerspiegelt – Schriftart, Größe, Einzug, Aufzählungszeichenformat, Abstand usw. Erstellen Sie anschließend ein Makro, das dem folgenden ähnelt:

Sub Observe()

Selection.TypeParagraph     Selection.Style = ActiveDocument.Styles("MyBullet")

Selection.Font.ColorIndex = wdRed     Selection.InsertDateTime _       DateTimeFormat:="MM/dd/yyyy hh:mm:ss" & _       " - ", InsertAsField:=False     Selection.Font.ColorIndex = wdAuto End Sub

Wenn Sie das Makro ausführen, fügt es an der Einfügemarke einen neuen Absatz ein, formatiert diesen Absatz im MyBullet-Stil, fügt Datum und Uhrzeit in Rot ein und bleibt dann bereit, Ihre Beobachtung einzugeben.

Nach alledem sollten Sie verstehen, dass Word möglicherweise nicht die beste Anwendung für den von Kim beschriebenen Zweck ist. Ein besserer Ansatz könnte die Verwendung von OneNote sein, mit dem Notizen (Beobachtungen) einfach erstellt und mit Zeitstempeln versehen werden können. Informationen in OneNote können dann nach Ihren Beobachtungssitzungen in ein Word-Dokument kopiert werden, um Ihren Abschlussbericht zu erstellen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (11459) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Hinzufügen automatischer Zeitstempel.