Bij mijn weten is die functie er in Word 2003 in ieder geval niet. Geef in
het vervolg altijd op over welke versie van Word je vraag gaat, dan kunnen we
gericht antwoord geven.
Het is natuurlijk altijd mogelijk om de kop- en voettekst gewoon uit je doc.
te verwijderen. Of je maakt gewoon een sjabloon aan, dat geen gebruik maakt
van kop- of voetteksten. Bovendien kun je (zeker) de voettekst zo plaatsen,
dat hij wel op het scherm zichtbaar is, maar buiten het afdrukbare gebied van
de pinter valt (en dus niet afdrukt). 't Is mogelijk dat je daar een "klacht"
over krijgt van Word, die je dan weg moet klikken voordat hij gaat afdrukken.
David
Je kunt ook een extra opmaakprofiel maken, waarin de kop en voettekst
wordt aangegeven als verborgen tekst. Je hoeft dan alleen het
opmaakprofiel opnieuw toe te passen. En natuurlijk bij printen geen
vinkje aanzetten bij "verborgen tekst weergeven/printen".
Groet,
Anita
Die suggestie van Anita kun je ook net even anders toepassen. In het
sjabloon waarmee je deze docs maakt (met je bedrijfsgegevens in de kop- en
voettekst) wijzig je de opmaakprofielen Koptekst en Voettekst zodat ze
Verborgen tekst (Opmaak / Lettertype) zijn. Voordat je het doc afdrukt bepaal
je of je de kop- en voettekst wel of niet witl hebben door bij Extra / Opties
/ Tabblad "Afdrukken" Verborgen tekst AAN of UIT te vinken. Nog steeds
uitgaande van Word 2003.
Afgeleid hiervan bedacht ik nog, dat je ook de Opmaakprofielen Koptekst en
Voettekst kunt wijzigen, zodat de letterkleur wit is. Dan drukt er ook niets
af. Iets meer werk dan de bovenstaand verborgen tekst optie.
Hmm, beide oplossing werken natuurlijk alleen als er in de koptekst niet een
afbeelding als bedrijfslogo staat of iets anders aan grafische elementen
(lijnen, kaders, enz.). Die zullen niet "weggemaakt" worden door de
tekstkleur wit te maken of het lettertype aan te vinken als Verborgen Tekst.
David
"Anita" wrote:
> .
>
Het verwijderen van de kop- en voetteksten, dan printen en vervolgens weer
terugzetten, kun je in Word doen met deze macro (van Doug Robbins)
Sub GeenKop
Dim i As Long, j As Long
With ActiveDocument
ActiveDocument.UndoClear
For i = 1 To .Sections.Count
With .Sections(i)
For j = 1 To .Headers.Count
.Headers(j).Range.Delete
Next j
For j = 1 To .Footers.Count
.Footers(j).Range.Delete
Next j
End With
Next i
.PrintOut
Do While .Undo = True
.Undo
Loop
End With
End Sub
Flip
"Web James" <Web Ja...@discussions.microsoft.com> schreef in bericht
news:B4031CAA-594B-485F...@microsoft.com...
David
"Flip" wrote:
> .
>