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