Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Применить стиль к ячейке 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

Спасибо.
 
Может имеет смысл в форум по Word-у обратиться? Excel-то здесь каким боком? Вы же до свойств Word-а не можете достучаться, а не Excel.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему (гостей: 1)