如何打印超过255个字符的数组？（VBA单词）

我将array（）声明为字符串，并将array（）的值设置为282个字符

当心与脑发生冲突时，让心跟随。。一个有才智的人可以变成魔鬼，但决不是一个有爱心的人。一切都可以为真理而牺牲，但真理不能为任何东西而牺牲。没有匮乏的地方就没有苦难

我试着在另一个页面上使用typetext选项打印它，它只打印255char，直到现在为止

当心与脑发生冲突时，让心跟随。。一个有才智的人可以变成魔鬼，但决不是一个有爱心的人。一切都可以为真理而牺牲，但真理不能为任何东西而牺牲。没有错误

关于这方面的任何建议，我如何得到它的实际范围

Sub Sortingauthor()
Dim TheInput As String
Dim Authorreference() As String
Dim SortedAuthorreference() As Variant
Dim i As Integer
Dim ReferenceCount As Integer
Dim References(1000) As String

ReferenceCount = InputBox("Enter the Number of References", "No. of References")

ReDim Authorreference(1 To ReferenceCount)
ReDim SortedAuthorreference(1 To ReferenceCount)

Selection.HomeKey unit:=wdStory
With Selection.Find
    .text = "^pReferences^p": 
    .Replacement.text = vbnullstring:  
    .Forward = True: 
    .Wrap =      wdFindContinue: 
    .Format = False:  
    .MatchCase = False: 
    .MatchWholeWord = True: 
    .MatchWildcards = False:        
    .MatchSoundsLike = False: 
    .MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight unit:=wdCharacter, count:=1

For i = 1 To ReferenceCount
    Selection.MoveDown unit:=wdParagraph, count:=1, Extend:=wdExtend
    Authorreference(i) = Selection.Range.text
    Selection.MoveRight unit:=wdCharacter, count:=1
Next i

WordBasic.sortarray Authorreference()

For i = 1 To (UBound(Authorreference()))
    SortedAuthorreference(i) = Authorreference(i)
    MsgBox (SortedAuthorreference(i))
Next i

End Sub

排序前正确打印数组值。但使用后 用于排序过程的wordbasic.sortarray命令。它只延伸到 自打印以来，共有255个字符。如果我们想进行有效的排序 如果数组的大小超过255char，我们必须进行快速排序或 气泡排序

---

请给我们看一些代码。（您是否正在编写幸运饼干消息生成器？）