Sletning af alle sidehoveder og sidefødder

Hvis du arbejder med dokumenter, du modtager fra andre mennesker, en af ​​de opgaver, du kan rutinemæssigt brug for at gøre, er at slette alle sidehoveder og sidefødder i dokumenterne. En måde at gøre dette på er simpelthen at vælge de forskellige sidehoveder og sidefødder og slette dem, men hvis dokumentet indeholder mange sektioner, kan gøre det være meget tidskrævende. (Især hvis du mener, at hvert afsnit kan have op til tre forskellige sidehoveder og sidefødder.)

Gentagelser, tidskrævende opgaver er altid en oplagt kandidat til makroer; dette er ingen undtagelse. Følgende makro vil zip lige igennem hvert afsnit af et dokument, slette alle de, der er defineret sidehoved og sidefod.

Sub RemoveHeadAndFoot ()
Dim oSec som afsnit
Dim oHead Som HeaderFooter
Dim oFoot Som HeaderFooter

For hver oSec I ActiveDocument.Sections
For hver oHead I oSec.Headers
Hvis oHead.Exists Derefter oHead.Range.Delete
Næste oHead

For hver oFoot I oSec.Footers
Hvis oFoot.Exists Så oFoot.Range.Delete
Næste oFoot
Næste oSec
End Sub

Denne makro er meget kraftfuld, det gør ikke spørge, om du vil fortsætte, ligesom det heller ikke overveje, hvad der kan indgå i sidehoveder og sidefødder. Det hænger simpelthen sletter dem alle, der forlader dit dokument med nogen. Hvis du jævnligt behandler en hel dokumenter, kan du nemt tildele makroen til en værktøjslinje knap, menupunkt, eller genvejstast.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (1777) gælder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til menufaner Word (Word 2007 og nyere) her: Sletning af alle sidehoveder og sidefødder.


© 2019 Zajacperrone.com | Contact us: webmaster# zajacperrone.com