Как заменить слова длиной более 30 символов из строки через VBA

Question

Я пытаюсь извлечь слова, которые не имеют значения из абзаца или содержат специальные символы - они могут быть случайными ссылками на

Я пытался использовать регулярные выражения, но не смог добиться успешных результатов.

Входной образец

 The quick brown fox ran over the lazy dog https//kidsnursuery.com/ghyds/  

Пример выборки

The quick brown fox ran over the lazy dog

Answer 1

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

В буквальном смысле ваш вопрос, возможно, вы захотите взглянуть на функцию CheckSpelling(), которая возвращает False, если в текущем или указанном словаре нет слова. Вы бы вызвали функцию, как показано ниже:

Dim items() As String
Dim i As Long

items = Split("The quick brown fox ran over the lazy dog https//kidsnursuery.com/ghyds/", " ")

For i = 0 To UBound(items)
    If Not Application.CheckSpelling(items(i)) Then
        items(i) = vbNullString
    End If
Next

Debug.Print Join(items, " ")