В процессе разработки документа могут возникнуть ситуации, когда вы захотите транспонировать два соседних абзаца. Все, что вам нужно сделать, это поместить точку вставки между двумя абзацами, которые вы хотите транспонировать, а затем выполнить макрос из этого совета. Если вы поместите курсор внутри абзаца, предполагается, что вы хотите транспонировать текущий абзац следующим образом. Этот макрос, TransposeParagraphs, сделает свое дело:

Sub TransposeParagraphs()

Selection.MoveUp Unit:=wdParagraph, _       Count:=1, Extend:=wdExtend     Selection.MoveLeft Unit:=wdCharacter, Count:=1     Selection.MoveDown Unit:=wdParagraph, _       Count:=1, Extend:=wdExtend     Selection.Range.Cut     Selection.MoveDown Unit:=wdParagraph, Count:=1     Selection.Range.Paste End Sub

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (977) относится к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Transposing_Two_Paragraphs [транспонирование двух абзацев].