Форматирование цветом в Word из VB

[Лёха_Virus]

Здраствуйте!
Задача такая: в текстовую переменную pText загоняются предложения. а потом эта переменная загоняется в ворд:

Код: Выделить всё

With wd.ActiveWindow.Selection
        .InsertAfter pText
        .InsertParagraphAfter
        .Font.Bold = fbold
        .ParagraphFormat.Alignment = align
        .Font.Name = fname
        .EndOf
    End With

можно ли добавить какую-нибудь переменную в pText чтобы определённые предложения в ворде выделились цветом.
по типу как в хтмл-е <color="ff00ff">asdf.
есть в ворде такие служебные символы?

[alibek]

В служебные символы ты не пролезешь, изменяй их через объектную модель.

[GSerg]

Не, ну можно, конечно, сгенерить RTF и вставить его, но объектная модель проще

[alibek]

Хм... А как можно RTF подсунуть в открытый документ?

[Ennor]

Если бы я был уверен в том, что он сожрет RTF-формат и не подавится, то я бы ему так и пихнул бы что-нить типа:

\cf1 цветная строка \cf0

Проблем тут всего две: убедиться, что RTF-формат будет понят вордом гарантированно и однозначно, и раскопать colrtbl в хидере документа .

[GSerg]

Наколько я помню, во вставляемом фрагменте можно свою colrtbl определить...
Правда муть это...

А подсунуть-то просто: clipboard.settext "\cf1 цветная строка \cf0", vbCFRTF
Потом Paste, а Word разберётся

[alibek]

А без привлечения буфера обмена?

[Ennor]

Наколько я помню, во вставляемом фрагменте можно свою colrtbl определить...

Правда? Меня, признаться, в свое время заломало читать все 248 страниц спецификации RTF, но такого я там не видел, хотя изучал как раз раздел цветов. Впрочем, автору топика этот способ все равно вряд ли пригодится...

[Лёха_Virus]

рассуждения интересные...
упомянули тут про объектную модель - это через word.document?
тут проблема в том что придётся каждый фрагмент отдельно вставлять в ворд, а не целый текст... отсюда огромная потеря быстродействия...
а вот RTF... RTBox аналогично будет работать? если сначала в RTB загнать а потом в ворд оттуда... получится?

[Лёха_Virus]

нет, RTF вместе с RTB не работает... вот как в ворде выглядит одно красное слово:

{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\fswiss\fprq2\fcharset204{\*\fname Arial;}Arial CYR;}{\f1\fnil\fcharset204 MS Sans Serif;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\lang1049\f0\fs20\'e7\'ed\'e0\'f7\'e5\'ed\'e8\'ff\'ec\'e8 \cf0\'ee\'e1\'ed\'e0\'f0\'f3\'e6\'e8\'e2\'e0\'e5\'f2\'f1\'ff \f1\fs17
\par }

вот там виднеется колортабл, чарсет вылез, кодировка какая-то зверская...

[Viper]

это не зверская кодировка, это русские буквы

[Лёха_Virus]

а можно написать вордовский макрос из вб и запустить его?
а макрос бы искал символ какой-нить и форматировал бы нужную строку цветом?

[Viper]

а можно написать вордовский макрос из вб и запустить его?
а макрос бы искал символ какой-нить и форматировал бы нужную строку цветом?

можно. и вернемся к исходному варианту, т.е. к обращению к Word через объектную модель

[Лёха_Virus]

а можно написать вордовский макрос из вб и запустить его?
а макрос бы искал символ какой-нить и форматировал бы нужную строку цветом?

можно. и вернемся к исходному варианту, т.е. к обращению к Word через объектную модель

ну всё равно макрос будет быстрее чем цикл!:

Код: Выделить всё

for i = 0 to 200
    With wd.ActiveWindow.Selection
        .InsertAfter pText (i)
        .InsertParagraphAfter
        .Font.Bold = fbold
        .ParagraphFormat.Alignment = align
        .Font.Name = fname
        .EndOf
    End With
next