Изменить подсветку
В документе Word у меня есть фрагменты (с пробелами перед "{"):
{""start": 15.4, "end": 31.5, "content": ”SOME_TEXT”.",},
Числа между "начало" и "конец" и "содержание" являются переменными. Как установить желтую подсветку только на SOME_TEXT?
Но иногда в "SOME_TEXT" есть тег html:
<br>, </br>, <ul>, </ul>, <li>, </li>, <b>,</b>, <i>, </i>, <u>, </u>
1 ответ
Я нашел и изменил этот код, но я не знаю, как добавить переменную 'TargetList' для чисел и SOME_TEXT.
Sub test_highlight()
Dim range As range Dim i As Long Dim TargetList
TargetList = Array("<ul>", "</ul>", "<li>", "</li>", "<br>", "</br>", "<b>", "</b>", " {""start"": ""end"": ,""content"":""SOME_TEXT."",}, ")
For i = 0 To UBound(TargetList)
Set range = ActiveDocument.range
With range.Find .Text = TargetList(i) .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False
Do While .Execute(Forward:=True) = True range.HighlightColorIndex = wdWhite
Loop
End With Next
End Sub