Как изменить МАКРОС?

06.09.2022, 18:15. Показов 328. Ответов 0

Метки vba, vba word, word (Все метки)

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

Есть макрос который выделяет весь текст между заданными главами. Проблема в том что он выделяет текст только от найденного(1-ого) до найденного(2-ого).
Пример надо выделить 145 главу. Макрос выделяет всё от фразы "Глава 145" до строки с надписью "Глава 146". А надо чтобы выделял и надпись "Глава 145". Думал может вставить куда "Selection.HomeKey unit:=wdLine", но макрос вроде работает без операций с курсором, где выделяется текст от положения курсора. Как изменить код?

Visual Basic
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
26
27
28
29
30
31
32
33
34
35
Sub Выделить()
    Dim MyRange As Range, rStart&, rEnd&
    Dim R1, R2 As String
    R1 = InputBox("Введите Номер ")
    R2 = InputBox("Введите Номер ")
    Set MyRange = ActiveDocument.Content
    With MyRange
        With .Find
            .ClearFormatting
            .Text = "Глава " & R1
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = True
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute
            If .Found Then rStart = MyRange.End: rEnd = rStart
        End With
    End With
    Set MyRange = ActiveDocument.Content
    With MyRange
        With .Find
            .Text = "Глава " & R2
            .Execute
            If .Found Then rEnd = MyRange.Start
        End With
    End With
    If rEnd > rStart Then
        ActiveDocument.Range(rStart, rEnd).Select
        Selection.Copy
    End If
End Sub

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

06.09.2022, 18:15

Ответы с готовыми решениями:

Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос
Необходимо изменить ниже приведённый макрос, взятый с форума. Необходима помощь. Буду признателен. Автору макроса особое спасибо. ...

Как изменить макрос, чтобы значения отображались в десятых?
Option Explicit Function Distr(ByVal Total As Long, Optional MinVal As Long = 1, Optional MaxVal As Long) Dim v&(), n&, i&, min1&,...

Как изменить макрос, чтобы он сохранял книгу без подтверждения
У меня макрос, который последовательно открывает все файлы в папке, производит с ними всякие действия и закрывает эти файлы. Как вставить...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

06.09.2022, 18:15

Помогаю со студенческими работами здесь

Как оптимизировать макрос, сделать его короче, изменить графики в листах
Уважаемые программисты,как сделать этот макрос короче? Sub Macro1() Worksheets("a").ChartObjects("Chart 6...

Изменить макрос под vb6, и вставить данные в столбец как значение
Здравствуйте! подскажите почему не получается макросом вставить данные в столбец как значение, xl.Columns("D:D").Select ...

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

Макрос [FASM] - как обратиться к макросу и как передать параметр в макрос
Задачка тривиальная, но как обратиться к макросу и как передать параметр в макрос, ибо ругаецо? Само тело программы, по видимому,...

Числа vs Слова (Изменить макрос)
Доброго времени суток! Подскажите, пожалуйста, как отделить числа от слов в ячейке: один 1 два 2 три и четыре 7 пять и десять 15 ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

Наверх