Word XP en koptekst

[jvsoest]

Hallo,
In een document met kopteksten wil ik een nieuwe pagina aan het einde toevoegen zonder dat daar de bestaande koptekst al in staat.

Via code lukt het me wel om deze koptekst dan weg te halen maar als je ziet hoeveel code daar voor nodig is vraag je af of het sneller en korter kan.

Iemand een idee?

 

[joost verdaasdo]

Hai,

Moet dit handmatig of via VBA?

Handmatig kom het in het kort hierop neer.
Voeg een sectie-einde volgende pagina in
Onkoppel de kop en voettekst door "Zelfde als vorige" uit te schakelen
Wis nu de koptekst.

Hier leg ik het in detail uit:
http://office.webforums.nl/forum/viewtopic.php?t=5331

Als het met VBA moet dan hoor ik het graag. :thumb:

 

[jvsoest]

Hoi Joost,

Het moet inderdaad via VBA.

 

[joost verdaasdo]

Hai,

Ah ok.

Komt ie..let op deze haalt alleen de laatste Koptekst leeg..zoals gevraagd en dus niet de Voettekst

Sub LastPageHeader()
    Dim i As Integer
    i = ActiveDocument.Sections.Count
    With Selection
        .EndKey Unit:=wdStory
        .GoTo What:=wdGoToPage, _
        Which:=wdGoToPrevious, Count:=1, Name:=""
        .GoTo What:=wdGoToPage, _
        Which:=wdGoToNext, Count:=1, Name:=""
        .MoveLeft Unit:=wdCharacter, Count:=1
        .InsertBreak Type:=wdSectionBreakNextPage
        .MoveRight Unit:=wdCharacter, Count:=2
        With .PageSetup
            .SectionStart = wdSectionNewPage
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
        End With
    End With
    With ActiveDocument.Sections(i + 1).Headers.Item(1)
        .LinkToPrevious = Not .LinkToPrevious
        .Range.Delete
    End With
End Sub

See Yah! :thumb:

 

[jvsoest]

Joost, bedankt voor je inzet.

 

[joost verdaasdo]

Graag gedaan! :thumb: