Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Durch Seriendruckerstellung geht Textmarke verloren
zurück: Dropdown-Feldinhalt mit makro belegen weiter: erste leere Zelle in Word-Tabelle ermitteln W2003 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
VBAKerstin
Gast


Verfasst am:
25. Apr 2006, 19:11
Rufname:

Durch Seriendruckerstellung geht Textmarke verloren - Durch Seriendruckerstellung geht Textmarke verloren

Nach oben
       

Hallo!

Ich habe leider noch ein weiteres Problem.

Ich habe folgenden Code, der eine Textmarke überschreiben soll.

If ActiveDocument.Bookmarks.Exists("Alternative") = True Then
ActiveDocument.Bookmarks("Alternative").Select
Selection.InsertBefore ("Text der über die Textmarke geschrieben werden soll)
End If

Hat auch alles super funktioniert. Nun hab ich das Ganze über ein Datenbankschnittstelle als Seriendokument aufrufen müßen und seither findet er die Textmarke 'Alternative' nicht mehr. Ich rufe das Seriendruckdocument aus einer Vorlage mit einem Autotext auf. In diesem befindet sich auch die Textmarke.

Aber sie läßt sich nun nicht mehr befüllen.

Hat jemand eine Idee wie ich das gelöst bekomme? ;(

Lieben Dank für Eure Mühe
Kerstin
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
30. Apr 2006, 20:34
Rufname:
Wohnort: Leipzig

AW: Durch Seriendruckerstellung geht Textmarke verloren - AW: Durch Seriendruckerstellung geht Textmarke verloren

Nach oben
       

Hallo Kerstin,

hier hatte ich dir doch schon die wiederverwendbare Textmarke eingestellt, die kannst du einfach dafür verwenden:

Textmarke in Fußzeile

Damit tritt das Problem nicht auf. Also nicht die Textmarke auswählen und dann befüllen, das klappt nur einmal, sondern einfach so füllen:

Code:
Call ReSetBookmark(TMName:="Alternative", TMInhalt:="Text, der eingetragen werden soll")

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
10. Mai 2006, 16:45
Rufname:


AW: Durch Seriendruckerstellung geht Textmarke verloren - AW: Durch Seriendruckerstellung geht Textmarke verloren

Nach oben
       

Hallo Lisa, danke für die Hilfe, ich war leider `ne Weile krank, deshalb konnte ich erst jetzt erneut probieren und es will einfach noch immer nicht klappen. Hab allesmögliche probiert um die Fehlerquelle einzudämmen!

Problem: Also ich habe eine Dokumentenvorlage, in welcher auch Autotexte mit Feldmarken hinterlegt sind. Wenn die Vorlage gestartet wird, dann wird zunächst ein Hauptdokument erstellt. Solange das besteht und mit den Feldern befüllt wird, klappt alles super. Wenn aber mit folgender Prozedur die Serienbrieferstellung gestartet wird und die Seriendruckfelder in einem Seriendruckdokument im Autotext befüllt werden, geht die Textmarke verloren. Es sei denn sie befindet sich in der Kopf- oder Fußzeile. Da bleibt sie erhalten!!!!! Außerhalb dessen, auch, wenn ich sie oberhalb des einzufügenden Autotextes einfüge klappt es nicht.

****************************************
Public Sub SerienbriefErstellen()

'Dokument als Serienbrief-Hauptdokument deklarieren
NameHauptdokument = ActiveWindow.Caption
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters

'Verbindung mit Datenquelle (Schnittstellendatei)
ActiveDocument.MailMerge.OpenDataSource Name:= _
TextAssWWSPfad & UserName & ".wws", ConfirmConversions:=False, ReadOnly:= _
False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", Revert:=False, Format:=wdOpenFormatAuto, Connection:="", SQLStatement _
:="", SQLStatement1:=""

'Seriendruck in neues Dokument
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 1
'-------------------------------------------------------------------------------
'Aufruf Reset-Prozedur, damit Textmarke erhalten bleibt
'Textmarke wird neu eingefügt, geht aber bei Wechsel von Dokument zu Serienbrief dann doch wieder verloren!!!
Call ReSetBookmark(TMName:="FreieWahl", TMInhalt:="Textmarke")
'-------------------------------------------------------------------------------
End With
.Execute Pause:=False
End With

'Hauptdokument aufrufen und schließen
Documents(NameHauptdokument).Activate

'Windows(1).Activate
ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

'Vorlage des erstellten Serienbriefs als gespeichert deklarieren
ActiveDocument.AttachedTemplate.Saved = True

'Ansicht Seitenbreite
ActiveWindow.ActivePane.View.Zoom.Percentage = Seitenbreite
DateinameEinfuegen

End Sub
****************************

Gibt es Abhilfe???

Danke im Voraus Kerstin
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Formate: Formatierung verloren? 16 grisu74 680 03. Jul 2013, 15:12
theoS Formatierung verloren?
Keine neuen Beiträge Word Formate: Übertragen von Formatvorlagen: Einzüge gehen verloren 0 myotis 108 28. Jan 2013, 17:13
myotis Übertragen von Formatvorlagen: Einzüge gehen verloren
Keine neuen Beiträge Word Formate: dotx-Vorlage - Formatierung in Textformularfeldern verloren 3 bread1234 2042 25. Jul 2012, 12:30
Maverick1404 dotx-Vorlage - Formatierung in Textformularfeldern verloren
Keine neuen Beiträge Word Formate: Formatierung geht beim kopieren verloren 2 Wordlost 1109 03. Apr 2012, 13:09
Wordlost Formatierung geht beim kopieren verloren
Keine neuen Beiträge Word Serienbriefe: Nummerierung geht verloren in Serienbriefdokument 4 Gast 706 14. Jan 2012, 12:35
Der Klappspaten Nummerierung geht verloren in Serienbriefdokument
Keine neuen Beiträge Word Serienbriefe: Serienbrief INCLUDETEXT-nur erste Textmarke wird ausgelesen? 3 Gast 1002 12. Apr 2011, 12:21
paulsmith Serienbrief INCLUDETEXT-nur erste Textmarke wird ausgelesen?
Keine neuen Beiträge Word Formate: eMail-Daten gehen verloren 0 Gast 198 27. Jan 2011, 15:23
Gast eMail-Daten gehen verloren
Keine neuen Beiträge Word Formate: Fehler Textmarke nicht definiert 2 smila 8255 26. Jul 2010, 16:55
CaBe Fehler Textmarke nicht definiert
Keine neuen Beiträge Word Formate: Problem beim übertragen einer Textmarke ins REF Feld 4 Garath 3039 14. Okt 2008, 15:46
Hurricane Problem beim übertragen einer Textmarke ins REF Feld
Keine neuen Beiträge Word Formate: Formatierung geht verloren 2 anwenderxyz 1104 22. Jan 2008, 09:29
Gast Formatierung geht verloren
Keine neuen Beiträge Word VBA Programmierung (Makros): Textmarke in Word nach Speichern wieder leeren 11 Fredl 1410 16. Jan 2007, 19:26
Fredl Textmarke in Word nach Speichern wieder leeren
Keine neuen Beiträge Word VBA Programmierung (Makros): Problem mit geschlossener Textmarke 1 23Maximus 803 16. Okt 2006, 12:30
rita2008 Problem mit geschlossener Textmarke
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum