export word->pdf headers/footers

[glennlissone]

1. Ik heb een word document met meerdere secties.
2. Middels een macro wil ik een sectie exporteren als PDF bestand.
3. Een export gaat goed alleen komen de headers/footers niet mee.

Kan iemand onderstaande code aanpassen zodat
headers/footers ook meekomen in het pdf export bestand?

================================

dim rng as range
dim file as string

file = c:\test.pdf
set rng = activedocument.sections(1).range

rng.exportAsFixedFromat OutputFileName:=file, ExportFormat:=wdExportFormatPdf

 

[OctaFish]

Maak eens een voorbeeldje, dat kijkt wat makkelijker.

 

[snb]

Sub M_snb()
    With ActiveDocument.Sections(2)
        c00 = .Parent.Name
        .Headers(1).Range.Text = "kopsection 2"
        .Footers(1).Range.Text = "voetsection 2"
        .Range.Copy
    End With

    Documents.Add.Content.Paste

    ActiveDocument.Sections(1).Headers(1).Range.Text = Documents(c00).Sections(2).Headers(1).Range.Text
    ActiveDocument.Sections(1).Footers(1).Range.Text = Documents(c00).Sections(2).Footers(1).Range.Text
    activedocument.exportasfixedformat....
End Sub

 

[glennlissone]

Oplossing

Bedankt voor je reactie. Oplossing lijkt te werken alleen komen afbeeldingen in de header en footer niet mee. Enig idee hoe ik dit kan oplossen?

 

[snb]

Lijkt me logisch als de code het over .text heeft.
Dat is meteen de aanwijzing voor de oplossing van je vervolgvraag.

 

[OctaFish]

En dat is gelijk de reden waarom we om een voorbeeldje vragen; nu krijg je een antwoord waar je niet genoeg aan hebt. Met een voorbeelddocument kunnen we veel beter zien wat je nodig hebt aan code.