Ich habe ein Problem (VBA)?

Question

ziel des ganzen ist ich möchte mit der portablen version von open office ein dokument öffnen und bei folgendem code öffnet er mirr zwar das program aber nicht das dokument kann mir jemand sagen wieso das nicht geht und was ich ändern muss

Private Sub lebenslauf_Click()
On Error GoTo Err_lebenslauf_Click


Dim pfad As String

pfad = Application.CurrentProject.Pathpfad = Left(pfad, 2)

Dim oApp As Object
    Dim stAppName As String

stAppName = pfad & "&#92;bewerbungen&#92;oop&#92;OpenOfficeorgPortable&#92;OpenOfficeWriterPortable.exe"-o k:&#92;bewerbungen&#92;oop&#92;Dokumente&#92;lebenslauf&#92;lebenslauf.ott"

Call Shell(stAppName, 1)

Exit_lebenslauf_Click:
    Exit Sub

Err_lebenslauf_Click:
    MsgBox Err.Description
    Resume Exit_lebenslauf_Click
    
End Sub

Danke

Anonym · Accepted Answer

Ich würde als erstes die Applikation (in diesem fall Word) als Konstante festlegen 
Private Sub lebenlsauf_Click()
On Error GoTo Err_lebenslauf_Click

Const AppName = "c:&#92;Programme&#92;Microsoft Office&#92;OFFICE10&#92;WINWORD.EXE"

Dim Laufwerk As String
Dim pfad As String

Laufwerk = Left(Application.CurrentProject.Path, 2)
pfad = Laufwerk & "&#92;bewerbungen&#92;oop&#92;OpenOfficeorg&#92;lebenslauf.doc"

Call Shell(AppName & " " & pfad, 1)

somit rufst du das Programm auf und übergibst dem Programm das Dokument als Parameter. Das sollte dann besser klappen ;)

Eventuell musst du die Syntax nochmal checken, ich hab leider kein OpenOffice da und habs in Visual Basic gemacht

Gruß
spirix

Anonym · Answer

Versuch mal damit:

CreateObject("word.application").documents.Open("c:&#92;test.doc").Application.Visible = True

Zusatz: Wird nicht komplett angezeigt, daher teile ich das auf

CreateObject(
"word.application").
documents.Open("c:&#92;test.doc").
Application.Visible = True

Ich habe ein Problem (VBA)?

2 Antworten