VBA-阅读文本文件，将其分成数组并将其打印回VBA Word

Question

您好，我想将包含数据字符串的TXT文件划分为逐行分组。但是，我无法正确输入数据，或者我对函数getArlLength有问题。我是VBA的新手，无法弄清楚这个问题。宏以运行时错误'13'停止：键入不匹配并突出显示代码的这一部分：

GetArrLength = UBound(arr) - LBound(arr) + 1

希望这不是一个大问题。 感谢您的任何想法。

Sub apokus()

'PURPOSE: Send All Data From Text File To A String Variable


Dim TextFile As Integer
Dim filePath As String
Dim FileContent As String
Dim strAll As String
Dim arrString() As String

'File Path of Text File
  filePath = InputBox("Path to your MD file.", "Path to MD", "actual path to the file")


'Determine the next file number available for use by the FileOpen function
  TextFile = FreeFile
  
'Open the text file
  Open filePath For Input As TextFile
  
'Store file content inside a variable
  FileContent = Input(LOF(TextFile), TextFile)
  Close TextFile
  
arrString = Strings.Split(FileContent, vbCr)
Selection.TypeText Text:=GetArrLength(1)
Dim i As Long
For i = 1 To GetArrLength(arrString)
   Selection.TypeText Text:=GetArrLength(i) + vbNewLine
Next i

End Sub

Public Function GetArrLength(arr As Variant) As Long
   If IsEmpty(arr) Then
      GetArrLength = 0
   Else
      GetArrLength = UBound(arr) - LBound(arr) + 1
   End If
End Function

Answer 1

您的代码应如下：

arrString = Strings.Split(FileContent, vbCr)
Selection.TypeText Text:=GetArrLength(arrString)
Dim i As Long
For i = 0 To UBound(arrString)
   Selection.TypeText Text:=arrString(i) + vbNewLine
Next i

但是，我看不到您的代码的重点。您将包含许多段落的文本文件删除，删除运输返回，然后将文本插入添加马车返回的单词中。