autonummering vanuit sjabloon in Word 2000

[hout80]

Hallo,

mbv onderstaande code wordt er vanuit een sjabloon een automatische nummering gemaakt in de bladwijzer "Nummer".

Option Explicit

Private Sub AutoNew()


Dim lNummer As Long
lNummer = Selection.GoTo(What:=wdGoToBookmark, Name:="Nummer").Text
lNummer = lNummer + 1
Selection.TypeText Text:=lNummer

UserForm1.Show
End Sub

Dat gaat 1x goed, daarna is in mijn sjabloon de bladwijzer "Nummer" verdwenen.

Hoe kan ik dat verhelpen?

In mijn Userform1 heb ik ook nog een volgend stukje code staan:

Private Sub RangeMyBookmark(sBm As String, sCtl As String)
Dim oRange As Word.Range
    With ActiveDocument
       Set oRange = .Bookmarks(sBm).Range
           oRange.Text = sCtl
           .Bookmarks.Add sBm, oRange
       Set oRange = Nothing
    End With
End Sub

Misschien heeft dit er mee te maken?


Alvast bedankt voor jullie moeite

Hugo

 

[snb]

Ik ben bang dat je geen idee hebt wat VBA is en doet.
suggestie:

vervang

Option Explicit

Private Sub AutoNew()
  Dim lNummer As Long
  lNummer = Selection.GoTo(What:=wdGoToBookmark,  Name:="Nummer").Text
  lNummer = lNummer + 1
  Selection.TypeText Text:=lNummer

  UserForm1.Show
End Sub

door

Private Sub AutoNew()
  on error resume next
  Thisdocument.variables("nummer")=Thisdocument.variables("nummer")+1
  if err.number >0 then Thisdocument.variables("nummer")=1
  UserForm1.Show
End Sub

Die overige code heeft er waarschijnlijk niets mee te maken. Is afhankelijk van de waarde van variabele sBM
Bookmarks zijn geen handige faciliteit in Word.

 

[HUBOF]

Autonummering

Ik heb helemaal geen benul van VBA en begrijp ook niet waar ik dat stukje VBA moet plaatsen.
Kan iemand me niet een simpel voorbeeld sturen met autonummering hierin geplaatst.
Dit zou een grote hulp voor me zijn.