Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Seriendruckdatei unter Word 2007 aufteilen und unter einzelnen Briefdateien abspeichern

Frage Microsoft Microsoft Office

Mitglied: vonlaun

vonlaun (Level 1) - Jetzt verbinden

14.12.2008 um 14:50 Uhr, 8075 Aufrufe, 1 Kommentar

Word 2007 Serienbriefdatei soll in einzelne Briefdateien (je Empfänger eine) aufgeteilt werden und einzeln abgespeichert werden.
Makro/ Add-Inn/ Add-On gesucht

Serienbrief Word 2007

Datenquelle: Exceltabelle (Excel 2007) mit circa 50 Datensätzen in zeilenweiser Anordnung. In jeder Zeile sind 30 spaltenweise angeordnete Zellen, die die individuellen Daten für den Serienbrief enthalten (z.B. Vorname, Nachname, Textfeld, Datumsangabe in „10.11.2007“ , Datumsangabe 2 in „November 2008“, Betrag in „436,22 EUR“, etc.).

Startdokument für Serienbrief: Worddokument (Word 2007 im Kompatibilitätsmodus) mit 65 Seiten. Es sind 30 verschiedene Seriendruckfelder enthalten, davon einige in Kopf- oder Fußzeilen. Diese Seriendruckfelder werden aus der Exceltabelle „befüllt“ und zwar so, dass die Formatierung aus der Exceltabelle erhalten bleibt. Einige Excelzellen enthalten Formeln „=B6+12“.

Gesucht wird Makro/ Add on für: Start des Seriendrucks, wobei die fertigen einzelnen (individualisierten) Briefe (Worddokumente) an die Empfänger aus der Exceltabelle nicht ausgedruckt werden sollen, sondern als Dokumente (doc) in einem Zielverzeichnis abgespeichert werden sollen und zwar mit dem Dateinamen „Vorname_Nachname_Erstelldatum.doc“. Dabei soll der Dateiname aus der EXCEL-Liste herausgelesen werden, in der auch alle anderen Werte stehen. Alle Seriendruckfelder sollten in diesen Dokumenten keinen Hinweis auf Seriendruckfelder enthalten sondern in Text umgewandelt sein. Und zwar nur die Seriendruckfelder, nicht andere Felder wie z.B. Verlinkungen etc. Start dieses Makros möglichst einfach.

Benötige dringend eine Lösung!
Herzlichen Dank.
vonLAUN
Mitglied: MathiasB
16.02.2009 um 11:02 Uhr
Hallo Laun,

vielleicht hilft das VB-Makro ja schon mal für den Anfang:

Der gewünscht Dateiname wir aus den Excel-Feldern im Seriendruckdokument zusammengesetzt und dieser Bereich dann mit der Textmarke "name" versehen. Das Makro verknüpft den Brief, sucht dann "name", speichert eine TXT-Datei mit diesem Namen im angegebenen Pfad ab und geht zum nächsten Datensatz über. Es ist dann zwar nicht das DOC-Format, aber vielleicht bringt dich das Makro auf Ideen... ich brauchte es nur für TXT-Dateien, daher reichte es mir. Viel Spaß beim Tüfteln...

Sub save()
Do
Selection.GoTo What:=wdGoToBookmark, Name:="name"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Copy
Bastelname = Selection.Text
ChangeFileOpenDirectory "D:\Texte\"
ActiveDocument.SaveAs FileName:=Bastelname, FileFormat:= _
wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
Loop
End Sub
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Schnellbausteine aus Word 2007 nach Word 2016 übernehmen (2)

Frage von TiTux zum Thema Microsoft Office ...

Visual Studio
Vb.net Datenfelder aus Word 2003 Dokument auslesen (3)

Frage von Herbrich19 zum Thema Visual Studio ...

Windows Netzwerk
GPO- Word Vorlagen (2)

Frage von Technology-L zum Thema Windows Netzwerk ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(40)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

DNS
gelöst Komplette TLD Überschreiben bzw eigene Definieren (10)

Frage von Herbrich19 zum Thema DNS ...

Exchange Server
gelöst RU 17 Exchange 2010 . Erfahrungen? (10)

Frage von keine-ahnung zum Thema Exchange Server ...

Datenbanken
gelöst MySQL Zeiterfassungs-Problematik (wer ist eingecheckt) (9)

Frage von NativeMode zum Thema Datenbanken ...