Vba 在字段之间插入换行符

我试图根据一个简单文本文件的内容插入一系列Word字段，但是当我运行此代码时，它会将所有字段插入到一起，并在所有字段之后聚集所有换行符，而不是在每个字段之间插入换行符。请告诉我，我做错了什么

Option Explicit

Sub AddFields()

    Dim fileName As String
    fileName = InputBox("Filename containing field list")

    Dim fso As New Scripting.FileSystemObject
    Dim fileStream As Scripting.TextStream
    Set fileStream = fso.OpenTextFile(fileName, ForReading, False)

    Dim line As String
    While Not fileStream.AtEndOfStream
        line = fileStream.ReadLine

        Selection.Range.InsertBreak WdBreakType.wdLineBreak

        AddField line

    Wend

End Sub

Sub AddField(mergeFieldName As String)

    Dim fieldText As String
    fieldText = "MERGEFIELD  " & mergeFieldName & " "

    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=fieldText, PreserveFormatting:=False

End Sub

---

我也找不到一个好的解释

如果放置它们而不是插入断开行，这两种方法都有效：

Selection.InsertBreak WdBreakType.wdTextWrappingBreak 

Selection.TypeParagraph

---

第一个的含义稍有不同（请参阅），但在脚本上下文中看起来还可以。第二个问题是word在我录制宏并键入文本时所做的工作，非常完美，

InsertBreak-wdTextWrappingBreak

非常完美，谢谢！