Makro til autonummerering i dokument

Kan du ikke bruge den der er i Excel som udgangspunkt ??
Den har de features du efterlyser.

Her er en kode, der giver dig løbende fakturanumre:

Den skal kopieres ind i et almindeligt modul i din skabelon.

Sub AutoNew()
Dim FakturaNr As Integer

'Henter fakturanummeret fra en textfil (nummeret står på først linie)
Open "c:\Fakturanummer.txt" For Input As #1
Input #1, FakturaNr
Close #1

'Indsætter fakturanummeret ved bogmærket "Fakturanummer" i dokumentet
If ActiveDocument.Bookmarks.Exists("Fakturanummer") = True Then
    ActiveDocument.Bookmarks("Fakturanummer").Select
End If

'Tæller op til næste faktura
FakturaNr = FakturaNr + 1

'Gemmer det nye fakturanumer i textfilen
Open "c:\Fakturanummer.txt" For Output Access Write As #1
Write #1, FakturaNr
Close #1

End Sub

Koden tager ikke højde for, at man måske fortryder fakturaoprettelsen. Denne lille udfordring kunne klares ved at vente med at gemme det nye fakturanummer indtil brugeren f.eks, trykker på en knap på værktøjslinien, der gemmer fakturaen og også gemmer det nye nummer.

Husk at opretter bogmærket "Fakturanummer" :-)

Her er så hele koden (med knapmuligheden, der gemmer din faktura på fakturannummeret som navn og som tæller fakturanummeret op):

Public FakturaNr As Integer
Sub AutoNew()
Dim FakturaNr As Integer

'Henter fakturanummeret fra en textfil (nummeret står på først linie)
Open "c:\Fakturanummer.txt" For Input As #1
Input #1, FakturaNr
Close #1

'Indsætter fakturanummeret ved bogmærket "Fakturanummer" i dokumentet
If ActiveDocument.Bookmarks.Exists("Fakturanummer") = True Then
    ActiveDocument.Bookmarks("Fakturanummer").Select
End If
End Sub
Sub GemFaktura() ' sæt denne makro på en knap

'Gemmer fakturaen
ActiveDocument.SaveAs "c:\" & FakturaNr & ".doc"

'Tæller op til næste faktura
FakturaNr = FakturaNr + 1

'Gemmer det nye fakturanumer i textfilen
Open "c:\Fakturanummer.txt" For Output Access Write As #1
Write #1, FakturaNr
Close #1

End Sub

Held og lykke

kanon rvm- men kan du evt. give mig lidt mere instruktion, da jeg ikke har arbejdet ret meget med dette før...

1).Skal jeg selv lave Fakturanummer.txt

2). Hvor skal denne kode kopieres ind henne?


Ekstra:
3). Er det muligt at fortælle når man ønsker at gemme skal den foreslå det fakturanummer også?

Altså som filnavn...

Ok- det er også det den gør- kanon, men jeg kan ikke umiddelbart få den til at sætte nr fra txt fil ind på bestemt bogmærke....

Har oprettet bogmærke... Hjælp!!!!

Ja - du skal selv lave Fakturanummer.txt og skrive f.eks. "1" på første linie

Koden skal kopieres ind i et modul i skabelonen - altså

Åbn skabelonen (det skal være en .dot-fil)
Tryk Alt+F11
Vælg skabelonen i billedet til venstre (det er ligesom en stifiner)
Vælg Insert/Module

Kopier koden ind i modulet

Opret bogmærket, der SKAL hedde "Fakturanummer"

Kkoden virker kun, når du laver et nyt dokument på baggrund af skabelonen - alså når du har gemt din skabelon i skabelonbiblioteket (der hvor de andre skabeloner er placeret) og starter den via Filer/Ny

Det spiller max med at lave en fortløbende nummer og gemme de oprettede faktura. Men jeg kan ikke få vist fakturanummeret i bogmærket.

Har forsøgt at indsætte et bogmærke, men der sker ikke noget.

Har også indsat et tekstfelt hvor jeg skrev afspilning af makroen ved indgang på bogmærket "Fakturanummer"- how else???

Er det select kommandoen der indsætter den hentede værdi fra txt dokumentet i bogmærket?

Ups - jeg har jo glemt koden for indsættelse af fakturanummeret :-(

Den er
If ActiveDocument.Bookmarks.Exists("Fakturanummer") = True Then
    ActiveDocument.Bookmarks("Fakturanummer").Select
    Selection.TypeText FakturaNr ' Den nye kode
End If

:-) - syntes nok den så lidt mystisk ud, men kender ikke VB, så var ikke helt sikker..,.

Hvad gør jeg forkert- den smider en popup med "Can't execute in break mode".
Ved debug kan jeg se at det er den nye linie den går galt i.

Nu har jeg fjernet udførslen af AutoNew makroen fra alle tekstfelter og så kommer problemet heller ikke, men der sker heller ikke noget.

"Can't execute in break mode". kommer, når du prøver at køre en kode, der kører allerede.

Send lige skabelonen til mig, så kikker jeg den efter i sømmene *S*

rvejemad@sca.csc.com

Hej igen, jeg sendte ikke lige skabelonen, da jeg havde det til at virke et øjeblik, men det viser sig at den ikke kan indsætte fakturanummeret, når skabelonen er låst(altså gemt med kun de indsatte formularer tilgængelige). Derimod virker det fint når den ikke er låst.

Nogen ideer?

Men ellers er pointene vist ærligt fortjent rvm... tak for hjælpne, håber evt. du kan hjælpe mig med det sidste problem...

Desuden kan jeg ikke umiddelbart ændre fakturanummeret fra 0 til 10000, uden at dokumentet gemmes som "0" og nummeret i Fakturanummeretændres til 1 og ikke som ventet til 10001!!- Mystisk

Angående skrivebskyttelse så brug denne kode til at låse dokumentet op

    If ActiveDocument.ProtectionType <> wdNoProtection Then
        ActiveDocument.Unprotect
    End If

og denne kode til at låse det igen, når fakutranummeret er indsat

    If ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Protect wdAllowOnlyFormFields, True
    End If

Angående fakturanummert, så skal det ændres i fakturanummer.txt. hvis dette ikke hjælper så skal variablen dimensioneres til et større tal
f.eks. Dim FakturaNr As Long

Jeg takker for hjælpen- det virker nu - bortset fra det med fakturanummeret stadig ændres til 0 når dokumentet gemmes, selvom jeg har skiftet variabel type og ændret i txt filen.

Slet

"Dim FakturaNr As Integer"

og sørg for at

"Public FakturaNr As Integer" står helt øverst i dit modul

Vil man i sådan en tæller som denne kunne gøre så dan starter og slutter et sted og så printer det ud og skifter tal og printer igen, som en slags LOOP??