"Speichern unter" Dialog per Makro OOo1.0.1

[Bianca7]

HI
weiß jemand wie man mit mit OOo 1.0.1 einen "Speichern unter" Dialog aufruft oder zumindest wie man ein Dokument per Makro speichert ??


Bianca7

[Bianca7]

HaHa

habe entlich raus wie es funzt.
Also wen es interessiert aufgepasst!!!

Nun der Code:

Sub Main

Dim sTargetPath as String
Dim TypeNames(0,2) as String
Dim oMasterKey as Object
Dim oTypes() as Object
Dim sName as String

     oMasterKey = GetRegistryKeyContent("org.openoffice.Office.TypeDetection/")
     oTypes() = oMasterKey.Types
     TypeNames(0,0) = oTypes.GetByName("writer_StarOffice_XML_Writer").UIName
     TypeNames(0,1) = "*.sxw"
     TypeNames(0,2) = ""
REM sName = "Test"      REM Dateiname
     sTargetPath = StoreDocument(oDocument, TypeNames(), sName & ".sxw", WorkPath, 1)
     If sTargetPath <> "" Then
           DlgFormDB.EndExecute()
     End if

End Sub

Viel Spaß damit

Bianca7

[Bernd999]

Hallo Bianca,
ich bin neu bei OpenOffice und komme mit der Programmierung noch nicht so ganz klar. Ich habe bisher Excel und Access sowie Delphi udn VisualBasic programmiert, aber bei OpenOffice fehlt mir bisher irgendwie der Befehlssatz. Welcher Programmiersprache ist OpenOffice eigentlich ähnlich? Wie kommst du zu deinen Befehlen? Kannst du mir vielleicht ein paar Einsteigertipps oder Web-Links geben?

Gruß
Bernd

[Bianca7]

Hi Bernd,
diesem Code bin ich gekommen in dem ich mir mal die mitgelieferten Makros von OOo angeschaut habe.

Dass mit den Einsteigertips is'n bissel schwierig nach denen suche ich auch noch vergebens.

Die Programmiersprache die bei OOo verwendet wird heist Starbasic.

Bianca7