GetObject ifb. med Word

jeg mener at xp kører med en anden editor end visual basic

Jeg har noget kode vi selv bruger her, prøv at få noget ud af det.Private Sub Form_Load()

Dim MyXL As Object
   
    Dim WordWasNotRunning As Boolean

    On Error Resume Next

\'    Set MyXL = GetObject(, \"Excel.Application\")
    Set MyXL = GetObject(, \"Word.Application\")
    If Err.Number <> 0 Then
    MsgBox \"Word.applikation kører ikke - NY åbnes\"
   
    Dim W As Word.Application
    Set W = New Word.Application
   
    W.Documents.Open \"C:\\test\\BD00.doc\"
    W.Visible = True
    W.Application.WindowState = wdWindowStateMaximize

     
    WordWasNotRunning = True
    Else
    MsgBox \"Word.applikation kører - YEES\"
   
    Word.Documents.Open \"C:\\test\\BD00.doc\"
   
    Word.Application.WindowState = wdWindowStateMaximize

    Set MyXL = Nothing
       
    WordWasNotRunning = False
    End If
    Err.Clear    \' Clear Err object in case error occurred.
   
End
End Sub

Tak for hjælpen, det hjalp mig på sporet af en løsning, som jeg kunne benytte i min sammenhæng.

Det tyder på, at Office97 har understøttet en udokumenteret funktionalitet på dette område, som er forsvundet i Office XP. Men med det skitserede løsningsforslag virker det igen, og det er jo hovedsagen. 

spip