Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit TransferText
zurück: Suchen und Ergebnis im Formular ausgeben... weiter: Ordnerinhalt in Access Anzeigen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
niesi
Gast


Verfasst am:
25. Sep 2003, 07:57
Rufname:

Problem mit TransferText - Problem mit TransferText

Nach oben
       

Hallo,

ich muss einen Serienbrief (im Word erstellt) in VBA programmieren.
Und zwar müssen die Daten einer kompletten Tabelle hinein fließen und zum Schluss ausgedruckt werden.

Wie kann ich dieses Problem am einfachsten lösen.
Würd mich um schnelle Hilfe freuen.

Ein dickes Danke im Voraus

ciao niesi
Mario Kobolla
Access-Programmierer


Verfasst am:
25. Sep 2003, 08:45
Rufname:
Wohnort: Hanau

AW: Problem mit TransferText - AW: Problem mit TransferText

Nach oben
       

Guten Morgen,

Du kannst einen Word-Serienbrief direkt mit einer Access-Tabelle verknüpfen. Dazu gibt es einen Assistenten in Word.
So wird´s gemacht:
1. Word + Serienbrief öffnen
2. Menüleiste
> Extras
> Seriendruck
> Erstellen
> Serienbrief
> aktives Fenster
3. Daten importieren
> Datenquelle öffnen
> Dateityp "Access" auswählen
> Access-Datenbank öffnen
> Tabelle auswählen
4. Dokument bearbeiten. Jetzt erscheint eine Symbolleiste "Sereindruck"
5. "Sereindruckfeld einfügen" und die Felder der Tabelle auf das
Worddokument per Drag & Drop plazieren.
6. Dann musst Du nur noch das Dokument verbinden bzw. die Briefe
erstellen lassen. Dazu startest Du wieder den Seriendurck-Manager in
Word. (Menüleiste > Extras > Seriendruck > Ausführen > Verbinden)

Das wäre die einfachste und schnellste Lösung. Es gibt beim Serienbrief noch einige Einstellungen, die Du machen kannst. Aber das ist dann ein Problem für Word.

Beachte dazu auch mal die Online-Hilfe in Word und Access.

Viel Erfolg,

Mario Kobolla Wink
faßnacht(IT);
www.Office-Loesung.de Administrator


Verfasst am:
25. Sep 2003, 11:10
Rufname: Peter


Serienbrief mit TransferText und VBA - Serienbrief mit TransferText und VBA

Nach oben
       

Hallo Smile
Nach Deiner Überschrift zu schließen, möchtest Du ja die Funktion TransferText verwenden und den Serienbrief per Code öffnen (etwa durch einen Knopf in einer Access-Anwendung).
Ich verwende Transfertext auch meistens bei Word-Serienbriefen, weil es die einfachste Möglichkeit bei einer geschützten Datenbank ist, Daten für einen Serienbrief zur Verfügung zu stellen. Zum Glück habe ich zu dem Thema schonmal was ausführliches geschrieben:
Zunächste exportiert man die Daten mit dem Befehl DoCmd.Transfertext in eine Datei.
Code:
DoCmd.TransferText acExportDelim, , strDeineExportAbfrage, strDeinExportPfad, True

Dann öffnet man in Word das Hauptdukoment, verbindet dieses Hauptdokument mit den Daten und druckt die dadurch neu enstehende Datei aus. Etwa so (ungetestet):

Code:
Function Rechnung_Drucken(strDeineVorlage as String, strDeinExportPfad As String)As Boolean

Dim appWord As Word.Application
Dim docVorlage As Word.Documen
Dim docAktiv As Word.Document

