Hallo mal wieder :)

ich habe eine neue Herausforderung für Euch und bin mir nicht sicher, ob das überhaupt funktioniert. Ich habe mit Word basierend auf einer Exceldatenbank Serienbriefe erstellt. Es sind knapp 180 Stück Mit folgendem Code habe ich es endlich geschafft, sie ohne PlugIn als PDF einzeln auf 1-Klick abzuspeichern.

Sub Serienbrief_im_PDF_Format_speichern()

Dim iBrief As Integer, sBrief As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Path As String


On Error GoTo ErrorHandling


Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Speicherort für Serienbriefe auswählen", 0, 16)
   If BrowseDir = "Desktop" Then
    Path = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Else
    Path = BrowseDir.items().Item().Path
End If
   If Path = "" Then GoTo ErrorHandling
       Path = Path & "\Serienbrief-" & Format(Now, "dd.mm.yyyy-hh.mm.ss") & "\"
MkDir Path
   On Error GoTo ErrorHandling
          MsgBox "Serienbriefe werden exportiert. Dieser Vorganag kann einige Minuten dauern - Microsoft Word wird während dieser Zeit ausgeblendet", vbOKOnly + vbInformation
Application.Visible = False

With ActiveDocument.MailMerge
    .DataSource.ActiveRecord = 1
    Do
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = .ActiveRecord
            .LastRecord = .ActiveRecord
            sBrief = Path & .DataFields("ID").Value & ".pdf"
                    
        End With
             
              
        If .DataSource.DataFields("ID").Value > "" Then
            ActiveDocument.SaveAs FileName:=sBrief, FileFormat:=wdFormatPDF
                                End If
        ActiveDocument.Close False
               If .DataSource.ActiveRecord < .DataSource.RecordCount Then
            .DataSource.ActiveRecord = wdNextRecord
        Else
            Exit Do
        End If
    Loop
End With
  ErrorHandling:
Application.Visible = True
 If Err.Number = 76 Then
    MsgBox "Der ausgewählte Speicherort ist ungültig", vbOKOnly + vbCritical
ElseIf Err.Number = 5852 Then
    MsgBox "Das Dokument ist kein Serienbrief"
ElseIf Err.Number = 4198 Then
    MsgBox "Der ausgewählte Speicherort ist ungültig", vbOKOnly + vbCritical
ElseIf Err.Number = 91 Then
    MsgBox "Exportieren von Serienbriefen abgebrochen", vbOKOnly + vbExclamation
ElseIf Err.Number > 0 Then
    MsgBox "Unbekannter Fehler: " & Err.Number & " - Bitte Makro erneut ausführen.", vbOKOnly + vbCritical
Else
    MsgBox "Serienbriefe erfolgreich exportiert", vbOKOnly + vbInformation
End If

End Sub

Das klappt auch ganz gut. Frage kommt im Kommentar

Hi!

Ich habe eine Arbeitskollegin mit der Ich ganz gut klar komme. Zwischen uns hat sich ne gute Freundschaft entwickelt. Sie hat ein Freund und Kind und Ich bin verheiratet und habe ein Kind. Leider habe Ich mich in sie verliebt und habe es ihr später gebeichtet.

Sie wollte dazu nichts sagen und später kam ne Nachricht es kam keine besondere Reaktion von ihr weil sie dafür keine Zeit hat und sie gerad andere Sachen im Kopf hat.

Übrigens für mich war die Sache klar die Freundschaft zu ihr ist mir wichtig und mein Herz hängt trotzdem noch aneiner Frau und Kind.

Jetzt hat Sie ein neuen Job in einer anderen Stadt weiter weg. Zum Abschied ,beim letzten treffen, möchte Ich sie unbedingt Küssen allerdings kurz auf den Mund. Hab das Gefühl das machen zu müssen. Oder würde Ich damit alles kaputt machen? Und wie reagiert sie wohl? Was meint ihr?

Hallo warte seit 20,11 auf ein Paket. Laut Sendungsverfolgung wurde es abgeholt und seitdem wird auch nichts anderes mehr gezeigt! Brauche das Eratzteil dringend. Wie sollte ich vorgehen was meint ihr! Zur info .: es war ein Ebay Kauf und versicherter Verand!

