Выделение нескольких фрагментов

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Выделение нескольких фрагментов (Как в VBA одновременно выделить несколько фрагментов текста?)

Выделение нескольких фрагментов

Revengencer

Дата: Суббота, 30.04.2016, 20:19 | Сообщение № 1

Группа: Проверенные

Ранг: Новичок

Сообщений: 34

Репутация: 13 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте.

В Word мы можем выделить один фрагмент текста, зажать Ctrl, выделить другой и дальше делать с ними что-нибудь (раскрасить или скопировать-вставить).
А как сделать то же самое в коде макроса?

При таком коде копируется только второй фрагмент (между "р2" и "р3")

[vba]

Код

Sub Выписка()
Dim r
Set r = ActiveDocument.Range
With r.Find
    .ClearFormatting
    .Text = "ОАО*р1"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    If .Execute Then
        ActiveDocument.Range(r.Start + 0, r.End - 2).Select
        Selection.Copy
    Else
        MsgBox "Текст не найден!", vbExclamation
    End If
End With

With r.Find
    .ClearFormatting
    .Text = "р2*р3"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    If .Execute Then
        ActiveDocument.Range(r.Start + 3, r.End - 3).Select
        Selection.Copy
    Else
        MsgBox "Текст не найден!", vbExclamation
    End If
End With

Documents.Add
Selection.Paste
Selection.TypeBackspace
ChangeFileOpenDirectory "D:\"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="Выписка_" & DocNum & ".doc"
ActiveDocument.Close

End Sub

[/vba]

К сообщению приложен файл: Protocol2.docm (20.7 Kb)

Сообщение отредактировал Revengencer - Суббота, 30.04.2016, 20:19

Ответить

Gustav

Дата: Воскресенье, 01.05.2016, 10:01 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата Revengencer, 30.04.2016 в 20:19, в сообщении № 1

В Word мы можем
выделить один фрагмент текста, зажать Ctrl, выделить другой и дальше делать с ними что-нибудь (раскрасить или скопировать-вставить).
А как сделать то же самое в коде макроса?

К сожалению, никак

существуют ограничения на доступ к несмежным выделениям при помощи VBA: https://support.microsoft.com/ru-ru/kb/288424

В частности, как раз нельзя программно выделить несколько диапазонов, только через пользовательский интерфейс и только при помощи мышки и Ctrl (только одной клавиатурой тоже нельзя). При этом диапазон Selection.Range будет ссылаться только на один последний выделенный фрагмент. С самим же Selection, выделенным заранее вручную, можно программно выполнить ряд привычных действий: изменение шрифта, копирование, поиск и т.п.