Nummerering i word 2007 med macro

jeg ville gøre dette
til et givent doc skal makroen oprette (hvis ikke findes i forvejen) en fil med samme navn, bare type .ini (fx)
filen styres af din nummermakro, som læser første linje, lægger 1 til tallet, overskriver filen og skriver tallet i dok.

jeg har engang lavet noget lignende til autonummerering af breve, og det virker fint.

Kommentar til Claes57: Da nummereringen kun skal bruges i det ene dokument, som jeg forstår det, synes jeg, at det er enklere at gemme nummeret i dokumentet selv i stedet for i en separat fil, selv om det også ville være en mulighed.

Jeg ville bruge en DocVariable i selve dokumentet til at styre nummeret. Jeg har lavet en makro, som gør det - kommentarer inkluderet i selve makroen. Makroen opretter selv variablen ved første brug:


Sub InsertNuberedParagraph()
    Dim strVarName As String
    Dim nVarValue As String
   
    On Error GoTo ErrorHandler
   
    strVarName = "Number"
       
    With ActiveDocument.Variables(strVarName)
        'Get value to use = current value + 1
        nVarValue = .Value + 1
        'change DocVariable value
        .Value = nVarValue
    End With
   
    'Insert paragraph with number nValue
    With Selection
        'collapse selection at end op last para in selection
        .End = .Paragraphs.Last.Range.End
        .Collapse wdCollapseEnd
        .InsertParagraphAfter
       
        .Collapse wdCollapseStart
.Select
        .Range.Text = nVarValue & " "
        'Change style below as needed
        .Style = ActiveDocument.Styles(wdStyleBodyText)
        'Position cursor now after inserted number + space
        .MoveRight Len(nVarValue) + 1
    End With
   
    Exit Sub
'=========================
ErrorHandler:
    If Err.Number = 5825 Then
        'Variable does not exist - add and set value to 1
        ActiveDocument.Variables.Add strVarName, 1
        nVarValue = 1
        Resume Next
    End If
End Sub

Tak til lene-fredborg

Det var lige den løsning jeg skulle bruge. Det virker perfekt.

Kan du oprette et svar så jeg kan tildele dig point?

Mvh

Ole M D

Velbekomme. Svar kommer her.