"I have a number of address labels which are stored in table format in Word documents. I can't just save them as text files and then import them, because they import as one long record."
Open your labels in Word and save as as "Text Only" which yields a text doc with all of the names & addresses, but some have extra blank lines in-between, some have no blank lines in-between. The following code reads this text file and populates "Table1".
Layout of Table1
Line1 Text 50 Line2 Text 50 Line3 Text 50 Line4 Text 50
Standard Module
Sub GetText()
Dim db As Database, rst As Recordset
Dim s As String, x As Long
Set db = CurrentDb
Set rst = db.OpenRecordset("Table1")
Open "c:\windows\desktop\app.txt" For Input As #1
x = 0
Do While Not EOF(1)
Line Input #1, s
If Len(s) > 0 Then
' something on that line. . .
If x = 0 Then
rst.AddNew
Else
rst.MoveLast
rst.Edit
End If
rst.Fields(x) = s
rst.Update
x = x + 1
If x > 3 Then
x = 0
End If
End If
Loop
Close #1
rst.Close
End Sub