Форум по VBA, Excel и Word

Word => Макросы в Word => Тема начата: persik от 07 Июнь 2021, 15:33

Название: Word VBA Макросы. Удалить одиночные пробелы перед первым словом в таблице.
Отправлено: persik от 07 Июнь 2021, 15:33
Нужен макрос, который убирает пробелы перед первым словом в ячейках таблицы.
Пробел в начале ячейки один.
Название: Re: Word VBA Макросы. Удалить одиночные пробелы перед первым словом в таблице.
Отправлено: Администратор от 07 Июнь 2021, 16:13
Макрос
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
Название: Re: Word VBA Макросы. Удалить одиночные пробелы перед первым словом в таблице.
Отправлено: persik от 07 Июнь 2021, 16:55
Спасибо! Просто шикарно! Все работает!!!