Tab van de ene tafel naar de Next

Klanten Dori Lynn's gebruiken Word om eenvoudige vormen te creëren. Een van de dingen die ze doen heel vaak is het gebruik van tabellen voor het gemak bij het verplaatsen via het formulier. Dori Lynn vraagt ​​zich af of er een manier is om het tabblad van de laatste cel (veld) van de ene tafel naar de eerste cel in het volgende. Op dit moment als ze lipjes aan het eind van de tafel, het creëert een nieuwe rij.

Het indrukken van de Tab-toets wanneer de invoegpositie in een tabel cel normaal beweegt, de selectie naar de volgende cel in de tabel. Bij de laatste cel in de tabel, de Tab-toets voegt een nieuwe rij cellen aan de onderkant van de tafel en beweegt de cursor naar de eerste cel van de nieuwe rij. Dat is natuurlijk niet het gedrag dat Dori Lynn zoekt.

Er zijn een paar manieren die u kunt gebruiken voor dit probleem. Een daarvan is om te onthouden dat je de Object Browser kunt gebruiken om van de ene tafel naar de volgende. Dat is natuurlijk, betekent dat u de Tab-toets niet kunt gebruiken om van tafel naar tafel, maar u kunt op de Object Browser-knop (rechtsonder in het scherm, klikt u op de kleine "bal" tussen de dubbele up- en down-pijlen, kies dan op basis van tabel uit de opties) om die tabellen te vinden.

Als je eigenlijk wilt de Tab-toets gebruiken, dan ga je nodig hebt om een ​​macro te maken. Het indrukken van de Tab-toets wanneer de invoegpositie binnen een tabel veroorzaakt Word een opdracht nextcell genaamd, die op zijn beurt voert de opdracht MoveRight voeren. Het is mogelijk om commando een aangepaste nextcell dat Woord dwingt om te doen wat Dori Lynn wil schrijven.

Hoe je bestaande Word-opdrachten te wijzigen is bedekt met andere WordTips. De aangepaste nextcell routine, hieronder, vangt de Tab-toets en beweegt de selectie naar de volgende cel, tenzij de huidige cel is de laatste cel van de tabel. Als het is, dan is het verplaatst naar de volgende tabel in het document. Als er geen verdere tabellen in het document en het invoegpunt blijft de laatste cel van die laatste tafel.

Sub nextcell ()
Dim Ocell Zoals Cell

Met Selection
Stel Ocell = .Cells (1) .Volgende
Als Ocell dan niets is
.Breng Eenheid: = wdTable, Count: = 1
Anders
.MoveRight Unit: = wdCell
End If
End With
End Sub

De subroutine zal correct werken met tabellen die verticaal en horizontaal samengevoegde cellen hebben. Het zal tabellen verwerken binnen tafels, maar stopt bij de laatste cel van de binnenste tabel.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (5673) is van toepassing op Microsoft Word 2007, 2010 en 2013.