如何在VBA中动态添加自定义词汇到SpObjectTokenCategory？

在Visual Basic for Applications (VBA) 中，如果你想在Excel或其他支持词汇自动完成的对象（如SpObjectTokenCategory）中动态添加自定义词汇，你需要使用Office Fluent API，特别是`Microsoft.Office.Interop.Excel`库。以下是基本步骤：

1. 引入所需命名空间：

Imports Microsoft.Office.Interop.Excel

2. 获取`Application`实例，通常它代表当前运行的Excel应用：

Dim app As Excel.Application
Set app = New Excel.Application

3. 获取`Selection`或`Worksheet`，因为这些对象可以包含`SpObjectTokenCategory`：

Dim selection As Range
Set selection = ActiveSheet.Range('A1') ' 替换为你要操作的范围
Dim cat As SpObjectTokenCategory
Set cat = selection.ObjectTokenCategory

4. 创建一个自定义词汇列表，比如数组或集合：

Dim customWords() As String
customWords = Array("词1", "词2", "词3") ' 自定义词汇列表

5. 添加自定义词汇到`SpObjectTokenCategory`：

For Each word In customWords
    cat.Items.Add word ' 将每个单词添加为新选项
Next word

6. 确保保存你的更改，这通常发生在`退出Excel`前：

app.Quit
Set app = Nothing