vba - 在 word vba 中创建更长的列表

Question

我对我正在编写的代码有疑问，以突出显示某些单词和短语。该代码正在检查大量短语。我有列表，但我想知道如何将它们全部放在一个数组中。当我尝试将它们全部粘贴到数组中时，它会到达行尾并且不起作用。因此，我必须创建多个数组。这需要很多时间，因为我可能需要根据它检查的大量短语创建 30 多个数组。

Dim range As range
Dim i As Long
Dim WordList

WordList = Array("wordx", "wordy", "wordz") ' 

For i = 0 To UBound(WordList)

Set range = ActiveDocument.range

With range.Find

标签： vbams-word