Textmarke in Word Kopfzeile von Access befüllen

[frisch]

Hallo Access-Gemeinde,

Ich stehe wieder mal vor einem kleinen Problem.
Ich soll eine Word Datei mit Access Daten befüllen. So weit, so gut, ich habe es geschafft, Textmarken im Word zu befüllen. Aber nun sollen diese Textmarken in die Kopfzeile. Ich habe es  nicht geschafft die Textmarken dort zu befüllen....
Anbei mein Code.
Vielleicht kann mir jemand  helfen
LG Friedrich

Dim wwobj As Object
Dim transfertxt As String
Dim vorlage As String

On Error GoTo WORDFEHLER

'´neues Objekt erstellen
Set wwobj = CreateObject("Word.Application")
wwobj.Visible = True
'´maximieren
'´wwobj.WindowState = wdWindowStateMaximize
wwobj.WindowState = 1

'´Vorlage -Brief.dot- für neues Dokument aus Einstellungstabelle auslesen
vorlage = "c:\vorlagen\Brief.docx"
'´neues Dokument erstellen
wwobj.Documents.Add Template:="c:\vorlagen\Brief.docx"

'´Übergabe der Feldinhalte an Textmarken (TM...)
'´KundenNummer
wwobj.Selection.GoTo What:=-1, Name:="Vorname"
transfertxt = Me!vorname
wwobj.Selection.TypeText Text:=transfertxt

[database]

Hallo,

die Kopfzeile in einem Worddokument stellt eine eigene Section dar.

DF6GL hat hier schon mal so einen Fall behandelt -
sieh mal da rein, das dürfte ganz interessant für dich sein:

http://www.access-o-mania.de/forum/index.php?topic=9252.0

HTH

[frisch]

Hallo HTM,
habe es endlich geschafft die Textmarken im Header zu befüllen. Leider bleibe ich nach dem befüllen in der  Entwurfansicht vom Word hängen. Vielleicht hat jemand eine Idee.
LG
Friedrich
Anbei der Code zum befüllen von Textmarken im Header einer Word Datei.

Dim vorlage As String
vorlage = "c:\a4hoch.doc"

Dim transtitel As String
transtitel = Me!titel

Set objWord = CreateObject("Word.Application")
    With objWord
        'Make the application visible.
        objWord.Visible = True
        'Open the document.
        objWord.Documents.Open (vorlage)
        'Move to each bookmark and insert text from the form.
        .ActiveDocument.Bookmarks("Titel").Select
        .Selection.Range.Text = CStr(transtitel)
End With

[frisch]

Lösung gefunden :-)
also mit diesem Code im Anhang funktioniert es.

ich musste alle .ActiveWindow.ActivePane.View.Type = wdPrintView  durch  3 ersetzten dann hat es  funktioniert. Warum auch immer.....


If .ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        .ActiveWindow.Panes(2).Close
         .ActiveWindow.ActivePane.View.Type = 3
         
    End If
    If .ActiveWindow.ActivePane.View.Type = wdNormalView Or .ActiveWindow.ActivePane.View.Type = wdOutlineView Then
        .ActiveWindow.ActivePane.View.Type = 3
    End If
    .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    If .ActiveWindow.View.SplitSpecial = wdPaneNone Then
        .ActiveWindow.ActivePane.View.Type = 3
    Else
        .ActiveWindow.View.Type = 3
    End If
    .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    If .ActiveWindow.View.SplitSpecial = wdPaneNone Then
        .ActiveWindow.ActivePane.View.Type = 3
    Else
        .ActiveWindow.View.Type = 3
    End If