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

Question

我声明数组（）作为字符串，并与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 

Answer 1

数组排序之前正确值打印。但在使用 wordbasic.sortarray命令进行排序过程后。自打印以来，它只能延伸到255个字符，最多可达 。如果我们想要对 进行高效排序，并且有超过255char的数组，我们必须进行Quicksort或 冒泡排序。