Выделить диапазон страниц MS Word
Здравствуйте, люди!
Ищу такую надстройку или аналог. Рад бы купить, да пишет, что «запрашиваемый товар не найден».
Хочу програмно выделить в Ворде диапазон страниц. Нужно для того, чтобы разбить большой документ на части. При обычном (через shift) выделении — подглючивает.
Спасибо.
Лучшие ответы ( 1 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
Как вывести на печать диапазон страниц из документа Word?
Здравствуйте! Как печатать нужный страницы текстового редактора MS-Word через vb.net. Например у.
Выделить в MS Word 2007 выделить каждое четвёртое слово
Как выделить в MS Word 2007 каждое четвёртое слово? Просто подсвечивать их синим или жёлтым, любым.
Как выделить диапазон?
Всем доброго времени суток! в файле выполняется макрос который добавляет строку ИТОГО после.
Выделить отфильтрованный диапазон
Надо выделить отфильтрованный диапазон, что бы затем скопировать или удалить. Проблема в том, что.
8936 / 4848 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
Сообщение было отмечено variator как решение
Решение
Попробуйте так:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
Sub SelectPages() Dim firstPage As Integer, lastPage As Integer Dim value As String value = InputBox("Óêàæèòå íîìåð ïåðâîé ñòðàíèöû âûäåëåíèÿ", "Âûäåëåíèå ñòðàíèö", Selection.Information(wdActiveEndPageNumber)) If (IsNumeric(value)) Then firstPage = CInt(value) Else Exit Sub End If value = InputBox("Óêàæèòå íîìåð ïîñëåäíåé ñòðàíèöû âûäåëåíèÿ", "Âûäåëåíèå ñòðàíèö", Selection.Information(wdActiveEndPageNumber)) If (IsNumeric(value)) Then lastPage = CInt(value) Else Exit Sub End If SelectPagesRange firstPage, lastPage End Sub Sub SelectPagesRange(firstPage As Integer, lastPage As Integer) Selection.GoTo wdGoToPage, wdGoToAbsolute, firstPage Dim s As Long, e As Long s = Selection.Start Selection.GoTo wdGoToPage, wdGoToAbsolute, lastPage + 1 e = Selection.Start ActiveDocument.Range(s, e).Select End Sub
Developing.ru
А не подскажете, как выделить одновременно, две страницы (текущую и следующую) ?
Busine2009 Сообщения: 322 Зарегистрирован: 18 июл 2009, 15:34 Контактная информация:
в VBA нет объекта Страница.
Здесь
ActiveDocument.Sections(НомерСтраницы).Range.Selec tSections(НомерСтраницы) — не номер страницы, а номер раздела. Выделить несколько страниц сложно простому смертному: нужен опыт и знание объекта Range.
Иванов Сообщения: 7 Зарегистрирован: 28 сен 2009, 09:29
Busine2009 писал(а): Иванов
в VBA нет объекта Страница.
Здесь
ActiveDocument.Sections(НомерСтраницы).Range.Selec tSections(НомерСтраницы) — не номер страницы, а номер раздела. Выделить несколько страниц сложно простому смертному: нужен опыт и знание объекта Range.
Тогда я не простой смертный. Текст разбил постранично на разделы и сделал так:
With ActiveDocument
.Range(.Sections(ТекСтр).Range.Start, .Sections(ТекСтр + 1).Range.End).Select
End With
Busine2009 Сообщения: 322 Зарегистрирован: 18 июл 2009, 15:34 Контактная информация:
Это ненормально, чтобы каждая страница была разделом, когда этого не требует здравый смысл, так что ты не прав, но если тебе так удобно, то это твоё право.
Иванов Сообщения: 7 Зарегистрирован: 28 сен 2009, 09:29
У меня стандартные документы, имеющие конкретный текст на страницах. Что бы текст в документе не расползался при наборе текста на предыдущих, я разбил их на разделы.
Как выделить 1 страницу в ворде
Сообщения: 1180
Благодарности: 279
Как в ворде выделить из текста (текст может быть любой длины) страницу №2 (получить её Range)?
Нужно для каждой страницы поставить свою фоновую картинку (подложку), на страницах располагается текст, который сформирован скриптом
Сообщения: 5624
Благодарности: 936
ActiveDocument.ComputeStatistics(wdStatisticPages)
Dim x As Word.Application Set x = Word.Application 'Получить ссылку на документ PageCount = x.ActiveDocument.BuiltInDocumentProperties("Number " & "of Pages") укажет количество листов в документе
Во, нашел как выделить именно вторую страницу, точнее диапазон со 2 по 2-ую страницу:
Dim rgePages As Range Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2 Set rgePages = Selection.Range Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2 rgePages.End = Selection.Bookmarks("\Page").Range.End rgePages.Select По моему то, что тебе было нужно
Как выделить 1 страницу в ворде
Выделение текста – один из главных приемов работы с документом.
Текст необходимо выделять перед копированием, удалением или переносом его в другое место. Кроме этого, текст выделяется для изменения его внешнего вида (форматирования).
Для выделения текста в документе можно воспользоваться как мышью, так и клавиатурой. Способы выделения блоков текста приведены в таблице:
Клавиатура
1. Выделение одного символа
Поставить курсор перед этим символом, нажать левую клавишу мыши и, не отпуская ее, протянуть до конца этого символа вправо
Установить курсор перед этим символом и нажать сочетание клавиш Shift и «курсор вправо»
2. Выделение нескольких символов
Поставить курсор перед первым символом, нажать левую клавишу мыши и, не отпуская ее, протянуть до конца последнего символа вправо
Установить курсор перед первым символом и нажимать сочетание клавиш Shift и «курсор вправо» до тех пор, пока не выделяться нужные символы
3. Выделение одного слова
Дважды щелкнуть внутри слова левой клавишей мыши.
Установить курсор перед этим словом и нажать сочетание клавиш Ctrl + Shift+ «курсор вправо»
4. Выделение одного предложения
Можно производить двумя способами:
1 способ:
Один раз щелкнуть внутри предложения левой клавишей мыши, удерживая нажатой клавишу Ctrl.
2 способ:
Щелкнуть перед первым словом предложения и, удерживая левую клавишу мыши, перетащить ее указатель до конца предложения.
Установить курсор в начало предложения и нажимать сочетание клавиш Ctrl + Shift+ «курсор вправо» до тех пор, пока все предложение не будет выделено
5. Выделение одной строки
Установить указатель мыши слева на свободное поле, напротив нужной строки, таким образом, чтобы он принял вид белой стрелки, направленной в правый верхний угол, и один раз щелкнуть левой клавишей мыши.
Установить курсор в начало строки и нажать сочетание клавиш Shift и End.
6. Выделение нескольких строк
Установить указатель мыши слева от строки на свободное место, таким образом, чтобы он принял вид белой стрелки, направленной в правый верхний угол, нажать левую клавишу мыши, и, не отпуская ее, протащить вниз до тех пор, пока не выделяться нужные строки.
Установить курсор на начало первой строки и нажать сочетание клавиш Shift и End, а затем, не отпуская клавишу Shift, нажимать «курсор вниз» до тех пор, пока не выделяться нужные строки.
7. Выделение абзаца
Трижды щелкнуть левой клавишей мыши по любому слову абзаца (внутри абзаца).
Установить курсор в начало первой строки и нажать сочетание клавиш Shift и End, а затем, не отпуская клавишу Shift, нажимать «курсор вниз» до тех пор, пока не выделится весь абзац.
8. Выделение всего текста
Можно производить двумя способами:
1 способ:
Трижды щелкнуть по свободному полю слева на рабочем листе.
2 способ:
В пункте меню Правка выбрать команду Выделить все.
Установить курсор в начало текста и нажать сочетание клавиш Shift и End, а затем, не отпуская клавиши Shift, нажимать клавишу «курсор вниз» (или клавишу Page Down) до тех пор, пока не будет выделен весь текст документа.