Клиенты Дори Линн используют Word для создания простых форм. Одна из вещей, которые они делают довольно часто, — это использование таблиц для облегчения перемещения по форме.

Дори Линн задается вопросом, есть ли способ перейти от последней ячейки (поля) одной таблицы к первой ячейке следующей. Прямо сейчас, если она делает табуляцию в конце таблицы, создается новая строка.

Нажатие клавиши Tab, когда курсор вставки находится в ячейке таблицы, обычно перемещает выделение в следующую ячейку таблицы. В последней ячейке таблицы клавиша Tab добавляет новую строку ячеек в нижнюю часть таблицы и перемещает точку вставки в первую ячейку новой строки. Очевидно, это не то поведение, которого ищет Дори Линн.

Есть несколько подходов, которые вы можете использовать для решения этой проблемы. Во-первых, следует помнить, что вы можете использовать обозреватель объектов для перехода от одной таблицы к другой. Это, конечно, означает, что вы не можете использовать клавишу Tab для перехода от таблицы к таблице, но вы можете нажать кнопку Object Browser (нижний правый угол экрана, нажмите маленький «шарик» между двойными вверх- и стрелки вниз, затем выберите «Обзор по таблице» в списке вариантов), чтобы найти эти таблицы.

Если вы действительно хотите использовать клавишу Tab, вам нужно будет создать макрос. Нажатие клавиши Tab, когда точка вставки находится внутри таблицы, заставляет Word выполнять команду с именем nextcell, которая, в свою очередь, выполняет команду MoveRight. Можно написать собственную команду nextcell, которая заставит Word делать то, что хочет Дори Линн.

link: / wordribbon-Editing_Words_Built-in_Commands [Как вы изменяете существующие команды Word] рассматривается в других WordTips. Пользовательская процедура nextcell, показанная ниже, перехватывает клавишу Tab и перемещает выделение в следующую ячейку, если текущая ячейка не является последней ячейкой таблицы. Если да, то он переходит к следующей таблице в документе. Если в документе больше нет таблиц, то точка вставки остается в последней ячейке этой последней таблицы.

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

Подпрограмма будет правильно работать с таблицами, в которых ячейки объединены по вертикали и горизонтали. Он будет обрабатывать таблицы внутри таблиц, но остановится на последней ячейке внутренней таблицы.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (5673) относится к Microsoft Word 2007, 2010 и 2013.