Выделить текст между двумя пустыми строками в документе Word

@SoloWay · Регистрация: 26.09.2010

Студворк — интернет-сервис помощи студентам

есть документ в формате doc, как выделить заголовок между 2мя пустыми строками. Спасибо

@Sasha_Smirnov · 19.03.2013, 15:24

Например, командой Автоформат. Найти её нелегко — вызвал через

Visual Basic
1
ActiveDocument.Range.AutoFormat

@Sasha_Smirnov · 19.03.2013, 15:39

С помощью поиска (Ctrl-F) и подстановочных знаков (см. рисунок) можно выделить, в частности, пустую строку и следующий за ней абзац (неважно — заголовок или нет). Это помогает сделать выражение ^13[!^13]@^13 в окне поиска:

@SoloWay · 19.03.2013, 16:19 **[ТС]**

заголовок большими буквами

@KoGG · 19.03.2013, 17:23

^13[!^13a-zа-яё]@^13

@SoloWay · 19.03.2013, 18:05 **[ТС]**

я так понял это регулярные выражения

Добавлено через 29 минут
не получается, выделяет все

@Sasha_Smirnov · 19.03.2013, 19:52

Ну как это всё?! — у меня так:

@SoloWay · 19.03.2013, 22:48 **[ТС]**

сорри не объяснил до конца. заголовок такого формата:

"ПРЕДЛОЖЕНИЕ ПЕРВОЕ

ПРЕДЛОЖЕНИЕ ВТОРОЕ

ПРЕДЛОЖЕНИЕ ТРЕТЬЕ
ЧЕТВЕРТОЕ
ПЯТОЕ

Начало основного текста"

Нужно выделить текст который начинается со слов ПРЕДЛОЖЕНИЕ ТРЕТЬЕ, при этом после этойстрочки разное количество предложений. Как быть в этом случае?

@Sasha_Smirnov · 19.03.2013, 23:24

То есть каждый заголовок как минимум четырёхэтажный, ясно.

В таком случае выложите всё-таки скрин в ворде с отображением непечатаемых знаков!

Добавлено через 6 минут
Потому что для выделения важны и пробелы перед текстом (как вот у вас), и переводы строк (Shift-Enter вместо Enter) — эти отличия я обвёл оранжевым контуром:

@SoloWay · 20.03.2013, 00:46 **[ТС]**

Вот скрин

@KoGG · 20.03.2013, 13:52

Подойдет:
^13[!^13a-zа-яё]@^13[!^13a-zа-яё]@*^13^13
Правда при последующем поиске возьмет два последних абзаца из ранее найденного.
Строго говоря, это не является регулярным выражением, это язык запросов Word.

@SoloWay · 27.03.2013, 11:30 **[ТС]**

А можно это же использовать в VB.Net?

@KoGG · 27.03.2013, 13:59

Можно. Синтаксис обращения к Word из VB.Net не знаю, возможно такой, может быть другой. Нужна еще ссылка на объектную библиотеку Word в проекте.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
    With Word
        With .Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "^13[!^13a-zа-яё]@^13[!^13a-zа-яё]@*^13^13"
            .Replacement.Text = "" ' просто для поиска
            ' для замены :
            '.Replacement.Text = "^13" & " замещающий текст 1-я строка" & "^13" & " 2-я строка" & "^13" & " 3-я строка" & "^13^13"
            .Forward = True
            .Wrap = .wdFindStop
            .Format = False
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = True
            .Execute    ' Просто для поиска
            '.Execute Replace:=.wdReplaceAll 'Для замены
        End With
    End With
End Sub

Добавлено через 1 час 51 минуту
Возможно синтаксис доступа к константам Word не сработает, значение констант:
wdFindStop = 0
wdReplaceAll = 2

@SoloWay · 27.03.2013, 15:37 **[ТС]**

Выдает ошибку:Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена.

Добавлено через 22 минуты
Ругается на строчку .ClearFormatting()

@KoGG · 27.03.2013, 15:48

Нужно видеть весь код.
Возможно неправильно задан объект WordApp, а Word в VB.Net обозначает именно библиотеку объектов Word.
В VBA это так:

Visual Basic
1
    Dim WordApp As New Word.Application

