OpenOffice.info

Hallo,

ich glaub ich hab mich vergallopiert und letztlich hängt es nur an einer Kleinigkeit wieso das Speichern nicht mehr funktioniert.

Sub Save_as_ODT

Dim antwort
Dim speichern
Dim pages
oform = thisComponent.drawpage.forms.getbyindex(0)
aNum = oForm.getByName("txt_oKey")
pages = thiscomponent ...

Hi,

mit OO war objektorientiert gemeint ...

Was die Folgeseiten betriftt: es handelt sich hierbei um einenständige Formulare, die ich via Makro jeweils am Hauptdokument anfüge.
Nun möchte ich, ausgehend vom Hauptdokument, überprüfen ob und welche dieser Unterformulare angehängt wurden und diese ...

Hallo Stephan,

Danke für den Tipp: <Modulname>.<Makroname>, z.B. auftrag.clearForm
Mir war nicht klar, daß auch hier OO gegeben ist.
Wie kann ich abfragen ob eine der Folgeseiten "subform_TT" bzw "subform_VT" heißt und beziehe ich mich dann auf alle Seiten die den jeweiligen Namen tragen egal an ...

Hallo,

ist es möglich, und wenn ja wie, in ein anderes Modul zu springen wenn eine Bedingung erfüllt ist?
Ich habe eine Hauptform mit den grundlegenden Funktionen im Modul "Auftrag".
Beim Speichern (ausgehend vom Modul "Auftrag") soll nun geprüft werden, ob Unterformulare hinzu gefügt wurden und ...

Hallo Stephan,

hab's nun so gelöst - und es funktioniert :)

Sub Save_as_ODT
Dim Speichern
Dim pages

pages=thiscomponent.CurrentController.PageCount

if thisComponent.title = "Auftrag_Form1.odt" then
proofAllOptGrp1
else
proofAllOptGrp2
end if

if iError > 0 then
MsgBox "Sie haben noch ...

Hallo,

@ Stephan: daran hatte ich auch gedacht, aber dann ändert sich auch für A der Dateiname. Der müßte aber zwingend bei Auftrag ... bleiben.
@ Rocko: Tut mir leid - es lag nicht in meiner Absicht, dich zu brüskieren. Zum einen hat ich das das ursächliche Problem, dank deines Hinweises gelöst ...

Hallo,

bin zwar auch nicht gerade der Crack, aber ich denke es sollte so funktionieren:
Zunächst ermitteltst du mit thisComponent.title den aktuellen Namen der Datei.

Das speichern als PDF sollte dann so funktionieren:

datname = thisComponent.title
path = "X:/Verzeichnis/PDF/"
extension = ".pdf ...

Hallo,

bei Abspeichern eines Writerformulars muß ich die Unterscheidung treffen wer es gerade geöffnet hat und mit entsprechenden Hinweisen das Speichern verbieten bis alle "Fehlerquellen" beseitigt wurden.
Prinzipiell funktioniert das alles auch bis zu dem Punkt an dem die Datei, die dann einen ...

Danke für die Info ... hab an diese Quelle nicht mehr gedacht.
Außendem ist mein Browserlink wohl auf Writer gesetzt - da hab ich mich auch noch in der Hausnummer geirrt ;-)
Dennoch konnte ich es genau so wie dort beschrieben lösen - Info aus einem Thread aus 2006 (http://de.openoffice.info ...

Moin,

wie kann ich mit einem Makro die Anzahl der Seiten des Dokumentes ermitteln?


Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst

Basicfehler: unerwartetes End Sub :?
Das Gesamtwerk - Speichern "Sub Save_as_ODT" im letzten Viertel

' Database
Dim oContext As Object, oDB As Object, oConnection As Object, oQueryRes As Object
Dim DBName$, SQL$
Dim vStatement

' FormObjects
Dim oForm As Object
Dim aField(16), aText(83), aOrder(23 ...

auch gut. Und wie mache ich so ein "Reload"?

Hallo DPunch,

ich dachte eher an einen Eingangsdialog o.ä. 2 Buttons - einmal "Verwaltung, einmal "Technik". Analog der Auswahl müßten sich dann die Funktionen ändern die zur Verfügung stehen. Nachdem ich auch in der Programmoberfläche von Writer ein paar Buttons hinzu gefügt und mit den Funktionen ...

Hallo,

ist es und wenn ja wie möglich das Ausführen v. Makros innerhalb der selben Datei je nach Benutzer zu steuern?
Ich habe, man glaubt es kaum :) , ein Formular, daß von A vorbearbeitet und von B nachbearbeitet wird.
Nun sind die Anforderungen von A und B so unterschiedlich, daß ich beim ...

Moinsen,

leider bekomme ich es mit dem Beispiel http://de.openoffice.info/viewtopic.php?f=18&t=24218 doch nicht so hin wie ich's mir so einfach gedacht hab.
Wahrscheinlich auch deswegen, weil ich noch eine Menge notwendiger Bedingungen drin habe. Mal wir am endif rumgemeckert oder die Loop while ...