Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
K J K J is offline
external usenet poster
 
Posts: 2
Default Overwriting the content of all footers, despite section breaks (xpost mic.pub.word)

I think I posted in a low-traffic group, so I'm going to cross-post
here, now that I've found the "traffic ratings" in Google Groups.
Thanks for your patience with this!


--PART 1--
I have to edit 4 similar-but-different documents at work so their
footers will all have "1/07" instead of "1/06" in the footer. "Easy,"
I thought, "I'll just replace the even page text & the odd page text
and I'll be done." Then I found out that because of section breaks in
the document, the "even page" & "odd page" footers start over every few
pages...and this is a 300-page document or something (times 4
documents).

Okay, that's not so bad...get into a footer, do a search & replace, and
I THINK that should be taken care of. (I haven't done it yet but soon
will try.)

Here's my big problem: the footers are divided into 3 columns of a
table. One on the left has that "Blah blah, (1/07)" text left-aligned.
A second in the middle has centered text that's just the page number.
And a third on the right has right-aligned text that says, "Blah blah
blah blah blah," but I need to add to it so it says, "New Extra Stuff
Blah blah blah blah blah." That doesn't fit on one line, though,
unless I mess with the width of the right column. And, of course, I
have to mess with the width of the left column, too, to make sure that
the left and right boundaries of the middle column stay centered around
the center of the page so that the centered text within it will be
centered on the page.

All this dragging--or perhaps a little faster, shortcut-keying through
editing 3 columns' worth of "column width," is REALLY annoying done
some hundred or so times per document, because each time I do it, the
change only repeats for a couple of pages.

Is there any way to either overwrite ALL footers with the same thing,
even spanning section breaks (because actually, the evens & odds in
this document are the same--it's just the headers that vary by
even/odd)?

OR

Is there any way to link all footers to previous, even spanning section
breaks, in a single action? (It is equally annoying to click "link to
previous" and hit enter through the messages some hundred or so times
per document.)

Thank you!


--PART 2--
Oh, and by the way, I tried making & running this macro and it changed
nothing in the later footers--no "1/06" to "1/07," no table column
widths...nothing.

Maybe they're all "linked" now, but my eyes tell me they sure ain't the
same yet.

(It does seem that page 2, which used to be blank, now has page 1's
content, but that after a section break, everything went back to same
old, same old--in other words, the "same as-ing" didn't SPAN section
breaks.)

Sub TurnOnFooterSameAsPrevious()
'
' link Macro
Dim sSection As Section
Dim fFooter As HeaderFooter
' Go to each section in the document.
For Each sSection In ActiveDocument.Sections
' Turns off "Same As Previous" in all Footers.
For Each fFooter In sSection.Footers
fFooter.LinkToPrevious = True
Next
Next sSection
End Sub


--PART 3--
Okay, this effort completely failed, too. It ran an infinite loop, and
when I hit "break" on my keyboard (which worked right away,
fortunately), nothing was different about column widths far down the
document.

I guess that means it got stuck somewhere in an early section.

Sub ChangeCellWidthsInAllSections()
Dim sSection As Section
Dim fFooter As HeaderFooter
' Go to each section in the document.
For Each sSection In ActiveDocument.Sections
' Changes the column widths in all footers.
For Each fFooter In sSection.Footers
Selection.Tables(1).Columns(1).Width =
InchesToPoints(2.94)
Selection.Tables(1).Columns(2).Width =
InchesToPoints(0.48)
Selection.Tables(1).Columns(3).Width =
InchesToPoints(3.24)
Next
Next sSection
End Sub

  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default Overwriting the content of all footers, despite section breaks (xpost mic.pub.word)

I can answer at least part of your question. Yes, you can have all the
footers linked even though the headers are not. But note that each footer is
linked only to the corresponding previous one (Even to Even, Odd to Odd).
It's actually possible that the headers can be linked as well. If they
contain variable text that reflects text in the document, it's likely that
you can use a StyleRef field to achieve this.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"K J" wrote in message
ups.com...
I think I posted in a low-traffic group, so I'm going to cross-post
here, now that I've found the "traffic ratings" in Google Groups.
Thanks for your patience with this!


--PART 1--
I have to edit 4 similar-but-different documents at work so their
footers will all have "1/07" instead of "1/06" in the footer. "Easy,"
I thought, "I'll just replace the even page text & the odd page text
and I'll be done." Then I found out that because of section breaks in
the document, the "even page" & "odd page" footers start over every few
pages...and this is a 300-page document or something (times 4
documents).

Okay, that's not so bad...get into a footer, do a search & replace, and
I THINK that should be taken care of. (I haven't done it yet but soon
will try.)

