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

Question

我将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

Answer 1

  

在排序之前正确打印数组值。但使用后   wordbasic.sortarray命令用于排序过程。它只延伸到   打印后自255个字符。如果我们想进行有效的排序   一个超过255char的数组，我们必须去Quicksort或   泡泡排序。