Возможно не открыт нужный документ Word.
Тему лучше заново создать в разделе VB.Net

@SoloWay · 27.03.2013, 16:18 **[ТС]**

Выделить текст между двумя пустыми строками в документе ворд vb.net вот тема

Добавлено через 20 минут
KoGG я выложил код в эту тему

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Номеклатура. . .

@SoloWay 25 / 25 / 6 Регистрация: 26.09.2010 Сообщений: 295

	Выделить текст между двумя пустыми строками в документе Word 19.03.2013, 14:18. Показов 3196. Ответов 15 Метки нет (Все метки) есть документ в формате doc, как выделить заголовок между 2мя пустыми строками. Спасибо 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	19.03.2013, 15:39
	С помощью поиска (Ctrl-F) и подстановочных знаков (см. рисунок) можно выделить, в частности, пустую строку и следующий за ней абзац (неважно — заголовок или нет). Это помогает сделать выражение ^13[!^13]@^13 в окне поиска: Миниатюры 0

@SoloWay 25 / 25 / 6 Регистрация: 26.09.2010 Сообщений: 295
	19.03.2013, 16:19 [ТС]
	заголовок большими буквами 0

@KoGG 5645 / 1627 / 418 Регистрация: 23.12.2010 Сообщений: 2,447 Записей в блоге: 1
	19.03.2013, 17:23
	^13[!^13a-zа-яё]@^13 0

@SoloWay 25 / 25 / 6 Регистрация: 26.09.2010 Сообщений: 295
	19.03.2013, 18:05 [ТС]
	я так понял это регулярные выражения Добавлено через 29 минут не получается, выделяет все 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	19.03.2013, 19:52
	Ну как это всё?! — у меня так: Миниатюры 0

@SoloWay 25 / 25 / 6 Регистрация: 26.09.2010 Сообщений: 295
	19.03.2013, 22:48 [ТС]
	сорри не объяснил до конца. заголовок такого формата: "ПРЕДЛОЖЕНИЕ ПЕРВОЕ ПРЕДЛОЖЕНИЕ ВТОРОЕ ПРЕДЛОЖЕНИЕ ТРЕТЬЕ ЧЕТВЕРТОЕ ПЯТОЕ Начало основного текста" Нужно выделить текст который начинается со слов ПРЕДЛОЖЕНИЕ ТРЕТЬЕ, при этом после этойстрочки разное количество предложений. Как быть в этом случае? 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	19.03.2013, 23:24
	То есть каждый заголовок как минимум четырёхэтажный, ясно. В таком случае выложите всё-таки скрин в ворде с отображением непечатаемых знаков! Добавлено через 6 минут Потому что для выделения важны и пробелы перед текстом (как вот у вас), и переводы строк (Shift-Enter вместо Enter) — эти отличия я обвёл оранжевым контуром: Миниатюры 0

@SoloWay 25 / 25 / 6 Регистрация: 26.09.2010 Сообщений: 295
	20.03.2013, 00:46 [ТС]
	Вот скрин Миниатюры 0

@KoGG 5645 / 1627 / 418 Регистрация: 23.12.2010 Сообщений: 2,447 Записей в блоге: 1
	20.03.2013, 13:52
	Подойдет: ^13[!^13a-zа-яё]@^13[!^13a-zа-яё]@*^13^13 Правда при последующем поиске возьмет два последних абзаца из ранее найденного. Строго говоря, это не является регулярным выражением, это язык запросов Word. 1

@SoloWay 25 / 25 / 6 Регистрация: 26.09.2010 Сообщений: 295
	27.03.2013, 11:30 [ТС]
	А можно это же использовать в VB.Net? 0

@SoloWay 25 / 25 / 6 Регистрация: 26.09.2010 Сообщений: 295
	27.03.2013, 15:37 [ТС]
	Выдает ошибку:Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена. Добавлено через 22 минуты Ругается на строчку .ClearFormatting() 0

@SoloWay 25 / 25 / 6 Регистрация: 26.09.2010 Сообщений: 295
	27.03.2013, 16:18 [ТС]
	Выделить текст между двумя пустыми строками в документе ворд vb.net вот тема Добавлено через 20 минут KoGG я выложил код в эту тему 0