Bladwijzer in voettekst

[maaike2703]

Hallo allen,

Ik heb een Excel database en een formulier in Excel.
Als ik OK klik in mijn formulier worden enkele WORD documenten geopend en gegevens uit de database geplaatst op de plaats van de bladwijzers in WORD.

Dit ziet er versimpeld zo uit:
With wrdDoc
.Application.Selection.Goto What:=wdGoToBookmark, Name:="projectnaam"
.Application.Selection.InsertAfter frmkeuze.txtprojectnaam.Value
End With

Echter, Bladwijzers die ik plaats in de voettekst/koptekst worden NIET gevonden.
Weet iemand hoe ik de bladwijzers in de voettekst kan benaderen middels VBA?
Of nog mooier, hoe ik bovenstaande code kan aanpassen?

Ik hoor het graag, bedankt alvast voor het meedenken.

Groet Maaike

 

[edmoor]

Dit zou moeten werken met bookmarks in header/footer:

With wrdDoc
    .Bookmarks("projectnaam").Range.InsertAfter frmkeuze.txtprojectnaam.Value
End With

 

[maaike2703]

Geweldig Edmoor! Het werkt inderdaad.
Kun je er ook een kleine uitleg bijgeven?
Waarom werkt die van mij niet en die van jou wel?

Veel dank alvast voor je hulp!

 

[edmoor]

Het verschil zit 'm in het wel of niet gebruiken van de .Goto
Als je .Goto gebruikt moet je ook eerst de header of footer sectie openen en dat is nu niet nodig.

Misschien dat je ook wat hebt aan deze gouwe ouwe
http://www.thezcorp.com/vbacodesamples.aspx