Найти все слова/словосочетания с заданным стилем и ДОБАВИТЬ к ним теги HTML

@Aout · Регистрация: 08.08.2016

Author24 — интернет-сервис помощи студентам

Собственно, задача - превратить Word в автоматический HTML-редактор.
К примеру, в тексте есть предложение:
Водка очень крепка, а мясо протухло.
Слова "Водка" и "мясо" используют стиль "обычный",
а словосочетание "очень крепка" и слово "протухло" - "полужирный"
надо, чтобы макрос сделал так:

Водка <b>очень крепка</b>, а мясо <b>протухло</b>.

эту задачу пытаюсь решить следующим образом:

Visual Basic

Sub FindStyleAndAddTags()
    Selection.Find.Style = ActiveDocument.Styles("полужирный")
    With Selection.Find
        .text = ""
        .Replacement.text = "<b>" + НайденныйТекст + "</b>"      ' текст для замены
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

НАЙДЕННОЕ значение где-то хранится?
как его присвоить переменной НайденныйТекст?

SoftIce · 08.08.2016, 09:25

Не по теме:

----

@Sasha_Smirnov · 09.08.2016, 04:54

Конвертирование форматирования Word в BB код форума Cyberforum.ru

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	09.08.2016, 04:54	3
	Сообщение было отмечено Aout как решение Решение Конвертирование форматирования Word в BB код форума Cyberforum.ru 2

Найти все слова/словосочетания с заданным стилем и ДОБАВИТЬ к ним теги HTML

Решение