Dim objWDApp As Object
        Dim objWDDoc As Object
 
        objWDApp = CreateObject("Word.Application")
        With objWDApp
            .Visible = True
            .Activate()
            .WindowState = 0
        End With
 
        objWDDoc = objWDApp.Documents.Add
        MsgBox("Dokument erstellt! Und das Ganze mit Latebinding..." & vbCrLf & _
          "Soll heißen: Es müssen keine Office-Dateien weitergegeben" & _
          "werden...", vbMsgBoxSetForeground)
 
        With objWDDoc
            .Saved = True
        End With
        objWDDoc = Nothing
        objWDApp = Nothing

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1

Beitrag wurde zuletzt am 06.01.10 um 00:05:40 editiert.