Как узнать, есть ли в заданном диапазоне буквы...
Добавлено: 10 авг 2010, 20:52
Как узнать, есть ли в заданном диапазоне буквы.
Пример моего кода (привожу отрывок из кода):
Как узнать, есть ли в диапазоне myRange буквы.
Вообще, смысл кода в чём? В том, чтобы просмотреть ячейки всех таблиц в документе (я как всегда косячу - в данном случае приведён пример для одной таблицы), и если там есть только цифры, то сделать определённое действие. На др. форумах я нашёл решение этой проблемы, но вчера столкнулся с цифрами, разделёнными точками и запятыми, и эти цифры уже не считаются за цифры.
Пример моего кода (привожу отрывок из кода):
Код: Выделить всё
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
For Each oCell In Selection.Tables(1).Range.Cells
myRange.SetRange Start:=oCell.Range.Start, End:=(oCell.Range.End - 1)
If IsNumeric(myRange) = True ThenВообще, смысл кода в чём? В том, чтобы просмотреть ячейки всех таблиц в документе (я как всегда косячу - в данном случае приведён пример для одной таблицы), и если там есть только цифры, то сделать определённое действие. На др. форумах я нашёл решение этой проблемы, но вчера столкнулся с цифрами, разделёнными точками и запятыми, и эти цифры уже не считаются за цифры.