Kører word ??

Prøv noget i retning af:

Set wordApp = GetObject( , \"Word.Application\" )
if wordApp = Nothing then
  \' Word er ikke startet
else
  \' Word findes allerede
end if

Det kan være, at der er et par syntaktiske variationer omkring \'GetObject\' kaldet.

Ja, man skal vel først dimme wordapp som et eller andet før GetObjekt virker ??

Dim wordApp as Variant
eller
Dim wordApp as Object
eller
Dim wordApp as Word.Application

Jeg har forsøgt mig med ovennævnte. Den laver fejl ved Nothing. systemet skriver \"Invalid use of object\"

Ups - prøv at skrive

if wordApp Is Nothing then

altså Is i stedet for =

Jeg er ked af at skulle fortælle, at den nu kommer med fejlen:

\"ActiveX Component Can´t Create Object\".

Jeg har forsøgt at dimme med de 3 ovennævnte. Den kommer med samme fejl.

Hej webcon

Her er en stumb kode som jeg lige har testet.. og det virker på en vb 6.0 - oprindeligt var det til test at excel.

    Dim MyXL As Object    \' Variable to hold reference
    \' to Microsoft Excel.
    Dim ExcelWasNotRunning As Boolean    \' Flag for final release.

\' Test to see if there is a copy of Microsoft Excel already running.
    On Error Resume Next    \' Defer error trapping.
\' Getobject function called without the first argument returns a
\' reference to an instance of the application. If the application isn\'t
\' running, an error occurs.
\'    Set MyXL = GetObject(, \"Excel.Application\")
    Set MyXL = GetObject(, \"Word.Application\")
    If Err.Number <> 0 Then ExcelWasNotRunning = True
    Err.Clear    \' Clear Err object in case error occurred.


/wilco

Tak wilco, det kører perfekt.
/webcon

Jespernaur får lige 5 point. Han var inde på noget af det rigtige, bortset fra at det ikke virkede, tak.