Meine 'beste freundin' hat sehr wenig zeit für mich. Wir kennen uns jetzt schon seit der 2 klasse und sind jetzt in der 8ten. In der grundschule und 5te klasse hab ich sie öfter gefragt was sie denn macht und ob wir etwas zusammen machen können. Sie wohnt auch nur eine strasse weiter also gar nicht weit weg sagt aber meistens das sie hausaufgaben machen muss und dann ihrer mutter helfen oder das sie keiine zeit hat etc. Aber sie erzählt mir immer,ja ich war gestern mit meiner freundin xxx schlittschuhlaufen und letzte woche kam die aus unserer klasse zu mir und wir haben das und das gemacht ... jedenfalls hat mich das seit der 6ten klasse echt generft weswegen ich da aufgehört hab die zu fragen ob wir was machen können. Jetzt frägt sie mich einmal im monat oder so ob wir was machen können,sagt dann aber danach das sie doch keine zeiit hat weil sie zb auf einen geburtstag eingeladen ist wie heute. Früher hat sie mir mal geschrieben das sie nicht nur für mich lebt und wegen mir sie sich von anderen freunden auseinandergelebt hat obwohl ich nur gefragt hab ob sie mir bei einer matheaufgabe helfen kann und zu mir kommt... wie soll ich damit umgehen? Einfach lassen und was mit ihr machen wenn sie mich was frägt oder? Kann ich sie überhaupt beste freundin nennen weil meine mutter mir ständig sagt das sich beste freundinen immer zeit füreinander nehmen und meine halt nicht. Lg=)

Hallo, ich weiß nicht wie ich anfangen soll... der Grund warum ich hauptsächlich Rat von Männern möchte, ist weil ich leider noch nie einen Freund hatte. Der einfachste Weg für mich hier anonym zu fragen. Auch Frauen, die mit einer ähnlichen Situation gekämpft haben und mir Rat geben können...wäre schön. Ich kann mit keinem darüber reden, weil es mir einfach zu peinlich ist und ich weiß auch nicht, ob man mich versteht. Das müsste man wahrscheinlich auch alles aus der psychologischen Sicht betrachten können. Ich bin schon 27 und hatte noch nie einen Freund. War also noch nie in einer Beziehung, weder physisch noch emotional. Es ist einfach nie dazu gekommen und je älter ich werde, desto trauriger macht es mich und natürlich fängt man an an sich zu zweifen und fragt sich, was mach ich denn falsch? Was haben die anderen, was ich nicht habe? Da ich noch nie in einer Beziehung war und auch nie männliche Freunde hatte,... ist das ganze umso schwieriger für mich. Ich schäme mich auch dafür, dass ich unerfahren bin. Manche würden jetzt sagen, dass es egal ist, aber versucht euch mal in meine Situation hinenzuversetzen. Ich hab immerwieder zu mir selbst gesagt, ach der Richtige kommt schon irgendwann, natürlich ist es ein mensches und natürliches Bedürfnis einen Partner zu haben. Nun habe ich aber an mir festgestellt....je mehr ich mich distanziert habe und es nie dazu gekommen ist, desto größer ist meine Angst jemanden kennen zu lernen und jemanden zu treffen. Neulich habe ich jmd im Sportverein kennen gelernt. Wir haben uns monatelang E-Mails geschrieben, er hat mich jedoch nie nach nem Treffen gefragt, was ich auch wieder komisch finde. Wieso dann die ganzen E-Mails hin und her. Jedes Mal, wenn ich jmd kennen lerne, entfernen die sich wieder von mir und ich weiß nicht, woran das liegt. Es ist immer so, dass der Kontakt plötzlich weniger wird, oder das man mir nicht mehr antwortet. Ich bin ein ganz normaler ehrlicher, zuverlässiger und vertrauenswürdiger Mensch. Ich komm seitdem nicht mehr klar mit mir.. ich frage mich, was ich bloß falsch mache. Wie muss ich sein? Muss ich mich verändern?, aber wieso kann ich nicht einfach so sein wie ich bin? ... Naja, will jetzt nicht zu viel rumheulen... habe ein bisschen erzählt, damit man auf meine Frage eventuel antworten kann. Meine Frage ist eigentlich folgendes: Wieso kommt ihr Männer damit nicht klar, wenn eine Frau noch nie einen Freund hatte? Wieso muss sie erfahren sein? Muss sie erfahren sein? Gibt es eigentlich noch Männer, die einer unerfahrenen Frau Verständnis zeigen und statt sich fernzuhalten...ihr zu helfen? Ihr zu helfen, dass Sie keine angst haben muss vor Männern? Meine Frage an Frauen, die durch ähnliches gegangen sind, wie habt ihr eure Angst überwunden?

Am meisten habe ich angst davor , wenn ich jmd kennen lerne...ihm zu sagen, dass ich noch nie nen Freund hatte und komplett unerfahren bin.

Ps; Wenn jetzt einige denken, es liegt am Aussehen, leider nicht....

