Thema Datum  Von Nutzer Rating
Antwort
31.05.2016 12:52:03 tias
NotSolved
Blau aus einem Outlook Macro eine Word Datei öffnen
31.05.2016 16:03:35 Gast10392
Solved

Ansicht des Beitrags:
Von:
Gast10392		 Datum:
31.05.2016 16:03:35		 Views:
551		 Rating:
     
Antwort:
 Nein
Thema:
aus einem Outlook Macro eine Word Datei öffnen

so ich habe es hinbekommen. Manchmall sollte man seinen Kopf auch mal anstrengen ;-)

Ich muss drei Platzhalter in der Worddatei ersetzen und anschließend die Datei ausdrucken. Eine Sicherung der Vorlagedatei soll nicht erfolgen.

 

Dim objWA As Object, objWD As Object
   
Set objWA = CreateObject("Word.application") 'Word öffnen
objWA.Visible = True 'falls man zuschauen möchte
    
Set objWD = objWA.Documents.Open(pfad(4))

    With objWD.Content.Find
    .text = "<Tag>"
    .Replacement.text = Tag
    .Execute Replace:=2 'wdreplaceAll
    End With
    
    With objWD.Content.Find
    .text = "<Datum>"
    .Replacement.text = datum
    .Execute Replace:=2 'wdreplaceAll
    End With
    
    With objWD.Content.Find
    .text = "<Uhrzeit>"
    .Replacement.text = zeit
    .Execute Replace:=2 'wdreplaceAll
    End With

objWA.PrintOut 'druckt die geänderte Worddatei

objWA.Documents(pfad(4)).Close SaveChanges:=False
objWA.Quit 'Word-Anwendung schliessen

 

Schönen Dank an alle Beteiligten und Betrieber diese Plattform für ihre Mühen und Unterstützungen.

Gruß, Tias

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.05.2016 12:52:03 tias
NotSolved
Blau aus einem Outlook Macro eine Word Datei öffnen
31.05.2016 16:03:35 Gast10392
Solved