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, wird an der Einfügemarke ein neuer Absatz eingefügt, dieser Absatz wird im MyBullet-Stil formatiert, Datum und Uhrzeit werden rot eingefügt, und Sie können dann Ihre Beobachtung eingeben.

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 (11460) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Hinzufügen automatischer Zeitstempel.