I've now got to this:





Sub BarcodeLabels()

Dim C As Cell
Dim objTable As Table

For Each objTable In ActiveDocument.Tables
For Each C In ActiveDocument.Tables(1).Range.Cells



Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:="*"
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:="* "
Selection.Expand wdLine
Selection.Font.Name = "Free 3 of 9"
Selection.Font.Size = 14
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend
Selection.Font.Name = "Arial"
Selection.EndKey Unit:=wdLine
Selection.Move Unit:=wdCell, Count:=1
Next C

Next objTable

End Sub

Which runs through the first page of labels quite happily, and then loops in the last cell in the table without moving on to the next page (which I presume is a separate table). Any ideas? I'd be very grateful for any help!