' **************************************************************
'  Modul:  mdlWord  Typ = Allgemeines Modul
' **************************************************************

Option Explicit
Dim oWord_App As Object, oDoc As Object, bWordVorhanden As Boolean
 
Private Function Word_Connect() As Boolean
 Word_Connect = True
 On Error GoTo OpenError
 Set oWord_App = GetObject(Class:="Word.Application") ' Gucken ob Word offen ist
 bWordVorhanden = True
 On Error GoTo 0 ' In Zukunft wieder in den Debugger laufen
 ' Hier bei Bedarf prüfen ob Word sichtbar ist
 Exit Function
 OpenError:      ' Word war nicht offen, also dann bitte öffnen
 On Error GoTo CreateError
 Set oWord_App = CreateObject(Class:="Word.Application")
 oWord_App.Visible = True ' Dies gegebenenfalls rausnehmen wenn man unsichtbar arbeiten will
 bWordVorhanden = False
 Resume Next
 Exit Function
 CreateError:
 'Word ist nicht vorhanden
 MsgBox "Kein Word vorhanden"
 Word_Connect = False
End Function
 
Private Sub Word_Disconnect()
 'gegebenenfalls die Objektvariablen wieder freigeben
 'Wir wollen ja keinen Verweis auf Word zurücklassen
 On Error Resume Next
 Set oDoc = Nothing
 Set oWord_App = Nothing
End Sub
 
Public Sub TestOhneVerweis()
 If Not Word_Connect Then Exit Sub 'Raus wenns brennt
 On Error GoTo Fehler
 With oWord_App
  .Documents.Add
  .Selection.Text = "He, dies funzt ja wirklich" & vbCrLf & vbCrLf & _
  "Jo is denn scho Weihnachten"
 End With
 Aufraeumen:
 '' #########################################
 '' Optionale Möglichkeit Word zu beenden, wenn wir es gestartet haben
 ''Hier muss man aber aufpassen, dass man vorher in Word aufgeräumt hat
 '' Also Dokumente geschlossen etc...
 ' If Not bWordVorhanden Then oWord_App.Quit
 ''############################################
 Word_Disconnect ' Nicht vergessen ;-) !!!!!!!!!!!!!!!!!!!!!!!!!
 Exit Sub
 Fehler:
 MsgBox Err.Description
 Resume Aufraeumen
End Sub