Afslut Excel og kald Word

Dette skulle vist kunne gøre det:

Shell \"C:\\Dokumenter\\MinFil.doc\", 1
Application.Quit

Jå vidt jeg kan konstaterer så virker forslaget kun hvis det er en application man kalder (f.eks. notepad.exe, men det er det navngivne word dokument jeg gerne vil åbne (MitDok.doc)

prøv denne her, men vær opmærksom på at i VBA-editor under TOOLS/REFERENCES skal du have sat flueben i Microsoft Word obejct library:Sub RunningWord()
Dim appWD As Word.Application
Set appWD = CreateObject(\"Word.Application\")
appWD.Visible = True
appWD.Documents.Open \"c:\\minfil.doc\"
Application.Quit
End Sub

Hej Bak
Jeg har forsøgt men fik følgen compileringsfejl i Dim sætningen
User-defind type not defined.
Yderliger kan har jeg ikke und TOOL/REFERENCES det Word objedt library:sub runningWord() du referer til. Kan det være fordi jeg kører excel200??

Du skal have reference til \"Microsoft Word 9.0 Object Libray\" - det får du via Tools/References inde i VBA editoren, så virker det fint:

Sub RunningWord()
Dim appWD As Word.Application
    Set appWD = CreateObject(\"Word.Application\")
    appWD.Visible = True
    appWD.Documents.Open \"c:\\minfil.doc\"
    Application.Quit
End Sub

Hov - ovenstående skulle have været en Kommentar.

Ja, beklager. Jeg havde lige et uheld med linieskiftet. Det er helt korrekt som Flemming skriver.

bak lav lige et svar - det er dine point

OK og tak
Grunden til at jeg ikke skrev 9.0, var at jeg ikke kendte den aktuelle version af Word

En ganske simpel løsning er at erklære et simpelt API kald, og bruge det til at starte word med.

Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Sub runningWord()
        ShellExecute hwnd, vbNullString, \"minfil.doc\", vbNullString, \"C:\\\", SW_SHOWNORMAL
End Sub

Denne kode finder selv alle referencer og finder selv ud af hvilken version af word der ligger på systemet.

kedde

FirstChoise > er opgaven løst??