Sub LCaseRow()
Dim myCell As cell
Dim myTable As table
For Each myTable In ActiveDocument.Tables
For Each myCell In myTable.Range.Cells
myCell.Range.Sentences(1).Words.First.Characters(1).Case = wdUpperCase
Next myCell
Next myTable
End Sub
Почему макрос не действует в последней колонке таблицы?
Есть таблицы, в ячейках которых начальные буквы первых слов предложений являются строчными. А нужно сделать их прописными. Использую такой код:
Код правильно работает в первых четырех столбцах таблицы, но пятый (последний) столбец не изменяет. Не могу понять почему?
Спасибо.
Код:
Код правильно работает в первых четырех столбцах таблицы, но пятый (последний) столбец не изменяет. Не могу понять почему?
Спасибо.