Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 7 ]
- Kreol2013
- лейтенант
- Неактивен
- Зарегистрирован: 18.02.2013
- Сообщений: 59
- Поблагодарили: 2
Тема: Применить стиль к ячейке 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
Спасибо.
- Kreol2013
- лейтенант
- Неактивен
- Зарегистрирован: 18.02.2013
- Сообщений: 59
- Поблагодарили: 2
Re: Применить стиль к ячейке word из excel, не выходит.
Отвечаю сам себе
Вариантов нет.
Решил через 100% оформление стилей и тд. в екселе.
И копипастом через буфер
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Применить стиль к ячейке word из excel, не выходит.
Уважаемый Kreol2013.
Ваш макрос не реализуется по той причене, что Word нет стилей на отдельную ячейку. Заливака ячейки осуществляется через свойство Cell.Shading.BackgroundPatternColor, стили текста через свойство Cell.Range.Style = ActiveDocument.Styles.
Во вложении выложил форму выделения ячеек по маяку.
В форме есть несколько полей. В первой области выбираем цвет заливки ячейки в системе RGB. Если известны параметры цвета то можно заполнить цифровые поля Red, Green, Blue или поиграть ползунками.
В поле Стиль абзаца отбражаются стили абзацев видимые в активном документе, если это поле пустое, то программа игнорирует стили абзацев документа. По аналогии действует поле Стиль знака.
Поле Маяк:
1. Если поле пустое то в выделенной таблице цветом выделятся все пустые ячейки.
2. Если вы скопируете из таблицы какой-то один знак, то выделятся все ячейки в который он присутствует.
3. Если вы в поле скопируте какую-либо фразу, то выделятся ячейки с этой фразой.
Надеюсь вы сможете импортировать таблицу в Ваш проект VBA
- Kreol2013
- лейтенант
- Неактивен
- Зарегистрирован: 18.02.2013
- Сообщений: 59
- Поблагодарили: 2
Re: Применить стиль к ячейке word из excel, не выходит.
Спасибо за ответ, но проблема была не в том, чтоб разукрашивать ячейку, а в том чтоб разукрашивать символы в зависимости от принадлежности, и потом по цвету наложения на них стиля. Там все неудобоваримо)
А где вложение, интересно глянуть.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Применить стиль к ячейке word из excel, не выходит.
Вот
Post's attachmentsform_SelectCell.rar 2.66 Кб, 1 скачиваний с 2013-12-16
You don't have the permssions to download the attachments of this post.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Применить стиль к ячейке word из excel, не выходит.
Kreol2013 пишет:Спасибо за ответ, но проблема была не в том, чтоб разукрашивать ячейку, а в том чтоб разукрашивать символы в зависимости от принадлежности, и потом по цвету наложения на них стиля. Там все неудобоваримо)
А где вложение, интересно глянуть.
Так если убрать выбор цвета ячейки, то в полях Стиль абзаца, Стиль символа, Маяк эта проблема и решается. Можно также не убирать выбор цвета, а переорентировать его с ячейки на символы.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Применить стиль к ячейке word из excel, не выходит.
Вот новая форма. Я в нее добавил флажок Работа с символами. Если галочка стоит, то работаем с символами, если нет, то с ячейками
Post's attachmentsform_SelectCell1.rar 2.79 Кб, 2 скачиваний с 2013-12-16
You don't have the permssions to download the attachments of this post.
Сообщений [ 7 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Применить стиль к ячейке word из excel, не выходит.
Те, кто знаком с редактором текста Microsoft Word, знают, что работу в нем можно существенно ускорить, если правильно настроить программу. Наш сайт о Microsoft Office Word даст ответ про: как уменьшить расстояние от текста до номера страницы 2007.
Настройки зависят от тех задач, которые вы выполняете. Кому-то абсолютно не нужны стили оформления, кто-то, напротив, считает их основной изюминкой Ворда. На портале о Microsoft Office Word вы узнаете про: как поставить только одну страницу в альбомную орентацию.
Правильно и оптимально подобрать настройки именно для своего индивидуального пользования целая наука. На портале о Microsoft Office Word вы узнаете про: office 2010 ввод данных в поля форм.
На форуме сайта Ворд Эксперт обсуждаются различные варианты работы с приложением, участники делятся друг с другом своими секретами и тонкостями. Наш сайт о Microsoft Office Word даст ответ про: как убрать ненужную страницу в ворде 2010.
Здесь можно найти готовые шаблоны для различных задач, макросы для построения таблиц, форматирования заголовков и разделов и многое другое. На портале о Microsoft Office Word вы узнаете про: как бруть непечатаемые символы в word 2010.
Кроме готовых решений и ответов на вопросы форум дает прекрасную возможность самому научиться оптимизировать и автоматизировать свою работу. На портале о Microsoft Office Word вы узнаете про: как сделать абзац, чтобы не менялся интервал.
Вы найдете все о создании макросов, шаблонов, работе с горячими кнопками, а также дополнительную литературу по Ворду и программированию. На портале о Microsoft Office Word вы узнаете про: как выбрать язык текста в ворде.
Также предусмотрена возможность оставить свое задание, для выполнения его участниками форума.