"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
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