Найдите / выберите все основные моменты, затем скопируйте их в новый документ, не теряя выделения - PullRequest
Новая
       44

Найдите / выберите все основные моменты, затем скопируйте их в новый документ, не теряя выделения

0 голосов
/ 14 июля 2020

У меня есть документ с цветами выделения wdYellow и wdTurquoise. Я хочу найти все основные моменты, выделить их, скопировать и вставить в новый документ. (В невероятно идеальном мире макрос затем отсортирует их так, чтобы бирюзовые блики были сгруппированы вместе, но каждый световой момент находится на отдельной строке, а желтые светлые участки сгруппированы вместе, но каждый световой момент находится на отдельной строке.)

Макрос продолжает выдавать

Ошибка времени выполнения 4605: этот метод или свойство недоступны, так как текст не выбран. 

    Sub agh()
    '
    ' agh Macro
    '
    '
        Selection.Find.ClearFormatting
        Selection.Find.Highlight = True
        With Selection.Find
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.copy
        Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
        Selection.Paste
        Windows("Reviewing Template").Activate
    End Sub

Это выходит за рамки моих скудных ограничений, и я потратил часы на безуспешные поиски решений, включая два вопроса / ответа о переполнении стека, которые просто sh не достигают того, что я ищу.

...