Announcement

**Andreas Kosch** · 07.06.2005, 06:34

Hallo,
das folgende Beispiel f�r das Auswerten von Word-Events greift auf die PIA (Primary Interop Assembly) von Word 2003 zur�ck. Wenn zum Zeitpunkt der Office 2003-Installation das .NET Framework 1.1 noch nicht installiert war oder das Office-Setup nur im Standard-Modus ausgef�hrt wurde, sind die PIA's f�r Office 2003 nicht registriert. Zur Installation der PIA's muss das Office 2003-Setup �ber die Systemsteuerung | Software im Wartungs-Modus erneut ausgef�hrt werden: Features hinzuf�gen oder entfernen | Checkbox Erweiterte Anpassung von Anwendungen ankreuzen | Option .NET-Programmierunterst�tzung ausw�hlen.
 
Im Projekt wird dann ein Verweis auf die Microsoft Word 11.0 Object Library (Registerseite COM) hinzugef�gt. Wenn die PIA von Word 2003 korrekt im System registriert ist, legt VS.NET dabei keine eigene Interop Assembly an, sondern bindet nur einen Verweis auf die bereits im GAC registrierte PIA von Word 2003 ein.
 
Das Auswerten des Quit-Events von Word sieht dann zum Beispiel so aus (�ber using Word2003 = Microsoft.Office.Interop.Word; wird ein Alias f�r das Application-Objekt von Word aktiviert, damit es an dieser Stelle zu keinen Kollisionen mit dem Application-Objekt von .NET kommt):
<code>
// using System.Runtime.InteropServices;
// using Word2003 = Microsoft.Office.Interop.Word;

private Word2003.Application aWordApp;
private Word2003.ApplicationEvents2_Event aEventIntf;
private string sDOT;
private string sDOC;

private void Form1_Load(object sender, System.EventArgs e)
{
sDOT = System.IO.Path.Combine(Application.StartupPath, "Word2003QuitEventDemo.dot");
sDOC = System.IO.Path.Combine(Application.StartupPath, "Ergebnis.doc");
}

private void ButtonStart_Click(object sender, System.EventArgs e)
{
aWordApp = new Word2003.ApplicationClass();
aWordApp.Visible = true;
aEventIntf = aWordApp as Word2003.ApplicationEvents2_Event;
// Ereignisbehandlung f�r das Quit-Event aktivieren
aEventIntf.Quit +=new Microsoft.Office.Interop.Word.ApplicationEvents2_Q uitEventHandler(aEventIntf_Quit);
ButtonStart.Enabled = false;
ButtonInsert.Enabled = true;
ButtonQuit.Enabled = true;
ListBoxLog.Items.Add("Word2003.Application erzeugt...");
}

private void aEventIntf_Quit()
{
ListBoxLog.Items.Add(" --> Quit-Ereignis von Word2003 eintroffen");
aWordApp = null;
ButtonStart.Enabled = true;
ButtonInsert.Enabled = false;
ButtonQuit.Enabled = false;
}

private void ButtonInsert_Click(object sender, System.EventArgs e)
{
// Neues Dokument von der DOT-Vorlage ableiten
Word2003.Documents aWordDocCol;
Word2003.Document aWordDoc;
aWordDocCol = aWordApp.Documents;
object Template = sDOT;
object NIL = Type.Missing;
aWordDoc = aWordDocCol.Add(ref Template, ref NIL, ref NIL, ref NIL);
//
// irgend was mit diesem Dokument machen...
//
MessageBox.Show("Der neue Text sollte nun im Dokument zu sehen sein!");
// Dokument speichern
object FileName = sDOC;
aWordDoc.SaveAs(ref FileName,ref NIL,ref NIL,ref NIL,ref NIL,
ref NIL,ref NIL,ref NIL,ref NIL,ref NIL,
ref NIL,ref NIL,ref NIL,ref NIL,ref NIL,ref NIL);
aWordDoc.Close(ref NIL, ref NIL, ref NIL);
// Aufr�umen
Marshal.ReleaseComObject(aWordDoc);
Marshal.ReleaseComObject(aWordDocCol);
}

private void ButtonQuit_Click(object sender, System.EventArgs e)
{
if (aWordApp != null)
{
aEventIntf.Quit -= new Microsoft.Office.Interop.Word.ApplicationEvents2_Q uitEventHandler(aEventIntf_Quit);
object NIL = Type.Missing;
aWordApp.Quit(ref NIL, ref NIL, ref NIL);
Marshal.ReleaseComObject(aWordApp);
aEventIntf = null;
aWordApp = null;
ButtonStart.Enabled = true;
ButtonInsert.Enabled = false;
ButtonQuit.Enabled = false;
ListBoxLog.Items.Add("... Word2003.Application zerst�rt.");
}
}
</code>
P.S: Bei der Automation ist der Aufwand mit C# sp�rbar h�her als das bei VB.NET der Fall ist

Announcement

Word Object Modell

Word Object Modell

Comment