-1

array() を文字列として宣言し、282 文字の値を持つ array() を持っていました

心と頭脳の間に葛藤があるときは、心に従いましょう。真実のためにすべてを犠牲にすることはできますが、真実は何のためにも犠牲にすることはできません。欠乏のないところに悲惨はありません。

typetextオプションを使用して別のページに印刷しようとしましたが、これまでに255文字しか印刷されません

心と頭脳の間に葛藤があるときは、心に従いましょう。真実のためにすべてを犠牲にすることはできますが、真実は何のためにも犠牲にすることはできません。ミスがない

これに関する提案はありますが、実際の範囲でそれを取得するにはどうすればよいですか?

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
4

1 に答える 1

0

配列値は、並べ替える前に正しく出力されます。しかし、ソートプロセスにwordbasic.sortarrayコマンドを使用した後。印刷するため、255文字までしか拡張できません。255文字を超える配列の効率的な並べ替えを続行する場合は、クイックソートまたはバブルソートを使用する必要があります。

于 2012-07-02T09:02:12.640 に答える