When filling bookmarks that are specified in the FOOTER of a WORD doc,
they are not filled ! on of they are located in the body.
Is this a bug in WORD ?
Or is my code wrong ?
How to solve this issue ?
thanks for your help.

Set oApp = CreateObject("Word.Application")
oApp.Documents.Open strInputFile

With oApp.Selection
.GoTo Name:="OpdrAnoOmschr"
.Typetext Text:=Rsa("OpdrAnoOmsch")

.GoTo Name:="OpdrMainRefNum"
.Typetext Text:=Rsa("OpdrMainRefNum")
End With

oApp.Visible = True

greetings
Marc.

this is not a bug
header and footer you have to handle separate, like this:

set doc=oApp.Documents.Open( strInputFile)
dim r as range
set r=doc.Sections.Last.Footers(StoryType).Range
'StoryType will define type of header, see help

so you have a reference to range, now you can use r.Find to find bookmark

bit complicated, but this is the only way i found


--
Alex Dybenko (MVP)
http://Alex.Dybenko.com
http://www.PointLtd.com



"MarcVdb" <(E-Mail Removed)> wrote in message
news1DEEE20-DA6C-4A7F-8E11-(E-Mail Removed)...
> When filling bookmarks that are specified in the FOOTER of a WORD doc,
> they are not filled ! on of they are located in the body.
> Is this a bug in WORD ?
> Or is my code wrong ?
> How to solve this issue ?
> thanks for your help.
>
> Set oApp = CreateObject("Word.Application")
> oApp.Documents.Open strInputFile
>
> With oApp.Selection
> .GoTo Name:="OpdrAnoOmschr"
> .Typetext Text:=Rsa("OpdrAnoOmsch")
>
> .GoTo Name:="OpdrMainRefNum"
> .Typetext Text:=Rsa("OpdrMainRefNum")
> End With
>
> oApp.Visible = True
>
> greetings
> Marc.