Åbne Open Office writer dokument fra en VB app.

you can use code from this link if yoi are using VB6

http://www.mvps.org/access/api/api0018.htm

status please?

Hej Terry

Tak for din hjælp

Jeg har ikke haft tid til at se på det endnu - har været væk fra computeren et par dage, så det bliver først i morgen... men umiddelbart ser det ud til at kunne klar ærterne :)

Giver en melding så snart jeg har tid.

mvh Jeff

Det er i orden Jeff

Jeg har kigget lidt mere på det, og har lidt svært ved at finde ud af hvordan jeg "kører" funktionen.

Jeg har smidt api kaldet i et modul, men hvordan får jeg det eksekveret fra eks en cmd_button med den fil jeg ønsker at åbne?

mhv Jeff

Hi Jeff

This is what I use in a simple version. Its is actually taken from an Access application which is using VBA not VB6 buts its very similar so it should work.


In a module I have this code.

Public 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

Public Const SW_HIDE = 0
Public Const SW_SHOW = 5


Then in the code for a button on a form I have this. You can see there is alos a field on the form (Me.DocumentID).


Private Sub cmdViewDocument_Click()
Dim result As Integer
   
   
    On Error GoTo Err_cmdViewDocument_Click
   
    If Not IsNull(Me.DocumentID) Then
   
        result = ShellExecute(0, "Open", Me.DocumentName, "", Me.DocumentLink, SW_SHOW)

        If result < 32 Then
            msgBox "Couldn't open file ...", vbInformation
       
        End If
   
    End If
   
Exit_cmdViewDocument_Click:
    Exit Sub

Err_cmdViewDocument_Click:
    msgBox Err.Description
    Resume Exit_cmdViewDocument_Click

End Sub

The important part is this

result = ShellExecute(0, "Open", Me.DocumentName, "", Me.DocumentLink, SW_SHOW)


where Me.DocumentName is a field containing the fiel name you want to open

and Me.DocumentLink is the path to the file.

You can also put the path/filename in the 3rd paramater (the one with Me.DocumentName) as you can see in this link


http://www.vb-helper.com/howto_shellexecute.html

Thanks, hope you got somethng working.

Hi Terry

Thanks it was perfect..  exactly what I needed.

Jeff

super