MS-Word97 / Tællefunktion

Nedenstående kode burde kunne gøre det ;o)

Sub Document_New()
    Dim TmpCount As Long
   
    TmpCount = GetSetting("Word", "WordCounter", "Counter")
    SaveSetting "Word", "WordCounter", "Counter", TmpCount + 1
    MsgBox "Så er der ialt: " & TmpCount + 1
End Sub

Alt afhængig af hvordan du vil bruge koden så prøv evt. at skriv Document_Open istedet for Document_New

Således at koden ser ud som følger:


Sub Document_Open()
    Dim TmpCount As Long
   
    TmpCount = GetSetting("Word", "WordCounter", "Counter")
    SaveSetting "Word", "WordCounter", "Counter", TmpCount + 1
    MsgBox "Så er der ialt: " & TmpCount + 1
End Sub

Jeg fik ikke mig formuleret præcist nok.

Det jeg ønsker at lave, er et felt. Hvis jeg f.eks. vil lave en skabelon til fakturaer, hvor på der står et fakturanummer. Dette fakturanummer-felt, ønsker jeg at kunne definere til at starte ved f.eks 10000. Dernæst skal feltet tælles op med 1 hver gang skabelonen startes.