Format changes to header and footer

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....

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

"Mike50" wrote in message
...
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....

You could modify the Header and Footer styles.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

"Mike50" wrote in message
...
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....