[VBA] Bookmark in header Word *

[pilo2710]

Ik heb het volgende probleem.
Ik wil door middel van een bookmark in de header een stukje tekst invoegen.
In het document zelf gaat dat goed:

Visual Basic:

Private Sub kiesSLA(dienst)
      'Hier wordt in de tekst de desbetreffende dienstnamen ingevuld en het
      'dialoogvenster verwijderd
      Me.Hide
      'Hier wordt de functie aangeroepen om de headertekst te wijzigen
      Call headertekst(dienst)
      'Hier wordt de dienstnaam in de tekst ingevoegd
      Selection.GoTo wdGoToBookmark, , , "Dienst"
      Selection.TypeText dienst

Als ik dit voor de header wil doen, werkt het niet. Ik ben er al achter dat de header en footer objecten zijn. Nu heb ik eerst op GoT gezocht naar een oplossing, maar er werd voornamelijk uitgegaan van volledig gegenereerde headers en footers.

Vervolgens heb ik geprobeerd om een macro op te nemen en deze code te editen.
Dit is echter ook niet gelukt, want nergens wordt gerefereerd naar het object
headerfooter. Op internet en op MSDN staan alleen maar kleine voorbeeldjes van het genereren van gehele teksten in de headers of footers, niet een stukje tekst invoegen bij een bookmark.

Misschien dat iemand een idee heeft hoe ik dit het beste op kan lossen?

[faabman]

mogelijke workaround, plaats in je header een tekst als [tekst] en voor daarop een replace uit...

dus zoiets als

replace("[tekst]", strJouwTekst)

[pilo2710]

Ìk heb jouw suggestie geprobeerd, maar ik krijg het niet goed werkend.
Hij geeft als syntaxfout steeds aan "expected :=".
Ik heb echt geen idee hoe ik het object moet aanroepen.

Als iemand verder nog suggesties heeft, graag!

[faabman]

post eens wat code...

[pilo2710]

Hier het stukje code dat ik heb geprobeerd:

Visual Basic:

Private Sub headertekst(dienst)
With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.GoTo wdGoToBookmark, , , "HDienst"
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
End With

End Sub

Hierbij probeer ik naar de bookmark HDienst te verwijzen, maar hij wordt niet gevonden.
De suggestie van Faabman

Visual Basic:

replace("[tekst]", strJouwTekst)

werkte niet. Waarschijnlijk doe ik iets verkeerd in de syntax

Als je aanvullingen hebt, graag!

[pilo2710]

Ondertussen heb ik de oplossing al gevonden

Visual Basic:

Private Sub headertekst(dienst)
   Dim myStoryRange As Range
   For Each myStoryRange In ActiveDocument.StoryRanges
      With myStoryRange.Find
         .Text = "[dienst]"
         .Replacement.Text = dienst
         .Wrap = wdFindContinue
         .Execute Replace:=wdReplaceAll
      End With
   Next myStoryRange
End Sub

Iig bedankt voor de moeite en je hebt me op een idee gebracht!

[faabman]

in je sjabloon plaats je in je header tekst de string [tekst]

in vb lees je de headertekst uit en doe je zoiets als

Visual Basic:

objHeader.text = Replace(objHeader.text, "[tekst]", strJouwTekst)

en anders dan zoek je even een VBA SDK op MSDN...

[ Voor 14% gewijzigd door faabman op 23-08-2004 12:02 ]