Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

Word 2003 secties en bladwijzers

None
3 antwoorden
  • Met VBA heb ik een macro gemaakt tbv. het aanmaken van documenten. Uiteindelijk komt er een hoofddocument uit , waarvan het aantal secties nogal kan varieren. Het einde van het hoofddocument wordt echter altijd gemarkeerd door een bladwijzer.
    Bij het hoofddocument horen bijlagen, het aantal hiervan kan varieren.
    Elke bijlage bestaat uit 1 sectie.

    Nu wil ik de bijlagen nummeren, automatisch. Stel de bladwijzer staat in sectie 3. Sectie 4 bevat dan bijlage 1, sectie 5 bijlage 2 enz. Echter het komt ook voor dat de bladwijzer in sectie 4 staat. Sectie 5 bevat dan bijlage 1, enz.

    Is de nummering van de bijlage met een veldcode in de kop van de bijlage automatisch aan te passen of moet je dan toch weer iets met vba doen.

    Alvast bedankt.
  • Als je dan toch met VBA bezig bent, dan kun je net zo goed daarmee de bijlages nummeren, wel zo leuk, en je hoeft niet met een veld te rommelen om te kijken of het daar ook mee kan :-)

    Runnen vanuit de sectie die de eerste bijlage bevat:
    [code:1:ed07274546]
    Sub NummerSecties()
    ' Paginaweergave
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or _
    ActiveWindow.ActivePane.View.Type = wdOutlineView Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ' Loop van deze sectie tot laatste sectie
    curSection = ActiveDocument.Range(0, Selection.Sections(1).Range.End).Sections.Count
    numSections = ActiveDocument.Sections.Count
    numAppendices = numSections - curSection + 1
    For i = 1 To numAppendices
    ' Bewerk koptekst
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ' Koptekst niet aan vorige gekoppeld
    Selection.HeaderFooter.LinkToPrevious = False
    ' Type Bijlagenummer
    Selection.TypeText "Bijlage " & i
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ' Ga naar volgende sectie
    Selection.GoTo What:=wdGoToSection, _
    Count:=ActiveDocument.Range(0, Selection.Sections(1).Range.End).Sections.Count + 1
    Next i
    End Sub
    [/code:1:ed07274546]
  • Hoi Paulus,

    Na enige twijfeling heb ik toch maar voor jouw optie gekozen. Bedankt.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.