Word Seriendokument (gelöst) (Allgemeines zu Perl)

[thread]18214[/thread]

Word Seriendokument [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+8 replies
Winki

2013-03-20 12:48
User since
2007-08-31
14 Artikel
BenutzerIn
Hallo,
ich habe folgendes Problem:
Ich habe ein Word Seriendokument erstellt und mit einer csv-Datenquelle verknüpft.
Die csv-Datei wird in PERL erstellt und beinhaltet einen einzigen Datensatz.
Wenn ich das Dokument aus Perl heraus drucken lasse, sind nicht die aktuellen Daten herangezogen, sondern die zuletzt gedruckten. Sprich, die Datenquelle wird nicht neu eingelesen. Da ich auch von Word wenig Ahnung habe, frage ich mich, ob das ein Problem des Word-Dokumentes oder des Aufrufes in PERL ist.
Code (perl): (dl )

1 2 3 4

$word = Win32::OLE->new('Word.Application', 'Quit'); $word->Documents->Open("$WrkDir\\Pruefprotokoll.doc") || die("Unable to open document ", Win32::OLE->LastError()); $word->ActiveDocument->PrintOut; $word->Quit;
Bin für jeden Tip dankbar.
- +3 replies
- GwenDragon
  
  2013-03-20 14:34
  User since
  2005-01-17
  14746 Artikel
  Admin1
  Das Problem wird wohl sein, dass die Datenquelle geändert wurde, aber nicht die Adressdatenbank aktuell ist.
  
  Vielleicht hilft die Methode OpenDataSource:
  
  Code: (dl )
  
  1 2
  
  $word->ActiveDocument->MailMerge->OpenDataSource(Name => $csvfile, LinkToSource=>1); $word->ActiveDocument->MailMerge->Execute(1);
  
  http://msdn.microsoft.com/en-us/library/office/ff8...
  
  Kann ich aber mangels Word nicht testen.
  Last edited: 2013-03-20 14:41:38 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Winki
    
    2013-03-20 16:11
    
    User since
    2007-08-31
    14 Artikel
    BenutzerIn
    
    Hallo GwenDragon,
    vielen Dank für die schnelle Antwort.
    Leider funktioniert es nicht.
    Habe verschieden Variationen ausprobiert und Word öffnet entweder mit den alten Daten oder Word wird geöffnet aber das Dokument nicht.
    Ich denke mal, dass der Haken bei Word liegt. Irgendwie muss es ja möglich sein, ihm zu erzählen, dass bei Dokumentöffnung die Datenquelle eingelesen werden soll. Zumal es immer die gleiche ist, nur mit veränderten Inhalten.
    
    Wie gesagt, trotzdem vielen Dank
    Winki
    - GwenDragon
      
      2013-03-20 17:54
      
      User since
      2005-01-17
      14746 Artikel
      Admin1
      
      Das Problem ist: die CSV-Datei wirsd eben nicht als Datenbank verküpft, sondern die wird einmal importiert und daraus die Datenbank erzeugt, aus der das Seriendruckdokument die Daten holt.
      
      Der Seriendruck erzeugt auch sio schon Ärgernisse, wenn nich bei neuen Daten eine neu Datenbank erzeugt wird. Altes Word, LibreOffice, Openoffice-Problem mit externen Daten. :(
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- hlubenow
  
  2013-03-20 17:17
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Ich gehe da ganz anders vor, und habe das auch schon woanders so gesehen:
  Man nutzt nicht die Serienbrieffunktion, sondern erstellt eine Dokumentvorlage, in der man Sprungmarken/Textmarken setzt.
  Dann öffnet man Word mit der Dokumentvorlage von Perl aus, springt an die jeweiligen Sprungmarken und fügt den gewünschten Text (wie Adressdaten usw.) ein.
  
  Ich denke, die Serienbrieffunktion dürfte ansonsten zu unflexibel sein. Kann das aber auch nicht beschwören.
  Denke auch, daß Word bei Serienbriefen in dem Datendokument mehrere Datensätze erwartet. Wenn die alle schon von vornherein in dem Datendokument vorhanden sind, muß dieses logischerweise ja auch nicht mehrfach eingelesen werden.
- +3 replies
- Raubtier
  
  2013-03-21 10:16
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Hm, ich habe sowas vor einiger Zeit in Delphi gemacht. Den Code habe ich damals dadurch ermittelt, einfach in Word ein Macro aufzunehmen und es dann abzutippen.
  
  Hier ist mein damaliger Code (sollte ja analog in Perl umzusetzen sein):
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
  w.ActiveDocument.MailMerge.MainDocumentType := wdFormLetters; w.ActiveDocument.MailMerge.OpenDataSource( Name:=OutputDirEdit.Text+'\Quelle.doc', ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:='', PasswordTemplate:='', WritePasswordDocument:='', WritePasswordTemplate:='', Revert:=False, Format:=wdOpenFormatAuto, Connection:='', SQLStatement:='', SQLStatement1:='' ); w.ActiveDocument.MailMerge.Destination := wdSendToNewDocument; w.ActiveDocument.MailMerge.MailAsAttachment := False; w.ActiveDocument.MailMerge.MailAddressFieldName := ''; w.ActiveDocument.MailMerge.MailSubject := ''; w.ActiveDocument.MailMerge.SuppressBlankLines := True; w.ActiveDocument.MailMerge.DataSource.FirstRecord := datensatzA; w.ActiveDocument.MailMerge.DataSource.LastRecord := datensatzE; w.ActiveDocument.MailMerge.Execute(Pause:=True);
  
  Habe momentan kein Windows in der Nähe, aber vielleicht hilft irgendeiner der obigen Befehle?
  - +2 replies
  - Winki
    
    2013-04-17 08:40
    
    User since
    2007-08-31
    14 Artikel
    BenutzerIn
    
    Hallo nochmal an alle,
    ich glaube, ich werde das Problem jetzt lösen, indem ich auf Word verzichte und das Dokument von PERL aus als rtf-File anlegen lasse und drucke.
    Die Formatierungsmöglichkeiten bei rtf sollten für meine Zwecke ausreichend sein.
    Trotzdem nochmals vielen Dank an alle.
    
    Winki
    - payx
      
      2013-04-17 11:30
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo Winki,
      
      ich sehe jetzt erst, dass das ja eins meiner Lieblingsthemen gewesen wäre.
      
      Falls es nicht zu spät ist, kannst Du Dir diesen Lösungsvorschlag mit OpenOffice::OODoc ansehen: msg #153305.
      
      Vorteil gegenüber Deiner Lösung dürfte sein, dass Du das Dokument mit Deiner Textverarbeitungssoftware als Template vorbereiten und formatieren kannst usw. Deine Daten kommen dann durch Ersetzung von Platzhaltern hinein oder sie können auch an bestimmte Stellen (sections) im Dokument geschrieben werden.
      
      Grüße
      payx
      
      Editiert von payx: Ergänzt: Vorteil...
      Last edited: 2013-04-17 11:33:13 +0200 (CEST)

View all threads created 2013-03-20 12:48.