Word VBA system.collections.queue问题

时间:2017-02-07 00:47:19

标签: vba ms-word word-vba

我正在尝试在VBA中创建一个用于单词的宏来浏览文档并获取文本格式的每个实例,并将其输入到表的不同行中。为此,我有一个循环遍历此格式的每个实例,并将其添加到队列中,并将队列中的每个项目放在表中的不同单元格中,但是当我运行程序时,我在< / p>

Imports System.Collection.Queue

表示“编译错误:找不到方法或数据成员”,它不会让我使用程序的队列元素。程序的其余部分都运行正常。我假设这是因为VBA无法访问System.Collection.Queue库。在那里我可以访问VBA中的队列函数或以不同的方式实现此程序而不使用队列吗?

1 个答案:

答案 0 :(得分:2)

Dim q
Set q = CreateObject("System.Collections.Queue")

q.enqueue "A"
q.enqueue "B"
q.enqueue "C"

Debug.Print q.peek '>> "A"

Do While q.Count > 0
    Debug.Print q.dequeue
Loop