Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Seriendruck
Autor: asim_49
Datum: 21.11.03 21:52
Hallo Nach langem Versuch habe ich das endlich geschaft.Unten sichst du code Private Dateiname$ 'Pfadangabe für worddocumend Private WD As Word.Application Private DOC As Document Set WD = CreateObject("Word.Application") Set DOC = WD.Documents.Open(dateiname) 'Hier wird seperate Document erstellt ohne Serienbrieffelder With DOC If DOC.MailMerge.State = wdMainAndDataSource Then .MailMerge.Destination = wdSendToNewDocument .MailMerge.Execute .Close SaveChanges:=wdDoNotSaveChanges End If '.Saved = True '.Close With WD .Visible = True .Activate .WindowState = wdWindowStateMaximize End With Set WD = Nothing: Set DOC = Nothing

Seriendruck	1.379	André Keller	16.11.03 11:34
Re: Seriendruck	634	Radeonmaster	16.11.03 22:49
Re: Seriendruck	691	André Keller	17.11.03 09:20
Re: Seriendruck	786	asim_49	21.11.03 21:52
Re: Seriendruck	754	André Keller	21.11.03 22:22
Re: Seriendruck	710	André Keller	22.11.03 11:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen