vba - VBS将值从循环添加到数组

Question

我有一个 VBS，它可以在 word 文档中找到下一个音轨变化，然后显示一个带有页码的消息框。

这会循环，这不是问题，但我要做的是将这些“CurPage”变量添加到单个数组中。所以不是 msgbox 36 然后是 msgbox 38 - 它是 msgbox 36、38 等。

我还需要解决文件结尾以退出循环。

Dim i As Integer
i = 0

'get us home
    Selection.HomeKey Unit:=wdStory

Do
'find next change
    WordBasic.NextChangeOrComment

'get current page
    CurPage = Selection.Information(wdActiveEndAdjustedPageNumber)
    MsgBox (CurPage)

'<Add CurPage value to array>

'<find out if we have reached the end of file, if so end loop>


  i = i + 1
Loop Until i = 188
End Sub

Answer 1

我会解决你的第一个问题；你需要一个单独的帖子来写第二个（关于退出循环），因为它是一个完全不同的话题。

你不需要数组。您需要一个可以显示的字符串MsgBox。

  Dim i As Integer
  Dim Pages as String

  i = 0
  Pages = "";    

  'get us home
  Selection.HomeKey Unit:=wdStory

  Do
    'find next change
    WordBasic.NextChangeOrComment

    'get current page
    CurPage = Selection.Information(wdActiveEndAdjustedPageNumber)
    Pages = Pages & ", " & CurPage

    '<Add CurPage value to array>

    '<find out if we have reached the end of file, if so end loop>

    i = i + 1
  Loop Until i = 188
  MsgBox Pages

End Sub