Автоматическая установка вкладок правого выноски (Microsoft Word)
Часто бывает, что для форматирования требуется установить правую вкладку на правом поле и убедиться, что на ней есть подчеркивание или точка. Это делается довольно часто, если вы создаете формы с раскладкой «вручную». Однако установка таких вкладок может вызвать затруднения, поскольку требует использования диалоговых окон или ленты и повторяющихся действий.
Если вы установили довольно много таких вкладок, вас может заинтересовать макрос RightTab VBA, показанный ниже. При запуске он проверяет каждый выбранный абзац, очищает все их позиции табуляции и устанавливает одну правую табуляцию на правом поле с линией подчеркивания.
Sub RightTab() Dim MarPos As Integer, NewPos As Integer Dim ThisPar As Paragraph MarPos = Selection.PageSetup.PageWidth - _ Selection.PageSetup.LeftMargin - _ Selection.PageSetup.RightMargin - _ Selection.PageSetup.Gutter Set myrange = Selection.Range For Each ThisPar In myrange.Paragraphs NewPos = MarPos - ThisPar.RightIndent ThisPar.TabStops.ClearAll ThisPar.TabStops.Add Position:=NewPos, _ Alignment:=wdAlignTabRight, _ Leader:=wdTabLeaderLines Next ThisPar End Sub
Макрос будет работать, даже если выбранные абзацы имеют разные правые поля друг от друга. Он также принимает во внимание текущую настройку страницы.
Если вы не хотите, чтобы макрос удалял все позиции табуляции, уже установленные в выбранных абзацах, удалите строку, в которой используется метод ClearAll.
Если вы хотите использовать выноски с точками на вкладке вместо подчеркивания, измените имя константы wdTabLeaderLines на wdTabLeaderDots.
_Примечание: _
Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.
link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера]
.
WordTips — ваш источник экономичного обучения работе с Microsoft Word.
(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (11110) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:
link: / word-Automatically_Setting_Right_Leader_Tabs [Автоматическая установка вкладок правого лидера]
.