OpenOffice.info

Hallo Hansi,

preklov war ja schon schneller, hier mein Denkanstoß (keine fertige Lösung), wenn die Inputbox sich wieder öffnen soll wenn nichts eingegeben musst du sie halt in eine Schleife setzten.
sub mest()
dim dummy()
odoc = thiscomponent
myString= "Speichern"
sTitel = "Nachfrage ...

Wo meldet man solche Fehler eigentlich am besten?

hier

Gruß

Hawk

Hallo Randor,

die Frage habe ich hier schon beantwortet

Gruß

Hawk

Wie man Fragen richtig stellt
guggst du hier

Gruß Hawk

Achtung :
Der Service DocumentInfo ist seit der Version 3 deprecated , d.h. der Code muss nicht mehr funktionieren: http://api.openoffice.org/docs/common/ref/com/sun/star/document/DocumentInfo.html
Danke für die Info :oops: hatte ich leider noch nicht bemerkt.
Hier nochmal der Code mit den neuen ...

Hallo der.milco

ich hatte dieses Problem schon vor Jahren :) noch unter OOo 2.02 so.
Unsere Lösung damals war folgende.

Sub Main
msgbox Urlpfad()
End Sub

'Funktion um den Pfad zur OrginalVorlage zu erhalten
Function getLoadedUrl(document As Object) As String
DIM result as String
DIM Args as ...

Also wenn ich das richtig verstehe 8) willst du deine eigene Funktion beim drücken auf's "X".
Das ist natürlich möglich wenn du den Dialog programmierst, wie folgender Code zeigt.

REM ***** BASIC *****

global EinstellungenDialog as object
global oWinListener
global oCB1Listener
global ...

Hallo,
wenn ich richtig mitgelesen habe, dann kann JavaScript die Funktion.
In diesem Thread http://www.oooforum.org/forum/viewtopic ... 4338#84338 wird erklärt wie man JavaScript Functionen aus Basic aufruft.
Ich hoffe das hilft.

Gruß

Hawk

Hallo sven-my

hatte in den letzten Tagen viel zu tun daher erst jetzt eine Antwort :?

Folgender Code funktioniert bei mir


REM ***** BASIC *****

sub SendMail

oDoc = ThisComponent
Title = oDoc.DocumentInfo.Title
oUrl = oDoc.Url
anha = left(right(oUrl,6),2)
ordner = "writer\"
msgbox anha
if ...

Hallo Christian,

folgender Code fügt dir den Inhalt der Zwischenablage in die aktuelle Zelle ein.
:wink: Habs einfach mit dem Makrorekorder aufgenommen.

sub Einfuegen()

dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher ...

Hallo Christian,
natürlich kann ich dir ein gutes OOo-Basic Nachschlagewerk empfehlen
Makros in OpenOffice.org – Basic/StarBasic
von unserem Forenmitglied Toxitom , ein wirklich sehr gutes Buch.
Wenn ich ein Basic Guru bin dann ist er ein Basic Gott.



Gruß

Hawk

Hallo Christian,
du musst deinem Search Descriptor beibringen, dass er nur nach ganzen Wörtern sucht wie z.B. mit folgendem Initialisierungscode.
Damit der Code ( der ja in einer eigenen Prozedur steht) funktioniert muss die Variable ( in dem Fall oSuche) global vereinbart sein (also vor dem ersten ...

Hallo sven-my,
das ist jetzt ein Fingerübung, das Ende des Absatzes erhälst du mit

myCursor.gotoEndOfParagraph(true)

hier nochmal der komplette Code nun wird nur der erste Absatz geholt das Übergeben der 2ten Textmarke kann hier entfallen.


Sub Main 'Aufrufende Function

textmarke1 ...

Hallo sven-my hallo liebe mitlesende Gemeinde,

weil's mich jetzt selber interessiert hat :?: hier der Code mit Textmarken die den Text nicht beinhalten sondern vor und hinter dem Text stehen, in der Art wie:
Textmarke1 Super toller genialer Text Textmarke2 hier kann natürlich weiterer Text stehen ...

Hallo sven-my,

wir sprechen schon über dasselbe 8)
Nur markiere mal deinen Text vorher und füge dann die Textmarke ein :idea:
Dann steht der Text in der Marke.
Alternative (allerdings etwas aufwendiger) wäre, wenn du deine Texte zwischen mehreren Textmarken stellen würdest.
Dann könntest du sie ...