Исключая пробелы и знаки препинания из выделенного текста

Question

Интересно, есть ли способ исключить пробел и помятнение из выделенного текста в скрипте MS Word VBA?

Например, этот скрипт:

Sub MakeBoldViolet()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Bold = True
    .Replacement.Font.ColorIndex = wdPink
    .Replacement.Font.Size = 14
    .Text = Selection.Text
    .Replacement.Text = "^&"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Спасибо за ваш время и усилия кстати!

Answer 1

Вы можете добавить:

.IgnorePunct = True
.IgnoreSpace = True

к коду, чтобы он игнорировал пробелы и знаки препинания в том, что найдено (т. Е. Если выражение Find для 'Nun c viverra) imperdiet enim. ', выражения, такие как' Nun c viverra. imperdiet enim. 'также будут сопоставлены.

Для самого выбора вы можете использовать:

.Text = Trim(Selection.Text)

, чтобы исключить перед / после пробелов, но что должно произойти, если ваш выбор охватывает несколько слов, предложений, запятых и т. д. c.?