Here's my big problem: the footers are divided into 3 columns of a
table. One on the left has that "Blah blah, (1/07)" text left-aligned.
A second in the middle has centered text that's just the page number.
And a third on the right has right-aligned text that says, "Blah blah
blah blah blah," but I need to add to it so it says, "New Extra Stuff
Blah blah blah blah blah." That doesn't fit on one line, though,
unless I mess with the width of the right column. And, of course, I
have to mess with the width of the left column, too, to make sure that
the left and right boundaries of the middle column stay centered around
the center of the page so that the centered text within it will be
centered on the page.

All this dragging--or perhaps a little faster, shortcut-keying through
editing 3 columns' worth of "column width," is REALLY annoying done
some hundred or so times per document, because each time I do it, the
change only repeats for a couple of pages.

Is there any way to either overwrite ALL footers with the same thing,
even spanning section breaks (because actually, the evens & odds in
this document are the same--it's just the headers that vary by
even/odd)?

OR

Is there any way to link all footers to previous, even spanning section
breaks, in a single action? (It is equally annoying to click "link to
previous" and hit enter through the messages some hundred or so times
per document.)

Thank you!


--PART 2--
Oh, and by the way, I tried making & running this macro and it changed
nothing in the later footers--no "1/06" to "1/07," no table column
widths...nothing.

Maybe they're all "linked" now, but my eyes tell me they sure ain't the
same yet.

(It does seem that page 2, which used to be blank, now has page 1's
content, but that after a section break, everything went back to same
old, same old--in other words, the "same as-ing" didn't SPAN section
breaks.)

Sub TurnOnFooterSameAsPrevious()
'
' link Macro
Dim sSection As Section
Dim fFooter As HeaderFooter
' Go to each section in the document.
For Each sSection In ActiveDocument.Sections
' Turns off "Same As Previous" in all Footers.
For Each fFooter In sSection.Footers
fFooter.LinkToPrevious = True
Next
Next sSection
End Sub


--PART 3--
Okay, this effort completely failed, too. It ran an infinite loop, and
when I hit "break" on my keyboard (which worked right away,
fortunately), nothing was different about column widths far down the
document.

I guess that means it got stuck somewhere in an early section.

Sub ChangeCellWidthsInAllSections()
Dim sSection As Section
Dim fFooter As HeaderFooter
' Go to each section in the document.
For Each sSection In ActiveDocument.Sections
' Changes the column widths in all footers.
For Each fFooter In sSection.Footers
Selection.Tables(1).Columns(1).Width =
InchesToPoints(2.94)
Selection.Tables(1).Columns(2).Width =
InchesToPoints(0.48)
Selection.Tables(1).Columns(3).Width =
InchesToPoints(3.24)
Next
Next sSection
End Sub


  #3   Report Post  
Posted to microsoft.public.word.docmanagement
K J K J is offline
external usenet poster
 
Posts: 2
Default Overwriting the content of all footers, despite section breaks (xpost mic.pub.word)

Thank you...it's nice to confirm that theoretically they CAN be linked
across sections...but I still haven't found a way to automate actually
making them do it. :-\

  #4   Report Post  
Posted to microsoft.public.word.docmanagement
Stefan Blom Stefan Blom is offline
external usenet poster
 
Posts: 8,428
Default Overwriting the content of all footers, despite section breaks (xpost mic.pub.word)

Footers (as well as headers) are linked to previous, by default, in
newly created sections.

For existing sections, you would have to manually click the Same As
Previous/Link to Previous buttons (the name is different in different
versions of Word) on the Header and Footer toolbar for each type of
footer (and/or header).

To speed up the process in your long document, a macro could be
helpful:

1. Cut the contents from the footer you want to keep; you can
temporarily paste it into the current or another document.

2. Run the following macro to "connect" footers:

Sub LinkFooters()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Footers(wdHeaderFooterEvenPages).LinkToPrevious = True
s.Footers(wdHeaderFooterFirstPage).LinkToPrevious = True
s.Footers(wdHeaderFooterPrimary).LinkToPrevious = True
Next s
End Sub

3. Paste the contents that you cut in step 1 into the first, even, and
odd footer of any section.

--
Stefan Blom
Microsoft Word MVP


"K J" wrote in message
ps.com...
Thank you...it's nice to confirm that theoretically they CAN be
linked
across sections...but I still haven't found a way to automate
actually making them do it. :-\














Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Replace Section Breaks with Page Breaks Automatically? Tyler T Microsoft Word Help 15 March 5th 09 08:58 AM
Replace Section Breaks with Page Breaks Automatically? Tyler T Microsoft Word Help 0 October 6th 06 09:51 PM
Forms and continuous section breaks (dropdown & fill-ins) MJones Page Layout 9 August 26th 06 07:13 AM
headers and footers and section breaks songinthedark Page Layout 2 April 6th 06 10:43 PM
Using section breaks with formatted (styles) pages misscoleen Microsoft Word Help 1 January 7th 05 04:49 AM


All times are GMT +1. The time now is 11:16 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"