Changing Field code of current header

[andreas]

Dear Experts:

With the cursor residing in some section of my document, I would like
to perform the following:

Access the ODD page and EVEN page header of that section and change
the field code {REF bookmark_DE \h} to {REF bookmark_EN \h} using
VBA.

I hope this is feasible.

Thank you very much in advance.

Regards, Andreas

 

[Tony Jollans]

You can probably tidy this up or be more specific in what you do based on
your own circumstances, but the general approach would be ...

For Each F in
Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields
If f.Code.Text = "REF bookmark_DE \h" Then F.Code.Text = "REF
bookmark_EN \h"
Next

and the same for ...Headers(wdHeaderFooterEvenPages)...

 

[andreas]

You can probably tidy this up or be more specific in what you do based on
your own circumstances, but the general approach would be ...

For Each F in
Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields
    If f.Code.Text = "REF bookmark_DE \h" Then F.Code.Text = "REF
bookmark_EN \h"
Next

and the same for ...Headers(wdHeaderFooterEvenPages)...

--
Enjoy,
Tony

 www.WordArticles.com











- Zitierten Text anzeigen -

Hi Tony,

ok, thank you very much for your great help. It works as desired.

Regards, Andreas