Hi all,

I'm very new indeed to macros so this may be a very simple question - if so, I'm sorry! I've carried out a mail merge on some data to make labels, and I now want to turn the first line of each label into a barcode. I've got a macro that will make the barcode, but instead of looping through the cells in the table it runs on the first cell over and over again. Can anyone help to diagnose what I've done wrong? The code is:



Sub BarcodeLabels()

Dim oRow As Row
Dim oCell As Cell
Dim oTbl As Table

For Each oTbl In ActiveDocument.Tables
For Each oRow In oTbl.Rows
For Each oCell In oRow.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
Next oCell
Next oRow
Next oTbl

End Sub


Thank you for any help you can give!