MS word: referring to headers of different sections

[davikokar]

hallo,

I have a different header for every new section of my word document.

These headers are different but every header contains one shape element.

I am trying to modify the shape element in each header, but I always modify only the header of the section 1.

The code I use to iterate through the different headers is this one:

doc.Sections(section).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Shapes(1).IncrementTop(23.25)

where "doc" is the ActiveDocument and "section" is the iterator variable from 1 to n. No matter what "section" is, I always modyfing the shape 1 in section 1.

Someone knows?

thanks

 

[Bong]

Is it possible that all your sections have the same name? Try referring to the sections by number: doc.Sections... where n=1 to doc.Sections.Count

_________________
Bob Rashkin

 

[davikokar]

that's actually what I am doing: "section" is an integer

 

[SkipVought]

Please post your code.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[TonyJollans]

This is a bug.

Try this instead:

[green]

[blue]Doc.Sections(Section).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.ShapeRange(1).IncrementTop (23.25)[/blue]

[/green]

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[fumei]

You are not giving full code, but..using objects...

Dim oHF As HeaderFooter
Dim oSection As Section

For Each oSection In ActiveDocument.Sections
   Set oHF = oSection.Headers(wdHeaderFooterPrimary)
   oHF.Range.ShapeRange(1).IncrementTop (23.25)
Next

That would only change Primary. If you need ALL the headers changed in each Section...

Dim oHF As HeaderFooter
Dim oSection As Section
Dim j As Long

For Each oSection In ActiveDocument.Sections
   For j = 1 to 3
      Set oHF = oSection.Headers(j)
      oHF.Range.ShapeRange(1).IncrementTop (23.25)
   Next
Next

which actions all the headers (Primary, DifferentFirst, and OddEven) in each Section.

faq219-2884

Gerry
My paintings and sculpture