Вставить определенный текст в пустые ячейки таблицы word, поправить макрос

@goscomment · Регистрация: 25.05.2017

Author24 — интернет-сервис помощи студентам

Добрый день, ребята выручайте! Часа 3 пытаюсь найти не получается.

Задача - есть таблица word, нужно вставить текст в каждую пустую ячейку этой таблицы.

Нашел такой макрос, он мне подходит, но вместо вставки текста он раскрашивает, помогите исправить это

Visual Basic

Sub ColorOfEmptyCells()
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
    If oCell.Range.Characters.Count = 1 Then
         oCell.Shading.BackgroundPatternColor = wdColorGray50
    End If
Next
End Sub

shanemac51 · 25.05.2017, 15:52

попробуйте

Visual Basic

Sub ColorOfEmptyCells()
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
    If oCell.Range.Characters.Count <=2 Then
         oCell.range.text="mmm"
    End If
Next
End Sub

@goscomment · 25.05.2017, 15:53 **[ТС]**

Работает, спасибо!))))))

@goscomment 0 / 0 / 0 Регистрация: 25.05.2017 Сообщений: 9
	25.05.2017, 15:53 [ТС]	3
	Работает, спасибо!)))))) 0

Вставить определенный текст в пустые ячейки таблицы word, поправить макрос

Решение