Die Kunden von Dori Lynn verwenden Word, um einfache Formulare zu erstellen. Eines der Dinge, die sie häufig tun, ist die Verwendung von Tabellen, um das Durchlaufen des Formulars zu erleichtern.

Dori Lynn fragt sich, ob es eine Möglichkeit gibt, von der letzten Zelle (Feld) einer Tabelle zur ersten Zelle in der nächsten zu wechseln. Im Moment wird eine neue Zeile erstellt, wenn sie am Ende der Tabelle eine Registerkarte erstellt.

Durch Drücken der Tabulatortaste, wenn sich die Einfügemarke in einer Tabellenzelle befindet, wird die Auswahl normalerweise zur nächsten Zelle in der Tabelle verschoben. In der letzten Zelle der Tabelle fügt die Tabulatortaste am Ende der Tabelle eine neue Zellenreihe hinzu und verschiebt die Einfügemarke in die erste Zelle der neuen Zeile. Das ist offensichtlich nicht das Verhalten, nach dem Dori Lynn sucht.

Es gibt verschiedene Ansätze, die Sie für dieses Problem verwenden können. Beachten Sie, dass Sie mit dem Objektbrowser von einer Tabelle zur nächsten wechseln können. Das bedeutet natürlich, dass Sie nicht mit der Tabulatortaste von Tabelle zu Tabelle wechseln können, sondern auf die Schaltfläche Objektbrowser (untere rechte Ecke des Bildschirms, klicken Sie auf den kleinen „Ball“ zwischen dem doppelten Bild). und Abwärtspfeile, wählen Sie dann „Nach Tabelle durchsuchen“ aus den Optionen), um diese Tabellen zu finden.

Wenn Sie die Tabulatortaste tatsächlich verwenden möchten, müssen Sie ein Makro erstellen. Durch Drücken der Tabulatortaste, wenn sich die Einfügemarke in einer Tabelle befindet, führt Word einen Befehl namens nextcell aus, der wiederum den Befehl MoveRight ausführt. Es ist möglich, einen benutzerdefinierten nextcell-Befehl zu schreiben, der Word dazu zwingt, das zu tun, was Dori Lynn will.

Wie Sie vorhandene Word-Befehle ändern wird in anderen WordTips behandelt. Die benutzerdefinierte Routine für die nächste Zelle unten fängt die Tabulatortaste und verschiebt die Auswahl in die nächste Zelle, es sei denn, die aktuelle Zelle ist die letzte Zelle der Tabelle. Wenn dies der Fall ist, wird zur nächsten Tabelle im Dokument gewechselt. Wenn das Dokument keine weiteren Tabellen enthält, verbleibt die Einfügemarke in der letzten Zelle dieser letzten Tabelle.

Sub nextcell()

Dim oCell As Cell

With Selection         Set oCell = .Cells(1).Next         If oCell Is Nothing Then             .Move unit:=wdTable, Count:=1         Else             .MoveRight Unit:=wdCell         End If     End With End Sub

Das Unterprogramm funktioniert ordnungsgemäß mit Tabellen, in denen vertikal und horizontal zusammengeführte Zellen vorhanden sind. Es verarbeitet Tabellen innerhalb von Tabellen, stoppt jedoch an der letzten Zelle der inneren Tabelle.

_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 beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (5673) gilt für Microsoft Word 2007, 2010 und 2013.