Tipp 9.2 - Word mit Dokument öffnen

Wie kann ich Word mit einem Dokument öffnen?

Mit dieser Funktion können Sie Word mit einem Dokument öffnen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function WordOpenDocument( _
                sOpenFile As String) As Boolean
  '// -----------------------------------------------------
  '// Methode:   | Öffnet Word mit e. bestimmten Dokument
  '// -----------------------------------------------------
  '// Parameter: | sOpenFile - gültiger Pfad zum Dokument
  '// -----------------------------------------------------
  '// Rückgabe:  | True bei Erfolg
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  On Error Resume Next
  Dim objWord As Object
  Set objWord = GetObject(, "Word.Basic")
  If Err.Number <> 0 Then
    Err.Clear
    Set objWord = GetObject("", "Word.Basic")
    If Err.Number <> 0 Then
      On Error GoTo NoWordFound
      Err.Clear
      Set objWord = CreateObject("Word.Basic")
    End If
  End If
  If Not objWord Is Nothing Then
    objWord.FileOpen sOpenFile
    objWord.AppRestore
    objWord.AppShow
    WordOpenDocument = True
  End If
ExitMethod:
  Err.Clear
  Exit Function
 
NoWordFound:
  Resume ExitMethod
 
End Function


Zurück Tipp 9.1 - Excel Datei erstellen | Inhalt | Tipp 9.3 - Word zum Drucken öffnen Weiter