autonummerering ved åpning av dokumentmal

[CruellaDeVille]

Jeg kan INGENTING visual basic, men har likevel behov for et lite skript.

Jeg skal lage en dokumentmal, som hver gang den åpnes oppdaterer en teller (nesten som autonummerering i en database). Er dette mulig i VB eller må jeg koble dette til en database?

 

Hvis noen kan vise meg en retning, alternativt peke meg i riktig retning på google blir jeg evig takknemlig. Har forsøkt å google på autonumber visual basic document open, men finner lissom ikke det jeg leter etter.

[aadnk]

Du kan benytte dokumentvariabler og labeller til dette formålet. Legg først inn en labell ved navn lblOpened (View -> Toolbars -> Visual Basic. Trykk så på A-ikonet), hvoretter du trykker ALT+F11 og limer inn følgende kode i vinduet som åpnes:

Private Sub Document_Open()

 

    ' Ignore all errors (we'll catch them insted)

    On Error Resume Next

 

    ' Firstly, retrieve the counter

    lngOpened = Variables("DocOpened").Value

 

    ' If it hasn't been accessed before, we have to create it

    If lngOpened <= 0 Then

        Variables.Add "DocOpened", 0

    End If

   

    ' Then, increase the value of the counter

    Variables("DocOpened").Value = lngOpened + 1

 

    ' Write the counter to the document

    lblOpened.Caption = lngOpened

 

End Sub

 

Dersom du vil gjøre dette med Excel, må du bruke denne koden i stedet (trykk på ThisWorkbook etter ALT+F11):

 

Private Sub Workbook_Open()

 

    ' Remember to change the name of Sheet1 here if you change it

    Sheet1.Range("F2").Value = Sheet1.Range("F2").Value + 1

   

End Sub

 

For å forenkle det hele, har jeg vedlagt et Word og Excel-dokument der dette alt er blitt utført.

Teller.zip