выделение текста до запятой

[Окоча Юра]

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

[garik64]

Сообщение от Окоча Юра

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

Пусть ищет до первой следующей запятой с пробелом.

[viter.alex]

Sub FindNextComma()
  Dim iStart As Long
  iStart = Selection.Start
  With Selection.Find
    .ClearFormatting
    .Text = ", "
    .Execute
    Selection.SetRange iStart, Selection.Start
  End With
End Sub