Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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