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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

Можно ли макросом переместить активный лист с текстом(где стоит курсор) в ворде - вверх или вниз макросом с шагом 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 в 21:54.
brik вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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 6 27.10.2008 22:47


21:05.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.