indsætte tekst i word fra Access. problem med header

Har nørklet en del med det tidligere. Endte op med at droppe egentlige bogmærker og i stedet bruge "snyde-bogmærker" i form af ren tekst, f.eks.: [Eksempel].

I nedenstående eksempel placeres teksten [MitBogmærke] på det sted, hvor du ville have sat det rigtige bogmærke.
Rutinen indeholder desuden mulighed for at blive i sidefoden eller hoppe ud. Jegved godt, du skrev Header; men det er vist en mindre tilretning  ;o)
(erstat Footer med Header)

Private Sub Test_SidefodBogmærke()
  Call SidefodBogmærke("[MitBogmærke]", "Den aktuelle tekst", True, True)
End Sub

' Finder tekst i Footer og overskriver den
Sub SidefodBogmærke(BogmærkeAlias As String, Teksten As String, GåIndIFooter As Boolean, GåUdAfFooter As Boolean)
  With WordApp
    If GåIndIFooter Then
      .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
      .Selection.MoveDown Unit:=wdLine, Count:=1
    End If
    .Selection.Find.ClearFormatting
    With .Selection.Find
      .Text = BogmærkeAlias
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    .Selection.Find.Execute
 
    .Selection.TypeText Text:=Teksten
 
    If GåUdAfFooter Then
      .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    End If
  End With
End Sub

Fdata; Du er intet mindre end en HELT!

Jeg kunne dog ikke få det til at virke som en sub men kørte det hele i min main procedure. (Den kunne ikke hitte ud af wdSeekCurrentPageHeader i sub'en)

Tak, tak og atter tak!

VH
jind

Jamen, velbekomme. Glad for at kunne hjælpe.
- Og tak for point  ;o)