42000 hedder det første dokument....

Ja, det har jeg et bud på, hvis dokumentet må gemmes med det samme.

Skal denne nummerrækkefølge gælde på flere pc\'er ?
- altså således at du åbner 42000.doc, og din kollega så åbner 42001.doc, og den næste du laver hedder 42002.doc.
Skal det hænge således sammen ?

eller er det kun på en PC ?

Jeg har en marko og en nummerrulle som klarer dette problem, uanset om det er via netværk eller en enkelt pc\'ere. Interesseret?

til at starte med er det kun på én PC,- men det vil da ikke være dårligt, hvis det kunne lade sig gøre på flere samtidige sessioner....

så fyr løs !

amh>> jeg vil gerne se den.

amh >> ja, kom med et forslag

Undskyld, jeg har holdt weekend, men her er mit forslagJeg har oprettet et dokument med et word-dok med et numeriskfelt \"nummerrulle\" samt en AutoNew makro, der åbner nummerrullen og opdaterer den.

Makroen, der opr. fra. Office 95, men kører upåklageligt både i ver. 97 og XP (2002), har følgende indhold:

Dim sti$
Dim journr$
Dim GemJaNej
Dim Tekst$
Rem sti$ = \"C:\\Dokumenter\\\"
Rem WordBasic.ChDir sti$
journr$ = HentJNr$

GemJaNej = -1
Dim brugerdlg As Object: Set brugerdlg = WordBasic.DialogRecord.ToolsOptionsUserInfo(False)
WordBasic.CurValues.ToolsOptionsUserInfo brugerdlg

Tekst$ = journr$

WordBasic.WW7_EditGoTo Destination:=\"jnr\"
WordBasic.Insert Tekst$

If GemJaNej = -1 Then
    WordBasic.FileSaveAs Name:=journr$
Else
    WordBasic.FileSave
End If

End Sub

Private Function HentJNr$()
Dim Nrfil$
Dim text_$
Nrfil$ = \"T:\\doknr\\nummer-office97.doc\"
WordBasic.ScreenUpdating 0
WordBasic.FileOpen Name:=Nrfil$
text_$ = WordBasic.[GetFormResult$](\"nummer\")
WordBasic.SetFormResult \"nummer\", WordBasic.[LTrim$](Str(WordBasic.Val(text_$) + 1))
WordBasic.FileSave
WordBasic.FileClose
WordBasic.ScreenUpdating 1
HentJNr$ = text_$
WordBasic.ViewPage
End Function

Trist at du ikke kunne anvende dette. Jeg har ellers brugt dette både på enkelt pc'ere og i netværk, hvor alle brugere anvender den samme nummerrulle
//AMH

lukker