1

Тема: Применить стиль к ячейке 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

Спасибо.

2

Re: Применить стиль к ячейке word из excel, не выходит.

Отвечаю сам себе
Вариантов нет.
Решил через 100% оформление стилей и тд. в екселе.
И копипастом через буфер

3

Re: Применить стиль к ячейке word из excel, не выходит.

Уважаемый Kreol2013.
Ваш макрос не реализуется по той причене, что Word нет стилей на отдельную ячейку. Заливака ячейки осуществляется через свойство Cell.Shading.BackgroundPatternColor, стили текста через свойство Cell.Range.Style = ActiveDocument.Styles.
Во вложении выложил форму выделения ячеек по маяку.
В форме есть несколько полей. В первой области выбираем цвет заливки ячейки в системе RGB. Если известны параметры цвета то можно заполнить цифровые поля Red, Green, Blue или поиграть ползунками.
В поле Стиль абзаца отбражаются стили абзацев видимые в активном документе, если это поле пустое, то программа игнорирует стили абзацев документа. По аналогии действует поле Стиль знака.
Поле Маяк:
1. Если поле пустое то в выделенной таблице цветом выделятся все пустые ячейки.
2. Если вы скопируете из таблицы какой-то один знак, то выделятся все ячейки в который он присутствует.
3. Если вы в поле скопируте какую-либо фразу, то выделятся ячейки с этой фразой.
Надеюсь вы сможете импортировать таблицу в Ваш проект VBA

4

Re: Применить стиль к ячейке word из excel, не выходит.

Спасибо за ответ, но проблема была не в том, чтоб разукрашивать ячейку, а в том чтоб разукрашивать символы в зависимости от принадлежности, и  потом по цвету наложения на них стиля. Там все неудобоваримо)
А где вложение, интересно глянуть.

5

Re: Применить стиль к ячейке word из excel, не выходит.

Вот

Post's attachments

form_SelectCell.rar 2.66 Кб, 1 скачиваний с 2013-12-16 

You don't have the permssions to download the attachments of this post.

6

Re: Применить стиль к ячейке word из excel, не выходит.

Kreol2013 пишет:

Спасибо за ответ, но проблема была не в том, чтоб разукрашивать ячейку, а в том чтоб разукрашивать символы в зависимости от принадлежности, и  потом по цвету наложения на них стиля. Там все неудобоваримо)
А где вложение, интересно глянуть.

Так если убрать выбор цвета ячейки, то в полях Стиль абзаца, Стиль символа, Маяк эта проблема и решается. Можно также не убирать выбор цвета, а переорентировать его с ячейки на символы.

7

Re: Применить стиль к ячейке word из excel, не выходит.

Вот новая форма. Я в нее добавил флажок Работа с символами. Если галочка стоит, то работаем с символами, если нет, то с ячейками

Post's attachments

form_SelectCell1.rar 2.79 Кб, 2 скачиваний с 2013-12-16 

You don't have the permssions to download the attachments of this post.