Set appWord = CreateObject("Word.Application")
'appWord.Visible = True
Set docVorlage = appWord.Documents.Open(strDeineVorlage)
  With docVorlage.MailMerge
    'Datenquelle verbinden
    .OpenDataSource NAME:=strDeinExportPfad
    .Destination = wdSendToNewDocument""
    .Execute
    Set docAktiv = .Application.ActiveDocument   
  End With
  MsgBox "Serienbrief wurde erstellt, Drucken beginnt"
  With docAktiv
    .PrintOut Item:=wdPrintDocumentContent, Copies:=1, _
        PageType:=wdPrintAllPages, Collate:=False, PrintToFile:=False
    'Wahlweise Speichern (dazu solltest Du eine Variable strDeinRechnungPfad an die Funktion übergeben)
    '.SaveAs strDeinRechnungPfad
    'Rechnung schliessen ohne Speichern
    .Close wdDoNotSaveChanges
  End With
  'Objekte Aufräumen
  Set docAktiv = Nothing
  If Not docVorlage Is Nothing Then
    docVorlage.Close wdDoNotSaveChanges
    Set docVorlage = Nothing
  End If
  appWord.Close
  Set appWord = Nothing

End Function

Ich habe hier nur das Wesentliche zusammengefasst. Normalerweise sollten Prüfungen, ob die jeweilige Datei existiert nicht fehlen (um Fehler aufzufangen und nichts unbedacht zu überschrieben). Ausserdem sollte am Schluss die exportierte Textdatei gelöscht werden, damit kein unbefugter die daten sehen kann.

PS: und nicht vergessen die Word Library einzubinden (Modul öffnen, EXTRAS - VERWEISE... und dann ein Häkchen bei "Microsoft Word x.x Object Library" machen).

_________________
na, hilft das weiter?
ciao Smile
Peter Faßnacht
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 Access Programmierung / VBA: CSV Export mit DoCmd.TransferText -> Problem mit # (Raute 1 Jens1977 111 28. Jan 2014, 16:34
Jens1977 CSV Export mit DoCmd.TransferText -> Problem mit # (Raute
Keine neuen Beiträge Access Programmierung / VBA: Probleme mit DoCmd.TransferText 2 the_new_guy 108 27. Nov 2012, 11:14
the_new_guy Probleme mit DoCmd.TransferText
Keine neuen Beiträge Access Programmierung / VBA: DoCmd.TransferText in Office 2010 geändert 3 ChrPeter 390 09. Okt 2012, 15:54
Gast DoCmd.TransferText in Office 2010 geändert
Keine neuen Beiträge Access Programmierung / VBA: TransferText mit Importspezifikation ohne Fehlermeldung 2 Ca.Si 390 14. Feb 2012, 15:18
Gast TransferText mit Importspezifikation ohne Fehlermeldung
Keine neuen Beiträge Access Programmierung / VBA: Fehler 3486 bei DoCmd.Transfertext 1 herrmannplatz 299 15. Aug 2011, 19:56
MissPh! Fehler 3486 bei DoCmd.Transfertext
Keine neuen Beiträge Access Programmierung / VBA: TransferText =>3001 26 redmess 2522 12. Mai 2010, 14:36
Gast TransferText =>3001
Keine neuen Beiträge Access Programmierung / VBA: Kleine Frage zu .TransferText 8 NicoSt 284 29. Apr 2010, 20:55
Gast Kleine Frage zu .TransferText
Keine neuen Beiträge Access Programmierung / VBA: DoCmd.TransferText alte Daten überschreiben 1 bnA 1317 15. Dez 2009, 17:38
Gast DoCmd.TransferText alte Daten überschreiben
Keine neuen Beiträge Access Programmierung / VBA: Datenimp. mit DoCmd.TransferText acImportDelim klappt nicht 15 Klettermaxe 3873 01. Sep 2009, 00:27
MiLie Datenimp. mit DoCmd.TransferText acImportDelim klappt nicht
Keine neuen Beiträge Access Programmierung / VBA: Tabstop im Transfertext ohne Spezi 14 Nimmerfremd 1293 07. Jul 2009, 15:43
Nimmerfremd Tabstop im Transfertext ohne Spezi
Keine neuen Beiträge Access Programmierung / VBA: DoCmd.TransferText Spezifikationen übertragen/sichern 1 DerAdam 1215 06. Jul 2009, 12:50
DerAdam DoCmd.TransferText Spezifikationen übertragen/sichern
Keine neuen Beiträge Access Programmierung / VBA: transferText ohne Anführungszeichen 10 Mazl_24 4345 08. Dez 2008, 18:10
Daniel_star transferText ohne Anführungszeichen
 

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