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