Доброго времени суток.
Ребята опять туплю.
Так как при копировании форматированного текста (пользовательские стили) из excel в word, мягкотелые сделали по умолчанию сброс на стиль "Обычный" встал вопрос, как вернуть стили.
Стили применяются поячеечно. Для возврата их на место, вначале каждого текста ставим любой неповторимый символ, по которому и определяем в какой стиль красить ячейку.
Но стиль нужно применить в вордовской таблице из екселя.
Написал так, Ячейка выделяется, но стиль не применяется.
Стиль есть в Normal
Спасибо.
Ребята опять туплю.
Так как при копировании форматированного текста (пользовательские стили) из 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 |
Спасибо.
