Format changes to header and footer

M

Mike50

Is it possible to apply a formatting change (i.e. indents & spacing) to the
footers of ALL SECTIONS of a sectioned document at the same time, without
screwing up the rest of the document?

Doing it one section at a time is a bit tedious. I suppose I should have
checked it when I started the document, but we know what they say about
hindsight....
 
D

Doug Robbins - Word MVP

It can be done with the use of a macro such as:

Dim i As Long, j As Long, k As Long
With ActiveDocument
For i = 1 To .Sections.Count
For j = 1 To .Sections(i).Footers.Count
With .Sections(i).Footers(j).Range
For k = 1 To .Paragraphs.Count
With .Paragraphs(k)
.LeftIndent = InchesToPoints(0.5)
.FirstLineIndent = InchesToPoints(-0.5)
'etc
End With
Next k
End With
Next j
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top