<\/p>\n
Es kommt immer wieder vor, dass eine Anwendung entweder auf die Daten in Word- oder Excel-Dokumenten zugreift – entweder um ihre Inhalte zu lesen oder diese zu ändern. Normalerweise öffnen Sie das entsprechende Dokument dann entweder sichtbar oder unsichtbar und führen die gewünschten Aktionen durch. Wie wäre es, wenn Sie Word, Excel und Co. statt im eigenen Fenster direkt innerhalb eines Access-Formulars anzeigen könnten Dieser Beitrag stellt die dazu notwendigen Voraussetzungen und Techniken vor.<\/b><\/p>\n
Natürlich gibt es mit dem OLE-Objekt-Feld in Tabellen und dem Steuerelement Gebundenes Objektfeld <\/b>bereits eine Möglichkeit, Word-, Excel- und andere Office-Dokumente innerhalb eines Access-Dokuments anzuzeigen.<\/p>\n
Bild 1 zeigt, wie das etwa unter Access 2010 aussieht: Dort wird das Access-Ribbon komplett ausgeblendet und das Word-Ribbon aktiviert – mit Ausnahme des Datei-Registerreiters.<\/p>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic003.png\")
<\/p>\n
Bild 1: Bearbeiten eines im OLE-Steuerelement angezeigten Word-Dokuments innerhalb eines Access-Formulars<\/span><\/b><\/p>\n Es fällt jedoch sehr unangenehm auf, dass ein Hin- und Herschalten zwischen dem gebundenen Objektfeld und eventuellen weiteren Steuerelementen im Formular ein ständiges Flackern sowie das Ein- und Ausblenden des Menüs der jeweiligen Anwendung hervorruft.<\/p>\n Alternativ öffnen Sie das Office-Dokument direkt etwa in einem eigenen Word- oder Excel-Fenster. Hier ist jedoch viel Aufwand erforderlich, um die Benutzeraktionen in Zusammenhang mit dem jeweiligen Element zu steuern – der Benutzer kann das Dokument beispielsweise schließen oder speichern, auch wenn dies nicht gewünscht ist.<\/p>\n Das DSOFramer-Steuerelement<\/b><\/p>\n Grundlage für die in diesem Beitrag vorgestellten Techniken ist das ActiveX-Steuerelement DSOFramer_moss.ocx<\/b>.<\/p>\n Es handelt sich dabei um ein Beispiel von Microsoft zum Einbetten OLE-fähigen Anwendungen wie Word oder Excel. Die Original-Quellen von Microsoft, die offensichtlich nicht mehr verfügbar sind, wurden durch Sascha Trowitzsch angepasst und eingedeutscht.<\/p>\n Die im Download verfügbare Datei DSOFramer_moss.ocx <\/b>muss mit der folgenden Anweisung im System registriert werden:<\/p>\n Um das Steuerelement zu einem Formular hinzuzufügen, öffnen Sie das Formular in der Entwurfsansicht und zeigen den Dialog zum Einfügen von ActiveX-Steuerelementen an. Dort finden Sie nun auch einen Eintrag namens DSOFramer Control Object <\/b>(s. Bild 3 aus.<\/p>\n Bild 2: Einfügen des DSOFramer-Steuerelements<\/span><\/b><\/p>\n Bild 3: Ein mit dem DSOFramer-Steuerelement ausgestattetes Formular in der Entwurfsansicht<\/span><\/b><\/p>\n Beachten Sie, dass das DSOFramer<\/b>-Steuerelement lediglich den Rahmen für die Anzeige der Office-Dokumente liefert. Die Anwendungen selbst, also Word, Excel und Co., müssen ebenfalls auf dem betroffenen Rechner installiert sein.<\/p>\n Dokument öffnen<\/b><\/p>\n Als Erstes interessiert uns natürlich, wie wir ein Dokument in das DSOFramer<\/b>-Steuerelement laden und dieses somit anzeigen können.<\/p>\n Die einfachste Möglichkeit bietet die Benutzeroberfläche des Steuerelements: Hinter dem File<\/b>-Menü oben links verbergen sich nämlich die üblichen Datei-Befehle, darunter auch einer zum Öffnen eines Dokuments.<\/p>\n Aber Sie können ein Dokument natürlich auch unter Einsatz von VBA öffnen. Dies erledigt die Methode Open <\/b>des Objekts objDSOFramer<\/b>, die Sie beispielsweise so aufrufen:<\/p>\n Im Formular erscheint nun wie in Bild 4 das angegebene Dokument. Die Open<\/b>-Methode ermöglicht noch weitere Parameter, zum Beispiel diese:<\/p>\n Bild 4: Das DSOFramer-Steuerelement mit Word als Anwendung innerhalb eines Access-Formulars<\/span><\/b><\/p>\n Genau wie hier unter Office 2010 erscheinen auch unter älteren Versionen die Menüleisten\/Ribbons der jeweiligen Anwendung.<\/p>\n Allerdings sind einige Elemente nicht verfügbar: Hier unter Office 2010 fehlt beispielsweise der Registerreiter Datei<\/b>, der den Backstage-Bereich mit den Funktionen etwa zum Speichern oder Drucken des aktuellen Dokuments anzeigt.<\/p>\n Dafür liefert das DSOFramer<\/b>-Steuerelement ein eigenes Menü mit den entsprechenden Befehlen (s. Bild 5).<\/p>\n Bild 5: Dateimenü des DSOFramer-Steuerelements<\/span><\/b><\/p>\n Steuerelement referenzieren<\/b><\/p>\n Auch wenn sich die Eigenschaften und Methoden von ActiveX-Steuerelementen per direkter Referenz auf das Steuerelement (beispielsweise Me!ctlDSOFramer<\/b>) nutzen lassen, wollen wir dafür eine eigene Objektvariable deklarieren, die beim Öffnen des Formulars gefüllt wird.<\/p>\n Einer der Vorteile dieser Vorgehensweise ist, dass so alle Eigenschaften und Methoden des Objekts per IntelliSense verfügbar sind:<\/p>\n Das Schlüsselwort WithEvents <\/b>bewirkt, dass Sie für das neue Objekt objDSOFramer <\/b>Ereignisprozeduren anlegen können – dazu später mehr.<\/p>\n Anschließend hinterlegen Sie die folgende Prozedur für die Ereigniseigenschaft Beim Laden <\/b>des Formulars:<\/p>\n DSOFramer-Elemente ein- und ausblenden<\/b><\/p>\n Die beiden Leisten im oberen Bereich des DSOFramer<\/b>-Steuerelements benötigen Sie möglicherweise nicht für jeden Einsatzzweck.<\/p>\n Die Titelleiste mit dem Dateinamen blenden Sie mit der Eigenschaft TitleBar <\/b>ein und aus. Die folgende Anweisung lässt diese verschwinden:<\/p>\n Mit den beiden Eigenschaften TitlebarColor <\/b>und TitlebarTextColor <\/b>können Sie auch die Schrift- und Hintergrundfarbe der Titelleiste anpassen, hier etwa mit weißer Schrift und grauem Hintergrund:<\/p>\n Die Menüleiste blenden Sie mit der Eigenschaft MenuBar <\/b>ein und aus. Um diese auszuschalten, verwenden Sie beispielsweise die folgende Anweisung:<\/p>\n Schließlich können Sie auch die Anzeige der Menü-\/Ribbonleiste der angezeigten Anwendung beeinflussen. Dies erledigen Sie mit der entsprechenden Einstellung der Eigenschaft MenuBar<\/b>, hier etwa zum Ausblenden:<\/p>\n Wenn Sie alle drei Elemente ausblenden, zeigt das Formular nur noch das nackte Dokument an.<\/p>\n Elemente der Host-Anwendung wie etwa die Kontextmenüs sind jedoch nach wie vor verfügbar (s. Bild 6).<\/p>\n Bild 6: Dieses Access-Formular zeigt nur noch das reine Dokument an.<\/span><\/b><\/p>\n Aussehen des DSOFramer-Steuerelements<\/b><\/p>\n Es gibt noch ein paar Eigenschaften, mit denen Sie das Aussehen des Steuerelements beeinflussen können:<\/p>\n <\/p>\n DSOFramer-Menü einstellen<\/b><\/p>\n Auch das Aussehen des Menüs können Sie einstellen – zumindest, was das Aktivieren und Deaktivieren der Einträge angeht. Die notwendige Eigenschaft heißt EnableFileCommand <\/b>und erwartet einen Parameter und eine Wertzuweisung.<\/p>\n Mit dem Parameter Item <\/b>übergeben Sie eine Konstante, die dem Menüeintrag entspricht. Durch die Wertzuweisung übergeben Sie die Information, ob der mit dem Parameter angegebene Menüeintrag aktiviert oder deaktiviert werden soll. Es gibt die folgenden Konstanten:<\/p>\n Die folgende Anweisung deaktiviert beispielsweise den Eintrag zum Schließen des aktuellen Dokuments:<\/p>\n Dokumente im DSOFramer<\/b><\/p>\n Nachdem Sie erfahren haben, wie Sie den DSOFramer <\/b>an Ihre Bedürfnisse anpassen, schauen wir uns an, was Sie mit Dokumenten alles anstellen können.<\/p>\n Dads Sie Dokumente mit der Open<\/b>-Methode oder über das Dateimenü öffnen können, haben Sie bereits gelesen. <\/p>\n Eine weitere Methode, ein Dokument zu öffnen oder neu anzulegen, bietet der Befehl ShowDialog<\/b>. Dieser erwartet eine der folgenden Konstanten, die stellvertretend für den entsprechenden Dialogtyp stehen:<\/p>\n Bild 7: Auswählen des Typs eines neuen Dokuments<\/span><\/b><\/p>\n Bild 8: Dialog zum Einrichten einer zu druckenden Seite<\/span><\/b><\/p>\n Im Beispielformular frmDSOFramer <\/b>haben wir sieben Schaltflächen untergebracht, mit denen Sie die verschiedenen Dialoge aufrufen können (s. Bild 9).<\/p>\n Bild 9: Schaltflächen zum Aufrufen der Dialoge des DSOFramer-Steuerelements<\/span><\/b><\/p>\n Die Schaltflächen lösen jeweils fast identische Ereignisprozeduren aus. Für das Anlegen eines neuen Dokuments sieht das etwa so aus:<\/p>\n Fehlt noch ein Mechanismus, der die Schaltflächen aktiviert beziehungsweise deaktiviert. Einige Schaltflächen sollen nämlich nur verfügbar sein, wenn das DSOFramer<\/b>-Steuerelement ein Dokument anzeigt. Hier ist die Eigenschaft ActiveDocument <\/b>interessant, die einen Verweis auf das aktuelle Dokument zurückgibt.<\/p>\n Die folgende Prozedur fragt diese Eigenschaft ab und speichert das Ergebnis in der Variablen obj<\/b>. Da dies einen Fehler auslöst, wenn das DSOFramer<\/b>-Steuerelement gerade kein Dokument anzeigt, deaktiviert die Prozedur zuvor die Fehlerbehandlung und prüft nachher, ob ein Fehler ausgelöst wurde.<\/p>\n Falls ja, geht die Prozedur davon aus, dass der Fehler von einem nicht vorhandenen Dokument herrührt. In diesem Fall erhält die Variable bolEnabled <\/b>den Wert False<\/b>. Dieser Wert wird wiederum an die Enabled<\/b>-Eigenschaft der betroffenen Schaltflächen weitergegeben, um diese gegebenenfalls zu deaktivieren:<\/p>\n Damit die Schaltflächen zu jedem Zeitpunkt den richtigen Zustand aufweisen, platzieren Sie den Aufruf der Prozedur SchaltflaechenAktivieren <\/b>an verschiedenen Stellen. Die erste ist die Beim Laden<\/b>-Ereignisprozedur des Formulars, die weiteren Stellen sind die durch das DSOFramer<\/b>-Steuerelement ausgelösten Ereignisse – mehr dazu weiter unten.<\/p>\n DSO-Framer-Methoden<\/b><\/p>\n Die Funktionen, die durch die Einträge des File<\/b>-Menüs des DSOFramer<\/b>-Steuerelements aufgerufen werden, können Sie auch von entsprechenden VBA-Prozeduren aus aufrufen.<\/p>\n Es gibt jedoch noch mehr Methoden, unter anderem die folgenden:<\/p>\n DSOFramer-Ereignisse<\/b><\/p>\n Das DSOFramer<\/b>-Steuerelement bietet einige Ereignisse, die etwa beim Öffnen oder Schließen eines Dokuments ausgelöst werden.<\/p>\n Diese lassen sich beispielsweise prima nutzen, um die vom Vorhandensein eines Dokuments abhängigen Steuerelemente zu aktivieren oder zu deaktivieren. <\/p>\n Durch die Deklaration der Objektvariablen objDSOFramer <\/b>weiter oben mit dem Schlüsselwort WithEvents<\/b> können Sie im Codefenster des VBA-Editors erst im linken Kombinationsfeld das Objekt objDSOFramer <\/b>auswählen und dann im rechten Kombinationsfeld die verfügbaren Ereignisprozeduren (s. Bild 10).<\/p>\n Bild 10: Ein mit dem DSOFramer-Steuerelement ausgestattetes Formular in der Entwurfsansicht<\/span><\/b><\/p>\n Das Steuerelement liefert die folgenden Ereignisse:<\/p>\n änderungen in Dokumenten speichern<\/b><\/p>\n Wenn Sie ein Dokument im DSOFramer<\/b> öffnen und dieses später schließen, geschieht dies ohne Rückfrage. Sollten Sie also änderungen vorgenommen haben, verwirft das Steuerelement diese.<\/p>\n Es gibt jedoch die Eigenschaft IsDirty<\/b>, mit der Sie feststellen können, ob das Dokument seit dem Öffnen geändert wurde. Diese Eigenschaft können Sie an verschiedenen Stellen abfragen und entsprechend darauf reagieren.<\/p>\n Die richtige Ereignisprozedur für diesen Zweck heißt BeforeDocumentClose<\/b>. Wenn Sie diese wie in Listing 1<\/a><\/span> füllen, geschieht Folgendes: Zunächst schreibt die Prozedur den Wert von IsDirty <\/b>in die Eigenschaft bolDirty<\/b>.<\/p>\n Listing 1: Rückfrage, ob ein geändertes Dokument vor dem Schließen gespeichert werden soll<\/p>\n Hat diese den Wert False<\/b>, wurde das Dokument nicht geändert und kann direkt geschlossen werden. Anderenfalls fragt die Prozedur, ob die änderungen verworfen werden sollen. Falls ja, wird das Dokument ebenfalls direkt geschlossen.<\/p>\n Falls nicht, prüft die Prozedur noch, ob das Dokument bereits einen Namen hat und somit schon gespeichert wurde.<\/p>\n In diesem Fall überschreibt sie die gespeicherte Version mit der neuen Version, wobei sie die Save<\/b>-Methode verwendet, sonst wird der Datei speichern<\/b>-Dialog angezeigt.<\/p>\n Dokumentverweis beim Öffnen füllen<\/b><\/p>\n In der Regel werden Sie ein Office-Dokument im DSOFramer-Steuerelement öffnen, weil Sie dieses automatisiert bearbeiten oder auslesen möchten. In beiden Fällen empfiehlt es sich, gleich beim Öffnen des Dokuments eine entsprechende Objektvariable zu füllen.<\/p>\n Wir gehen an dieser Stelle davon aus, dass Sie innerhalb eines Formulars immer den gleichen Dokumenttyp öffnen werden, also beispielsweise immer Excel-Dokumente, um von dort Daten auszulesen oder zu schreiben, oder Word-Dokumente, um diese als Seriendruck-Dokumente vorzubereiten et cetera.<\/p>\nRegSvr32.exe <Dateipfad>.DSOFramer_moss.ocx<\/pre>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic001.png\")
<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic002.png\")
<\/p>\nMe!ctlDSOFramer.Open CurrentProject.Path & "\\test.docx"<\/pre>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic005.png\")
<\/p>\n\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic006.png\")
<\/p>\nDim WithEvents objDSOFramer As\r\nDSOFramer.FramerControl<\/pre>\n
Private Sub Form_Load()\r\n Set objDSOFramer = Me!ctlDSOFramer.Object\r\nEnd Sub<\/pre>\n
Me!ctlDSOFramer.Titlebar = False<\/pre>\n
With Me!ctlDSOFramer\r\n .TitlebarColor = &HCCCCCC\r\n .TitlebarTextColor = &HFFFFFF\r\nEnd With<\/pre>\n
Me!DSOFramer.MenuBar = False<\/pre>\n
Me!ctlDSOFramer.MenuBar = False<\/pre>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic007.png\")
<\/p>\n\n
\n
objDSOFramer.EnableFileCommand(dsoFileClose) = False<\/pre>\n
\n
![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic008.png\")
<\/p>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic009.png\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic010.png\")
<\/p>\nPrivate Sub cmdDateiNeu_Click()\r\n objDSOFramer.ShowDialog dsoDialogNew\r\nEnd Sub<\/pre>\n
Private Sub SchaltflaechenAktivieren()\r\n Dim bolEnabled As Boolean\r\n Dim obj As Object\r\n On Error Resume Next\r\n Set obj = objDSOFramer.ActiveDocument\r\n bolEnabled = Err.Number = 0\r\n On Error GoTo 0\r\n Me!cmdDateiSpeichern.Enabled = bolEnabled\r\n Me!cmdDrucken.Enabled = bolEnabled\r\n Me!cmdEigenschaften.Enabled = bolEnabled\r\n Me!cmdKopieSpeichern.Enabled = bolEnabled\r\n Me!cmdSeiteEinrichten.Enabled = bolEnabled\r\nEnd Sub<\/pre>\n
\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2011_02\/DSOFramer-web-images\/pic004.png\")
<\/p>\n\n
Private Sub objDSOFramer_BeforeDocumentClosed(ByVal Document As Object, Cancel As Boolean)\r\n Dim bolDirty As Boolean\r\n bolDirty = objDSOFramer.IsDirty\r\n Do While bolDirty = True\r\n If MsgBox("änderungen verwerfen", vbYesNo) = vbNo Then\r\n If Len(objDSOFramer.DocumentFullName) = 0 Then\r\n objDSOFramer.ShowDialog dsoDialogSave\r\n Else\r\n objDSOFramer.Save objDSOFramer.DocumentFullName, True\r\n End If\r\n bolDirty = objDSOFramer.IsDirty\r\n Else\r\n bolDirty = False\r\n End If\r\n Loop\r\nEnd Sub<\/pre>\n