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
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 (http://www.access-o-mania.de/forum/index.php?topic=9252.0)
HTH
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
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