Отключить перенос по словам?

[sonata]

Отключить перенос по словам?
Я копирую данные из 1С, там в качестве разделителей разрядов стоит запятая.Я делаю замену(чтобы ликвидировать эту запятую), а потом у меня все данные автоматически раздвигаются(срабатывает перенос слов), это ужасно бесит, так как это процедура постоянная.Можно ли что-нибудь сделать в этом случае?

[alibek]

Признаться, не понял вопроса. Что значит "раздвигаются"?
Речь идет об Excel? Тогда у ячеек есть свойство .WrapText.
Только помоему проще подправить отчет в 1С, чтобы разрядычисла не разделялись запятой.

[sonata]

Это означает то, что если бы ты сделал "Формат ячеек"-Выравнивание-Переносить по словам...
Но я этого не делала, это происходит автоматически...
Иногда автоматизм бесит :?

[corgi]

Код: Выделить всё

    Selection.WrapText = True
    Selection.WrapText = False


ты это имеешь ввиду

[sonata]

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

Код: Выделить всё

Public Sub Selection_Wrap_Text()
If (Selection.WrapText = True) Then
Selection.WrapText = False
ElseIf Selection.WrapText = False Then
Selection.WrapText = True
End If
End Sub

Но ничего не переключается, почему?
Я так понимаю, что бывает промежуточное состояние этого переключателя?Т.е. какие-то ячейки Wrap, а какие-то нет...
Как обработать эту ситуацию?

[RayShade]

Проще было бы написать:

Selection.WrapText = Not Selection.WrapText

[sonata]

Проще-то проще, если бы оно заработало...

[GSerg]

RayShade, не сбивай девушку с пути истинного

Читаем мануал!
Ежели все ячейки диапазона вашего имеют wraptext=true, то возвратится вам для всего диапазона True. Ежели хоть одна ячейка не имеет True, то возвратится вам Null.

Так что проверяем isnull(selection.wraptext) и действуем по обстоятельствам

[sonata]

Код: Выделить всё

Public Sub Selection_Wrap_Text()
If (IsNull(Selection.WrapText)) Then
Selection.WrapText = False
ElseIf (Selection.WrapText = False) Then
Selection.WrapText = True
ElseIf (Selection.WrapText = True) Then
Selection.WrapText = False
End If
End Sub

GSerg, опять же полное внимание и понимание!!! Все получилось, спасибо!!!!!