AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Word-OLE: Makro im Dokument wird nicht gestartet

Word-OLE: Makro im Dokument wird nicht gestartet

Ein Thema von rdeutsch · begonnen am 5. Mai 2008 · letzter Beitrag vom 6. Mai 2008
Antwort Antwort
rdeutsch

Registriert seit: 24. Mär 2006
42 Beiträge
 
#1

Word-OLE: Makro im Dokument wird nicht gestartet

  Alt 5. Mai 2008, 15:59
Hallo

Mit folgendem Aufruf wird eine Wordvorlage geöffnet und mit Daten (ExpFilename) gefüllt. Soweit so gut.
Aber in der gleichen Vorlage ist auch ein Makro vorhanden, welches aus dem temporären Verzeichnis eine Bilddatei ins Dokument einfügt. Und hier liegt mein Problem: das Bild erscheint nicht im Dokument.
Es scheint, als ob dieses Makro nicht angekickt wird.

neuer Code:
Delphi-Quellcode:
try
  try
    aOLE := GetActiveOleObject('Word.Application');
  except
    aOLE := CreateOleObject('Word.Application');
  end;
  //aOLE.visible := True;
  aOLE.ScreenUpdating := False;
  aOLE.Documents.Open(OpenDialog.FileName);
  MyDoc := aOLE.ActiveDocument;
  aOLE.ActiveDocument.MailMerge.MainDocumentType := wdNotAMergeDocument;
  aOLE.ActiveDocument.MailMerge.OpenDataSource (ExpFilename, False, False, True);
  aOLE.ActiveDocument.MailMerge.EditMainDocument;
  aOLE.ActiveDocument.MailMerge.Execute;
  aOLE.visible := True;
  MyDoc.Activate;
  MyDoc.Close(0);
  aOLE.Application.ScreenUpdating := True;
  aOLE.Visible := True;
except
  MessageDlg('OLE Aktionen fehlerhaft.', mtInformation, [mbOK], 0);
end;

Mit diesem alten Code, welcher aber nicht mehr eingesetzt werden soll, funktioniert das ganze Spiel noch:

alter Code:
Delphi-Quellcode:
Word8Para.Merge.Vorlage := OpenDialog.FileName;
Word8Para.Merge.CSVFile := ExpFilename;
Word8Para.Merge.Ablage := '';
Word8Para.Merge.DoMischen := true;
Word8Para.Merge.DoDrucken := false;
Word8Para.Merge.Kopien := 1;
Word8Para.Merge.MergeMode := wdNotAMergeDocument;
Word8Para.Merge.VariFormat := wdOpenFormatText;
Word8Para.Merge.RTF_Mischen := false;
Hat jemand eine Idee, was da falsch laufen könnte, bzw. wo der Unterschied von Code alt zu Code neu ist?
Oder gibt es einen speziellen Parameter/Aufruf, mit dem Makros aktiviert werden können?

Danke für eure Hilfe und Grüsse
Robert
  Mit Zitat antworten Zitat
rdeutsch

Registriert seit: 24. Mär 2006
42 Beiträge
 
#2

Re: Word-OLE: Makro im Dokument wird nicht gestartet

  Alt 6. Mai 2008, 14:50
Hellau

Problem gelöst.

Das OLE-Dokument darf nicht mit Open, sondern muss mit Add erstellt werden. Dann werden auch allfällige Makros berücksichtigt.

Delphi-Quellcode:
try
  try
    aOLE := GetActiveOleObject('Word.Application');
  except
    aOLE := CreateOleObject('Word.Application');
  end;
  aOLE.ScreenUpdating := False;
  aOLE.Documents.Add(OpenDialog.FileName); // hier Add statt Open
  MyDoc := aOLE.ActiveDocument;
  aOLE.ActiveDocument.MailMerge.MainDocumentType := wdNotAMergeDocument;
  aOLE.ActiveDocument.MailMerge.OpenDataSource (ExpFilename, False, False, True);
  aOLE.ActiveDocument.MailMerge.EditMainDocument;
  aOLE.ActiveDocument.MailMerge.Execute;
  MyDoc.Activate;
  MyDoc.Close(0);
  aOLE.Application.ScreenUpdating := True;
  aOLE.Visible := True;
except
  MessageDlg('OLE Aktionen fehlerhaft.', mtInformation, [mbOK], 0);
  aOLE.Quit(0);
end;
Gruss Robert
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf