Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 30.07.2019, 20:42   #1
brik
Пользователь
 
Регистрация: 17.04.2014
Сообщений: 22
По умолчанию Перемещение активного листа в ворде вверх вниз макросом

Добрый вечер всем !

Можно ли макросом переместить активный лист с текстом(где стоит курсор) в ворде - вверх или вниз макросом с шагом 1

Те если активный лист на 2 месте стоит - по макросу он перемещается с текстом и пр на 3 место ( вниз) или на 1 место (вверх) ?

В Excel листы можно так перемещать
Код:
    Sub Macros20()
    ActiveSheet.Move After:=Worksheets(Worksheets.Count)      '1 Перемещаем активный лист до конца
    ActiveSheet.Move Before:=Worksheets(1)                    '2 Перемещаем активный лист в начало
    Sheets("Лист1").Move Before:=Sheets("Лист12")             '3 Перемещаем Лист1 перед Листом 12
    End Sub
а вот в Word как это сделать ?

Для начала думаю надо определить номер листа в ворде - нашел в инете
Код:
Sub НомерАктивнойСтраницы()
Dim pn As String
pn = Selection.Information(wdActiveEndPageNumber)
MsgBox pn
End Sub
и потом както сменить у активного листа этот номер в +1 вниз или -1 вверх ?

Последний раз редактировалось brik; 30.07.2019 в 20:54.
brik вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TListView перемещиение(вверх-вниз) элементов списка Человек_Борща Общие вопросы Delphi 11 05.02.2012 17:51
Прокрутка формы вверх и вниз xRamzeSx Общие вопросы Delphi 1 15.05.2011 10:57
Как переместить строку ListBox вверх и вниз Aleksandr Общие вопросы Delphi 1 18.04.2011 15:16
Нажатие клавиш на клавиатуре вверх, вниз Droid Общие вопросы Delphi 16 12.07.2009 17:13
Перемещать строки вверх-вниз, с помощью стрелок. Rio309 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 27.10.2008 21:47


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS