Автор Тема: Word VBA Макросы. Удалить одиночные пробелы перед первым словом в таблице.  (Прочитано 362 раз)

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Нужен макрос, который убирает пробелы перед первым словом в ячейках таблицы.
Пробел в начале ячейки один.

Оффлайн Администратор

  • Administrator
  • Сообщений: 1939
Макрос
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

  • Посетитель форума
  • Сообщений: 34
Спасибо! Просто шикарно! Все работает!!!