Добавление тегов

[sergiksergik]

При вставке текста в excel

Год выпуска: 1994
Страна: Россия
Производство: "Студия"
Жанр: Драма
Продолжительность: 02:21:54

необходимо чтобы происходило обволакивание <b> </b> слов с помощью макрос.

<b>Год выпуска: </b>1994 
<b>Страна: </b>Россия 
<b>Производство: </b>"Студия"
<b>Жанр: </b>Драма 
<b>Продолжительность: </b>02:21:54

[motorway]

Можно воспользоваться функцией Replace по данному образцу:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Replace(Range("A1").Value, "Год выпуска", "<b>Год выпуска</b>")
End Sub

[sergiksergik]

Не получается.
да и если в A1 будут все значения вводиться то как прописать все

[Serge 007]

Формулами можно...
См. пример

[sergiksergik]

Подскажите пожалуйста.

[motorway]

А просто путём команды "Найти и заменить" не пробовали?

[Aent]

sergiksergik, выложите пример файла. Непонятно какой у вас разделитель строк для текста vbCR или vbCrLf.
Общая схема такая.
1) C помощью Split разбиваем строку на подстроки ( по VbCr)
2) Находим с помощью Instr ":"
3) Вставляем тэги
4) С помощью Join формируем результат

[sergiksergik]

Суть: будет копироваться информация с одного сайта и вставляться на другой, для того чтобы потом руками не выделять в тег <b> необходимо автоматизировать. Быстрее получится.
Прописываются слова которые надо выделять тегом (допустим в определенном диапозоне - столбец А). Копируется инфа в excel, нажимаем кнопку и те слова которые прописаны выделяются тегом.

Было:

Качество: SATRip
Формат: AVI
Видео кодек: XviD
Аудио кодек: MP3
Видео: 704x400, 25 fps, Xvid, ~1500 kbps
Аудио: 48 kHz, MP3, 2 ch, 128 kbps

Стало:

<b>Качество:</b> SATRip
<b>Формат: </b>AVI
<b>Видео кодек: </b>XviD
<b>Аудио кодек:</b> MP3
<b>Видео:</b> 704x400, 25 fps, Xvid, ~1500 kbps
<b>Аудио:</b> 48 kHz, MP3, 2 ch, 128 kbps

[Aent]

sergiksergik, вы не выложили файл и не указали разделитель между строками.

[sergiksergik]

Файла нет. Надо все с нуля. Лист excel в который будет копироваться инфа.
разделитель?!