Danke im Voraus.

Hallo. darf der neue Partner meiner Ex-Frau meinem Kind verbieten mit mir zu telefonieren? Brauche dringend Hilfe. Lieben Dank im voraus.

Hey leute

Das verstehe ich schon seit meiner Kindheit nicht... Wieso kann man jetzt in die Erde ( wie wir hier in der Erde sind) und nicht in zb. den Mond hinein fliegen/fallen ? Man steht ja nur auf der Oberfläche des Mondes und bei der Erde kann man NICHT auf der Oberfläsche stehen.. Wieso jetzt eig. ? Lg

Hallo, suche dringend ein App mit dem ich auch ohne Wlan Musik hören kann, habe schon so viele getestet aber es war nichts dabei was mich überzeugt hat, vielleicht könnt ihr mir ja helfen? Wäre sehr hilfreich.

Hallo ich 25 habe vor einen Führerschein zu machen, dabei sah die Behörde mal ein vergehen, dass ich mit 16 machte: " Fahren ohne Fahrerlaubnis" wurde aber durch 15 Sozialstunden eingestellt.

Wie man mit 16 kamen weitere kleine Delikte dazu aber nichts mit dem Strassenverkehr:

Begünstigung - Eingestellt nach 20 Sozialstunden (Jugendstrafe) Betrug - Eingestellt nach zurückzahlen des Betrages (Jugendstrafe) Betrug - 1200 Euro Geldstrafe 40 Tagessätze (2014) Betrug - 600 Euro Geldstrafe 40 Tagessätze (2014) erst Montag rechtskräftig

Alles Ebaysachen die angeblich nie ankamen (Warensendungen)

Die Behörde also Führerscheinstelle will nun ein Führungszeugnis um die Eignung für eine Fahrerlaubnis zu bekommen. Führungszeugnis kann wenn überhaupt nur 2x Betrug stehen.

Kann es sein, dass ich deswegen keinen FS bekomme ?

Ich habe noch nie Drogen genommen keinen Alkohol getrunken und keine Zigarette geraucht - undenkbar aber wahr !

Ich suche für mein Onkel zu seinem 55. Geburtstag ein ausgefallenes Geschenk aber irgendwie hab ich bisher nix passendes gefunden er ist in der Schifffahrt tätig und daher viel auf reisen vielleicht könnt ihr mir helfen.

Hallo ich habe von mein ex freund ein Kind und er zahlt kein unterhalt da er keine Arbeit hatte und ich bekomme Geld vom Jugendamt. Da er aber nun Arbeit hat und es noch nicht den jugendAmt mitgeteilt hat wollte ich mal fragen was passiert weil er ist ja nun verpflichtet dazu es zu melden und zu zahlen . vielen dank schon mal wer mir helfen kann

Hay:) ich hatte nicht wircklich eine Kindheit und mach seid neustem Dinge die ich "früher" ich schau Alte Serien, kauf Sachen die ich damals wollte... Und naja ich weiß nicht ob das gut ist. Wenn ich mir es kaufe oder Sachen anschaue bin ich Happy^^ aber wiederum hält es mich halt auch auf... soll ich damit weiter machen?

Folgende Situation Unsere Zwillinge,8Jahre spielen in derF-Jugend Fussball(16Kinder),sind mit am längsten dabei,motiviert und auch recht gut.Die zwei Trainer haben nun ein Schmankerl an Land gezogen:11 Kinder können beim Bundesligaverein als Einlaufkinder teilnehmen.wie erwartet wollten natürlich alle mitmachen.Die Trainer haben ohne Absprache frei entschieden das -unsere Jungs nicht dabei sind- dieses wurde durch eine Mail bekanntgegeben,nochnicht einmal beim Training. Unsere Jungs haben es am nächsten Morgen in der Schule bitter vonihren Teamkollegen erfahren denn wie manche Kinder so sein können blieben Hänseleien (sogar vom Trainerkind)nicht aus.Die Nachfrage warum nicht das Los entschieden hat und im Beisammensein aller,wurde damit begründet das ein Losverfahren auch zu Enttäuschung geführt hätte und sie es sich nicht einfach gemacht hätten(Ausschlag gegeben hätten Ausfall beim Training und Länge der Vereinsmitgliedschaft) Wie schon erwähnt mit am längsten sind unsere dabei und gefehlt haben Sie unterm Strich genauso oft wie andere .unsere Jungs sind total wütend und enttäuscht ,wollen dort nicht mehr spielen.Kannn man das nachvollziehen???

Ich will für mein clan eine Webseite machen

