Анализ найденного текста, поиск и сортировка в ячейке в соответствии с найденным текстом

[Посетитель 17.10.2024]

есть задания на сопоставление типа:

"Сопоставьте священнодействие в конце великого входа с соответствующим ему символическим значением:
священнодействие

символическое значение
А. Закрытие царских дверей
Б. Поставление Св. Даров на антиминс
В. Закрытие завесы
Г. Покровение Св. Даров воздухом
1. Положение во гроб Господа Иисуса Христа
2. Покровение плащаницей.
3. Приваление камня к дверям гроба
4. Поставление печати к дверям гроба

Эталон ответа: А-3, Б-1, В-4, Г-2  (3,1,4,2)"

Одно такое задание занимает одну ячейку таблицы. Их много в тексте, причем некоторые во вложенных таблицах. Нужно найти их и расположить в соответствии с эталоном ответа и добавить при этом определенный текст. Результат должен быть таким:

<box random="y" format="custom">   Сопоставьте священнодействие в конце великого входа с соответствующим ему символическим значением:            
   священнодействие            
   символическое значение            
<answer rating="10" right="   А. Закрытие царских дверей   ">   3. Приваление камня к дверям гроба   </answer>   
<answer rating="10" right="   Б. Поставление Св. Даров на антиминс   ">   1. Положение во гроб Господа Иисуса Христа   </answer>   
<answer rating="10" right="   В. Закрытие завесы   ">   4. Поставление печати к дверям гроба   </answer>   
<answer rating="10" right="   Г. Покровение Св. Даров воздухом   ">   2. Покровение плащаницей.   </answer>   </box>


П.С. Я освоил немного для этой задачи.

Sub выделение_ячейки()
With Selection.Cells(1)
 .Select
 End With
End Sub
 
Sub поиск_в_выделении()
Set MyRange = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)
For Each aWord In MyRange.Words
 If aWord.text = "1" Then aWord.text = "<answer rating=" + Chr$(34) + "1" + Chr$(34) + ">"
Next aWord
End Sub

Sub количество_символов_выделения()
t = Len(Selection)
If t = 3 Then
MsgBox t, vbInformation
End If
End Sub