Hallo,
ich habe ein ähnliches Problem wie Petzi vom 24.5.2000:
Aus Access heraus lasse ich Daten an eine bestimmte Textmarke auf der ersten Seite des Word97-Dokuments setzen.
Teilweise ist mein Dokument länger als eine Seite.
In diesem Fall soll in der neu erscheinenden Kopfzeile der 2. Seite Daten von der ersten Seite/ von einer Textmarke der ersten Seite übernommen werden.
Wie kann man das lösen?
Vielen Dank im voraus.
Bernd
Hallo Bernd,
gib unter Seite einrichten an: 1. Kopfzeile anders und erzeue eine 2. Seite um dort die 2. Kopfzeile zu bearbeiten.
Hier fügst du ein Feld ein mit der Funktion Ref.
Gebe hinter „Ref“ den Namen der Textmarke ein.
Die 2. Seite wird anschließend nicht mehr benötigt.
Gruß, Inge
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Inge, hallo den anderen Lesern,
es klappt noch nicht. Kann es vielleicht
daran liegen, dass ich nicht der Textmarke
den entsprechenden Text zuweise, sondern nur
mittels VBA an die Stelle der Textmarke (hier BVN)
springe…
Auszug aus VBA in Access:
***************************************
Set appWord = CreateObject(„Word.Application“)
appWord.Application.Visible = True
With appWord
.Documents.Add Pfad & Vorlage
.ActiveDocument.ShowSpellingErrors = False
.Selection.Goto wdGotoBookmark, Name:=„BVN“
.Selection.TypeText BVN
***************************************
und dort den Text eingebe (Goto wdBookmark, Name:…
und TypeText BVN) den ich der Variablen BVN zugewiesen habe???
Kennst Du oder irgendjemand anderes vielleicht eine
Möglichkeit, der Textmarke einen bestimmten Text
bzw. den Inhalt einer bestimmten Variable zuzuweisen?
Gruß,
Bernd
Versuch mal die Felder (bzw. das textfeld) zu aktualisieren.
Nils
Hallo Bernd
Die können, wenn Sie Office Automation einsetzen nicht vor lauter Freude im Dokument herumhüpfen und es gibt auch keine Veranlassung dazu.
Verwenden Sie statt einem Selection-Objekt ein Range-Objekt:
Sub TestG()
TMName = „MeineMarke“
TMInhalt = „Hallo Welt“
If ActiveDocument.Bookmarks.Exists(TMName) Then
ActiveDocument.Bookmarks(TMName).Range.Text = TMInhalt
End If
End Sub
Gruss
S. Widmer