Tool(s) for additional table options

[Mike]

Has anyone seen any existing tools for providing additional options for
tables? For example, there are a number of tools to create what are known
as Bates labels (basically just numbered labels), but they all create a
*new* page each time rather than allowing you to start in the middle. Along
a similar line (or would tha be row?), there is no simple way to print a
sheet of labels starting on a specific row and I am looking for a tool that
would add that functionality.

TIA,

Mike

 

[Greg]

Mike,

This is crude, but might give you an idea:
Sub Test()

Dim oRng As Range
Dim i As Integer
Dim numRows
Dim numCols
Dim numCells
Dim startCell
Set oRng = Selection.Tables(1).Range
If Selection.Information(wdWithInTable) = True Then
With Selection
numRows = .Tables(1).Rows.Count
numCols = .Tables(1).Columns.Count
numCells = oRng.Cells.Count
End With
startCell = InputBox("Your lable template contains " & numCells & "
cells" _
& " arranged in " & numRows & " rows and " & numCols _
& " columns. Which cell do you want to start printing?")
End If

For i = startCell To oRng.Cells.Count
oRng.Cells(i).Range.Text = "Mrs John Smith"
Next

End Sub