How to highlight same words in vscode

Option Explicit

Public Function HighlightOneWordInDocument(DocToHighlight As Document, ByVal WordToHighlight As String) As Boolean
    If Len(WordToHighlight) = 0 Then Exit Function 'exit if no WordToHighlight is empty otherwise below if fails
    If Asc(Right(WordToHighlight, 1)) > 32 Then
        With DocToHighlight.Content.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Replacement.Font.Bold = True
            .Replacement.Font.ColorIndex = wdDarkRed
            .Replacement.Text = "^&"
            .Forward = True
            .Format = True
            .MatchWholeWord = True
            .MatchCase = True
            .MatchWildcards = False
            .Wrap = wdFindContinue
            .Text = WordToHighlight
            HighlightOneWordInDocument = .Execute(Replace:=wdReplaceAll)
        End With
    End If
End Function

HighlightOneWordInDocument(docCurrent, wrdRef) 
  'returns true if wrdRef was replaced in docCurrent

Sub CompareWordList1()
    Dim sCheckDoc As String
    Dim docRef As Document
    Dim docCurrent As Document
    Dim wrdRef As Object

    sCheckDoc = "D:\List.docx"
    Set docCurrent = Selection.Document
    Set docRef = Documents.Open(sCheckDoc)
    docCurrent.Activate

    Dim FoundWords() As String
    ReDim FoundWords(0)
    For Each wrdRef In docRef.Words
        If HighlightOneWordInDocument(docCurrent, wrdRef) = True Then
            'if something was replaced remember this word in the FoundWords array
            ReDim Preserve FoundWords(UBound(FoundWords) + 1)
            FoundWords(UBound(FoundWords)) = wrdRef
        End If
    Next wrdRef

    'now we go throug the FoundWords array to highlight the list
    Dim FoundWord As Variant
    For Each FoundWord In FoundWords
        HighlightOneWordInDocument docRef, FoundWord
    Next FoundWord

    docRef.Close 'to save the highligted ist use docRef.Close SaveChanges:=True
    docCurrent.Activate
End Sub

const words = ['Lorem', 'ipsum'];

const getWords = async () => {
	//Use API calls here or simply define pass in Constants
  highlight(words);
}

const highlight = (words) => {
	const high = document.getElementById('highlight')
  const paragraph = high.innerHTML.split(' ');
  let res = [];
  
  paragraph.map(word => {
    let t = word
    if(words.indexOf(word) > -1){ 
      t = '<a class="high">' + word + '</a>'
    }
    res.push(t)
  })
  high.innerHTML = res.join(' ')
}

window.onload = getWords();

.high{
  background-color: yellow; 
  display: inline;
  margin-right: 5px;
}

<div >
  <p id="highlight">
    Lorem ipsum dolor sit amet, consectetur adipisicing elit. Optio odio voluptas tempora voluptates expedita quo, nemo sint ipsa similique aliquid doloribus accusamus commodi amet id adipisci eos, inventore in consectetur.
  </p>
</div>

library(tableHTML)

mtcars %>% 
  tableHTML() %>% 
  add_css_conditional_column(columns = 0,
                             conditional = "contains",
                             value = "Toyota",
                             css = list(c("background-color"),
                                        c("yellow")))

words <- c("Merc", "Fiat", "Honda")

tableHTML <- mtcars %>% 
  tableHTML() 

for (word in words) {
  tableHTML <- tableHTML %>% 
    add_css_conditional_column(columns = 0,
                               conditional = "contains",
                               value = word,
                               css = list(c("background-color"),
                                          c("yellow")))
}

library(magrittr) # for the %<>% pipe

rownames(mtcars) %<>% 
  stringr::str_replace_all(c('Merc' = '<span style="background-color:yellow">Merc</span>',
                  'Fiat' = '<span style="background-color:yellow">Fiat</span>',
                  'Honda' = '<span style="background-color:yellow">Honda</span>'))


mtcars %>% 
  tableHTML()

"todohighlight.keywords": [
    {
        "text": "NOTE:",
        "color": "#000000",
        "backgroundColor": "#ff00dc",
        "overviewRulerColor": "grey"
    },
    {
        "text": "your choice of keyword",
        "color": "your choice of color",
        "backgroundColor": "your choice of color",
        "overviewRulerColor": "your choice of color"
    }
]