VBS将值从循环添加到数组答案

【问题标题】：VBS adding values from loop to arrayVBS将值从循环添加到数组
【发布时间】：2013-07-05 02:27:10
【问题描述】：

我有一个 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

【问题讨论】：

标签： vba loops ms-word

【解决方案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

【讨论】：