OpenOffice.info

Danke für Deine Antwort! Ich werde mir mal überlegen, ob es dann überhaupt Sinn hat, von Word auf den Writer zu wechseln...

Gruß

Bodde

Hey Bodde,

[quote="Bodde"]..das Access nicht wirklich mit dem OpenOfficeWriter zusammen arbeiten kann....[/quote]

na ja, so nicht :-)

OpenOffice.org versteht natürlich kein VBA - und auch das Objektmodell ist grundverschieden. OpenOffice.org benutzt UNO-Objekte für das Ansteuern der eigenen Strukturen, MS Com- bzw. Net Objekte. Das sind zwei völlig verschiedene Welten!

Deine Aufgabenstellung wäre schon zu lösen - es gibt eine "bridge" zu VB, das heisst, du könntest UNO-Objekte durchaus aus VB ansteuern - nur das ist nicht ganz so einfach. Es gibt im Forum schon ein paar Posts für die VB Bridge - nutz mal die Suchfunktion nach VB, VisuaBasic oder so - aber bis du Textfelder in OOo ansteuern kannst, solltest du mit einfacheren Übungen beginnen.

Ich programmiere leider kein VB - und kenne die Bridge nicht. Für OOo Basic aber könnte ich dir Hinweise geben - nur funkionieren diese Befehle dann nur in der OOo Umgebung - du kannst also nicht die Felder in Access ansteuern.

Viele Grüße
Thomas

Private Sub Befehl1_Click()
On Error GoTo Err_Befehl1_Click

Dim Programm As String
Dim Pfad As String
Dim OOObject As Object


'Programm = "C:\Programme\OpenOffice.org 2.3\program\swriter.exe"
'Dateioeffnen "open", Programm, SW_MAXIMIZE
Pfad = Me!Text4
Dateioeffnen "open", Pfad, SW_MAXIMIZE


Set OOObject = GetObject(Me!Text4)
With OOObject
    .selection.Goto What:=wdGoToBookmark, Name:="Test"     <---- das ist die Textmarke in dem Dokument
    .selection.TypeText Text:=Me!Text6                 <---- Textfeld mit dem Inhalt ("Test") der übergeben werden soll
End With
    
Set OOObject = Nothing

Exit_Befehl1_Click:
    Exit Sub

Err_Befehl1_Click:
    MsgBox Err.Description
    Resume Exit_Befehl1_Click
    

End Sub

Also, ich habe ein Formular in einer Access-Datenbank. Dort gibt es ein Textfeld und ein Button. Ich schreibe "Test" in das Textfeld und drücke auf den Button. Nun öffnet sich das Dokument, aber leider wurde nicht mein Text ("Test") in die Textmarke geschrieben...

Hier mal ein Teil von meinem Code: [code]Private Sub Befehl1_Click()
On Error GoTo Err_Befehl1_Click

Dim Programm As String
Dim Pfad As String
Dim OOObject As Object


'Programm = "C:\Programme\OpenOffice.org 2.3\program\swriter.exe"
'Dateioeffnen "open", Programm, SW_MAXIMIZE
Pfad = Me!Text4
Dateioeffnen "open", Pfad, SW_MAXIMIZE


Set OOObject = GetObject(Me!Text4)
With OOObject
.selection.Goto What:=wdGoToBookmark, Name:="Test" <---- das ist die Textmarke in dem Dokument
.selection.TypeText Text:=Me!Text6 <---- Textfeld mit dem Inhalt ("Test") der übergeben werden soll
End With

Set OOObject = Nothing

Exit_Befehl1_Click:
Exit Sub

Err_Befehl1_Click:
MsgBox Err.Description
Resume Exit_Befehl1_Click


End Sub[/code]

So wenn ich jetzt auf mein Button klicke, kommt eine Meldung: "Objekterstellung durch ActiveX-Komponente nicht möglich"
Aber das Dokument wird trotzdem geöffnet... Also glaube ich, das Access nicht wirklich mit dem OpenOfficeWriter zusammen arbeiten kann....
Wie siehst Du das?

Gruß

Bodde

Hey Bodde,

[quote="Bodde"]...schreibt aber nix rein... [/quote]

Ja, was soll er denn reinschreiben? Vielleicht stehe ich auf dem "Schlauch" aber bitte erläutere doch mal genauer, was du denn genau vorhast.
Zunächst ging es um das Öffnen eines Writerdokumentes - das klappt ja offensichtlich.

Gruss
Thomas

Danke für Deine Antwort...

Also kann ein Writer-Dokument öffnen... Allerdings muss ich mit dem Writer mehrere WordVorlagen öffnen, in denen einige Textmarken drin sind! Und da komme ich einfach nicht weiter. Er öffnet zwar die gewünschte Vorlage, aber er schreibt mir einfach nix in die Textmarke! Hab dann mal ein eigenes WriterDokument mit einer Textmarke drin erstellt! Er öffnet das Dokument, schreibt aber nix rein... So langsam gehen mir die Ideen aus! Hab auch mal dem Administrator von hier gemailt, bekomme aber leider keine Antwort.

Gruß

Bodde

Hey Bodde,

wirst du hier wenig Glück haben - ich denke, mit VBA in der Teife kennt sich hier niemand aus.

Wahrscheinlich: Nutze den Shellbefehl (den gibt es sicher auch in VBA) und rufe swriter.exe auf - dadurch öffnet sich ein neues Writerdokument. Willst du ein spezielles haben, kannst du das als Parameter übergeben :-)

Gruss
Thomas

Hallo zusammen...

ich möchte gerne aus meiner Access-Datenbank ein neues Textdokument öffnen, allerdings nicht Word sondern den Writer von Openoffice... nur leider kenne ich den VB-Befehl dafür nicht! Kann mir bitte jemand dabei helfen??

Gruß

Bodde