[VBA/Word] Error: Value out of range 4608

[Baron]

Ik heb volgende macro in Word

code:

Sub Macro1()
    ActiveDocument.PageSetup.LineNumbering.Active = False
End Sub

Als ik deze macro uitvoer in sommige Word documenten, dan krijg if de fout:

Run-time error '4608'
Value out of range

Een copy/paste naar een nieuw document geeft dezelfde fout. Bij een nieuw document met wat tekst werkt het wel.

Kan iemand zeggen op wat de fout betrekking heeft.

[Baron]

Ik ben stelselmatig delen van het document beginnen te copy/pasten naar een nieuw document.
De fout treedt op na de paste van een Section Break.

Verwijder ik de section break en voeg ik deze manueel toe, is er geen probleem

offtopic:
Dit is meer een topic voor software geworden.

[Verwijderd]

Baron schreef op 15 september 2004 @ 16:28:
Ik ben stelselmatig delen van het document beginnen te copy/pasten naar een nieuw document.
De fout treedt op na de paste van een Section Break.

Verwijder ik de section break en voeg ik deze manueel toe, is er geen probleem

offtopic:
Dit is meer een topic voor software geworden.

nee, nee dit is verkeerde vba code.
deze loopt echter goed zolang er maar 1 sectie is.
is er echter meer dan 1, weet vba niet meer op welke sectie de opdracht toegepast dient.
oplossing in pseudo vba:
voor elke sectie
lijnnummering deactiveren
volgende sectie.

in de help staat meer (f1 op linenumbering)

[Baron]

Inderdaad, dit werkt wel

code:

Sub Macro1()
    For sectie = 1 To ActiveDocument.Sections.Count
        ActiveDocument.Sections(i).PageSetup.LineNumbering.Active = False
    Next
End Sub