Ich brauch unbedingt n rat!! ich hab vor n paar tagen zum zweiten mal gekifft... und das machen verdammt viele in meiner schule, und die müssen jetzt alle einen drogentest machen! wielange kann man das nachweisen? es steht im internet immer was anderes... .__.

Hallo, ich habe ein Autoradio, das bei mir 4 Wochen in einem Auto ohne Problem lief verkauft. Der Käufer möchte nun vom Kauf zurücktreten da das Gerät angeblich defekt sei, was nicht stimmen kann, das Gerät wurde neu von mir gekauft, Rechnung liegt vor, lieft bei mir einwandfrei. Ich habe im Anhang alles ausgeschlossen.

Aufgrund der EU-Gesetzeslage bitte ich folgende Hinweise zu beachten: Alle meine Auktionen, ob Neu- oder Gebrauchtwaren, sind Privatverkäufe unter Ausschluss jeglicher Garantie und Gewährleistung, sowie Rückgabe und Umtausch. Ich bin kein Händler, sondern nach BGB eine Privatperson und schließe hiermit die nach EU-Recht vorgeschriebene Garantie und das Umtauschrecht aus. Die Angaben über den angebotenen Artikel habe ich nach bestem Wissen und Gewissen gemacht. Mit Abgabe eines Gebots nimmt der Bieter den Haftungsausschluss und die AGB von eBay an und akzeptiert, dass es sich bei einer Auktion um eine Versteigerung im Sinne des § 3 Abs. 5 des Fernabsatzgesetzes handelt und dem Höchstbietenden kein Widerrufsrecht gemäß dem Fernabsatzgesetz zusteht. Er droht mir nun einen Anwalt einzuschalten wenn er sein Geld nicht zurück bekommt. Wie soll ich mich verhalten. Ich möchte das Gerät nicht zurücknehmen, da ich nicht weiß was mit dem Gerät in der Zwischenzeit passiert ist.

Gruß loni

Darf man während der Tage geschlechtsverkehr machen ?

Fall: Arbeitnehmer ist festangestellt, wird schwanger und will in der Elternzeit zurück in die 250 km entfernte Heimat ziehen. Natürlich muss der AN den Arbeitsvertrag kündigen. Hier findet scheinbar nur Paragraph 19 BEEG Anwendung:

'Kündigung zum Ende der Elternzeit

Der Arbeitnehmer oder die Arbeitnehmerin kann das Arbeitsverhältnis zum Ende der Elternzeit nur unter Einhaltung einer Kündigungsfrist von drei Monaten kündigen.'

Das bedeutet ja, dass AN nach Elternzeit noch 3 Monate dem alten AG zur Verfügung stehen muss, obwohl schon umgezogen. Gibt es hier Sonderfälle?

Kündigt der AN oder unterzeichnet einen Aufhebungsvertrag und findet nicht sofort eine neue Stelle, sperrt das Arbeitsamt das "zustehende Arbeitslosengeld"?

Wie verhält es sich mit der Krankenversicherung?

hallo gutefrage

ich nehme seit fast 3 monaten die pille maxim das ist meine erste pille die ich bekommen habe jedoch fühle ich dass ich seitdem manchmal das gefühl habe,meinen freund nicht mehr zu lieben (streite mich auch oft mit dem) ich denke manchmal sogar nach die beziehung zu beenden, jedoch gibt es dann wieder so momente wo ich denke dass ich für immer mit ihm zusammen sein will...

ich habe auch mal gelesen dass die maxim pille ja nicht so gut für neueinsteiger sei da diese eine angeblich viel zu hohe hormondosierung hat

kann das echt wegen der pille kommen oder bilde ich mir das nur ein dass es deswgen ist?

Hallo zusammen,

ich habe die Prepaid-Mastercard von Jokerkartenwelt welche zur Novum Gruppe gehört. Vor kurzem habe ich jemanden einiege 25€ Aufladekarten vom Einkaufen mitgebracht. Eine davon hat immer wieder einen Fehlercode (6002) ausgespuckt. Mein Kumpel rief mich an und weil ich die Aufladekarten die ich für mich hatte noch nicht verwendet habe tauschte ich einfach eine aus. Bei mir kam der gleiche Fehlercode also kontaktierte ich das Team von Joker. Nach mehrmaligen hin und her wurden im endeffekt beide Konten gesperrt mit der Aussage das es gegen die AGBs wäre sich Karten mitbringen zu lassen oder jemanden mit zu bringen. Darin hab ich aber nichts darüber gefunden und jetz frage ich euch: Dürfen die das? Die 25€ sind vorerst auch weg