It shouldn't make any difference how many lines as long as the required
separate address lines are each separated by a comma and a space. - up to a
character limit of around 250. The address is read as the one line that it
is, and the additional code

lBreak = "," & vbCr
Address = replace(Address, ", ", lBreak)

break the string into a series of paragraphs which can be entered as a
block.

I use something similar to the following to read from Settings.ini stored in
the Word startup folder which contains a section something like

[UserName]
Name = "Graham Mayor"
Address = "1 My Street, My Town, My PostCode, My Country"
Phone = "99 123456"
Email = "gmayor@REMOVETHISmvps.org"

Sub AddDataFromINIFile()
Dim SettingsFile As String
Dim Name As String
Dim Address As String
Dim EMail As String
Dim Phone As String
Dim lBreak As String

SettingsFile = Options.DefaultFilePath(wdStartupPath) & "\Settings.ini"

Name = System.PrivateProfileString(SettingsFile, _
       "UserName", "Name")
Address = System.PrivateProfileString(SettingsFile, _
       "UserName", "Address")

lBreak = "," & vbCr
Address = replace(Address, ", ", lBreak)

Phone = System.PrivateProfileString(SettingsFile, _
       "UserName", "Phone")
EMail = System.PrivateProfileString(SettingsFile, _
       "UserName", "Email")

With Selection
           .TypeText Text:=Name
           .TypeParagraph
           .TypeText Text:=Address
           .TypeParagraph
           .TypeParagraph
           .TypeText Text:="Phone: " & Phone
           .TypeParagraph
           .TypeText Text:="E-mail: " & EMail
End With
End Sub