[Marsella_88]

Код:

            // активный word-документ
            Word.Document thisDocument = thisApplication.ActiveDocument;
            // заменяем на Тег
            string find = "{Тег_";
            // счетчик
            int s = 0;

            // цикл поиска выделений в word-документе
            foreach (Word.Range Range_1 in thisDocument.Words)
            {
                // проверка этого выделения на цвет
                if (Range_1.HighlightColorIndex == Word.WdColorIndex.wdYellow)
                {
                    // сюда записываем выделенное слово
                    string slovo_1 = Range_1.Text;
                    s = s + 1;
                    // запись слова в textBox
                    textBox1.Text += slovo_1 + Environment.NewLine;
                    // запись тегов в textBox1
                    textBox2.Text += "{Тег_" + s + "}" + Environment.NewLine;

                    // запускаем второй цикл для нахождения одинкаовых выделенных слов
                    foreach (Word.Range Range_2 in thisDocument.Words)
                    {
                        // проверка выделения на цвет
                        if (Range_2.HighlightColorIndex == Word.WdColorIndex.wdYellow)
                        {
                            string slovo2 = Range_2.Text;
                            // проверка "одинааковые ли выделенные слова"
                            if (slovo_1 == slovo2)
                            {
                                // замена выделенного слова на Тег
                                Range_2.Text = find + s + "} ";
                                // обесцвечиваем фон за текстом
                                Range_2.HighlightColorIndex = Word.WdColorIndex.wdWhite;
                            }
                        }
                    }

                }
            }