Word VBA Макросы. Удалить одиночные пробелы перед первым словом в таблице.

Автор persik, 07 июня 2021, 15:33

persik

Нужен макрос, который убирает пробелы перед первым словом в ячейках таблицы.
Пробел в начале ячейки один.

Администратор

Макрос
Sub Макрос()
   
    Dim Ячейка As Cell
   
    ' Движение по всем ячейкам таблицы.
    For Each Ячейка In Selection.Tables(1).Range.Cells
        ' Если первый символ в ячейке это прообел.
        If Ячейка.Range.Characters(1).Text = " " Then
            ' Удаление первого символа.
            Ячейка.Range.Characters(1).Delete
        End If
    Next Ячейка

End Sub
[свернуть]

persik