Etiketter, nummerering automatisk

Du er velkommen til at sende det til: pb@supertekst-it.dk
Hvis 2007 format -venligst konverter til 2003.

Kære supertekst. Jeg mailer dig nu. Tilgiv at det har varet så længe. Læg et svar, så får du points.

Const ræk = 5                                      'billettens nr. er placeret i række
Const kol = 1                                      '-"- i kolonne
Sub AutoOpen()
Dim startNr
    startNr = InputBox("Indtast første billetnr", "Nummerering af biletter")
    If startNr <> "" And IsNumeric(startNr) = True Then
        indsætBilletNr Val(startNr)
    End If
End Sub
Sub indsætBilletNr(nr As Integer)
   
    Application.ScreenUpdating = False
   
    With ActiveDocument.Tables(1)
        antalbiletter = .Tables.Count
        For billet = 1 To antalbiletter
            With .Tables(billet)
                .Cell(ræk, kol).Select
                Selection.TypeText Text:=Format(CStr(nr), "0#")
            End With
Rem optæl billetnr
            nr = nr + 1
        Next billet
    End With
   
    Application.ScreenUpdating = True
   
Rem Gå til start af dokument
    Selection.HomeKey Unit:=wdStory
End Sub

Kan du bruge det fremsendte?

Nej, det var for indviklet for min trætte hjerne. Men jeg gør noget helt andet: Har 156 (4 ark med 14 på hver), som jeg har håndnummereret. Så printer jeg bare det antal, jeg skal bruge. Læg et svar og mange tak for hjælpen. Tilgiv den lange ventetid.