Уничтожение пробелов в Word в VBA

[vfayans]

1. При копировании вручную строки " (q" во другую начальный пробел не копируется.
2. При попытке уничтожить начальные пробелы в выделенном тексте оператором Selection.Range.Characters.First.De lete в простейшей процедурке TEST_First происходит следующее: если начальных пробелов – 2, оба изничтожаются за одну итерацию, а если – 1, то он не изничтожается вовсе, если следующий после пробела символ - открывающая скобка (есть ли ещё «нехорошие» символы, я не знаю, специально не искал).
3. Не работает уничтожение единичного пробела в конце выделенного текста оператором Selection.Range.Characters(n - 1). n - длина строки, включая концевик. Процедурка TEST_Last демонстрирует это, если выделить всю строку, включая символ её конца, а TEST_Last_1 с оператором Selection.Range.Characters.Last.Del ete– если выделить всё, кроме концевика. Самое поганое, что обе процедуры прекрасно уничтожают все концевые пробелы, кроме последнего, а на нём начинают циклить ! Увы мне, не смог присоединить коротенький тестовый файл с тестовыми процедурками !

[CyberMen]

vfayans
очень много написано. Напишите поменьше.

[viter.alex]

Не совсем понятна задача. Но вообще убрать граничные пробелы в выделении, можно переместив начало и конец выделения:

Selection.MoveStartWhile (" ", wdForward) 'Смещение начала выделения, пока есть пробел
Selection.MoveEndWhile (" ", wdBackward) 'Смещение конца выделения

В обоих случаях функции вернут количество символов, на которое произошло смещение, т.е. количество пробелов.
А если пробелы всё-таки нужно удалить, то это можно сделать функцией Trim

Selection.Text = Trim(Selection.Text)

[vfayans]

Спасибо за TRIM (LTrim, RTrim). Это решает проблему удаления начальных пробелов в начале строки сразу, а конечных - после отделения текста строки от концевика. Остаётся проблема некорректной работы некоторых методов VBA. Кстати, хорошо бы иметь раздельчик на форуме, посвящённый "пенкам" VBA (и не только).

[chugo]

vfayans, не знаю правильно понял ли вопрос но наверное это можно решить и finde+change
1. Удалить лишние пробелы finde "^w" change " "
2. Удалить пробел в начале абзаца finde "^p^w" change "^p"

[Вождь]

Сообщение от vfayans

1. При копировании вручную строки " (q" во другую начальный пробел не копируется

Все, что MS Word делает сам по себе (автоматически) лечится настройками.
В этом случае: MS Word 2010 > вкладка «Файл» > кнопка «Параметры» > вкладка «Дополнительно» > в разделе «Вырезание, копирование, вставка» снимаем флаг «Учитывать пробелы»

Сообщение от vfayans

2. При попытке уничтожить начальные пробелы в выделенном тексте...

См. первый совет или пиши так:

    With Selection.Range
        .Collapse Direction:=Word.wdCollapseStart
        .Delete Unit:=wdCharacter, Count:=1
    End With

Сообщение от vfayans

3. Не работает уничтожение единичного пробела в конце выделенного текста...

См. первый совет или пиши так:

    With Selection.Range
        .Collapse Direction:=Word.wdCollapseEnd
        .Move Unit:=wdCharacter, Count:=-1
        .Delete Unit:=wdCharacter, Count:=-1
    End With