Тема: Применить стиль к ячейке word из excel, не выходит.
Доброго времени суток.
Ребята опять туплю.
Так как при копировании форматированного текста (пользовательские стили) из excel в word, мягкотелые сделали по умолчанию сброс на стиль "Обычный" встал вопрос, как вернуть стили.
Стили применяются поячеечно. Для возврата их на место, вначале каждого текста ставим любой неповторимый символ, по которому и определяем в какой стиль красить ячейку.
Но стиль нужно применить в вордовской таблице из екселя.
Написал так, Ячейка выделяется, но стиль не применяется.
Стиль есть в Normal
Dim wCell As Word.cell
For Each wCell In W.ActiveDocument.Tables(1).Range.Cells
If InStr(1, wCell, ChrW(730), vbTextCompare) > 0 Then
wCell.Select
' так не работает
ActiveCell.Style = "Style1"
ActiveCell.Style = ActiveDocument.Styles("Style1")
' так не работает
Selection.Style = ActiveDocument.Styles("Style1")
End If
Next
Спасибо.