Hallo Mechtilde, Hallo Jörg,
Habt Dank für die Reaktion:
> >>wahrscheinlich ist das der Fehler - jedoch ist dieser
> >>nicht im Einklang mit der Fehlermeldung 'Variable
> >>nicht definiert' (s.o.), einen anderen Fehler kann ich
> >>jedoch nicht erkennen und falls es doch um 'Variable
> >>nicht definiert' geht müßtest Du bitte den restlichen
> >>Code posten.
> >>
> >>
> >>
> >>Gruß
> >>Jörg
> >>
Freundliche Grüße
Manfred
Mein gesamter Code im Modul1 (Standard) sieht so aus
REM ***** BASIC *****
Sub Main
End Sub
sub Welle
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Underline.Underline"
args1(0).Value = 10
args1(1).Name = "Underline.HasColor"
args1(1).Value = false
args1(2).Name = "Underline.Color"
args1(2).Value = -1
dispatcher.executeDispatch(document, ".uno:Underline", "", 0, args1())
end sub
sub Spalte
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertColumns", "", 0,
Array())
rem
----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertColumnDialog", "",
0, Array())
end sub
sub Symbol
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(4) as new com.sun.star.beans.PropertyValue
args1(0).Name = "CharFontName.StyleName"
args1(0).Value = ""
args1(1).Name = "CharFontName.Pitch"
args1(1).Value = 2
args1(2).Name = "CharFontName.CharSet"
args1(2).Value = 10
args1(3).Name = "CharFontName.Family"
args1(3).Value = 3
args1(4).Name = "CharFontName.FamilyName"
args1(4).Value = "Symbol"
dispatcher.executeDispatch(document, ".uno:CharFontName", "", 0,
args1())
end sub
sub Haken
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Symbols"
args1(0).Value = "ü"
args1(1).Name = "FontName"
args1(1).Value = "Wingdings"
dispatcher.executeDispatch(document, ".uno:ResetAttributes", "", 0,
Array())
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0,
args1())
end sub
sub Pfeil
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Symbols"
args1(0).Value = "a"
args1(1).Name = "FontName"
args1(1).Value = "Wingdings 3"
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0,
args1())
end sub
sub Standardformuierung
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ResetAttributes", "", 0,
Array())
rem
----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Text"
args2(0).Value = "dsd"
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args2())
end sub
sub Tiefgestellt
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Escapement.Escapement"
args1(0).Value = -101
args1(1).Name = "Escapement.Height"
args1(1).Value = 71
args1(2).Name = "Escapement.Auto"
args1(2).Value = true
dispatcher.executeDispatch(document, ".uno:Escapement", "", 0, args1())
end sub
'sub Bewerbungsschreiben
rem
----------------------------------------------------------------------
rem define variables
'dim document as object
'dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
'document = ThisComponent.CurrentController.Frame
'dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
'dispatcher.executeDispatch(document, ".uno:NewDoc", "", 0, Array())
'GlobalScope.BasicLibraries.LoadLibrary("Tools")
'oDok =
StarDesktop.loadComponentFromURL(convertToUrl(Bewerbungsschreiben.odt),
"_blank", 0,
'Array())
'end sub
'sub BewerbungsschreibenLaden
'dispatcher.executeDispatch(document, ".uno:NewDoc", "", 0, Array())
'GlobalScope.BasicLibraries.LoadLibrary("Tools")
'oDok =_StarDesktop.loadComponentFromURL(convertToUrl("C:\Eigene
Dateien\info\Vorlagen\template\Bewerbungsschreiben.odt"),"_blank",
0,Array())
'end sub
option Explicit
Sub AbsatzUmbruchLoeschen
Dim oDoc as Object
Dim oSuchAusdruck as Object
Dim Zeichen as String
Dim Weiche as Integer
Dim Auswahl as String
oDoc = Thiscomponent
Auswahl = InputBox ("Leere Absatzumbrüche löschen?" & chr$(13)&
chr$(13)& "Ja=OK Nein=Abbrechen","K. Reiser","hier nichts eingeben")
If Auswahl = "hier nichts eingeben" Then
oSuchAusdruck = oDoc.createSearchDescriptor
oSuchAusdruck.searchString= "^$"
oSuchAusdruck.SearchRegularExpression = "true"
Weiche = 1
Zeichen = ""
ErsetzenNeu(oDoc,oSuchAusdruck,Zeichen,Weiche)
End If
Auswahl = InputBox ("Absatzumbrüche gegen Zeilenumbrüche
tauschen?" & chr$(13)& chr$(13)&"Ja=OK Nein=Abbrechen","K.
Reiser","hier nichts eingeben")
If Auswahl = "hier nichts eingeben" Then
oSuchAusdruck = oDoc.createSearchDescriptor
oSuchAusdruck.searchString= "$"
oSuchAusdruck.SearchRegularExpression = "true"
Weiche = 2
Zeichen = ""
ErsetzenNeu(oDoc,oSuchAusdruck,Zeichen,Weiche)
End If
Auswahl = InputBox ("Absatzumbrüche gegen Leerzeichen tauschen?"
& chr$(13)& chr$(13)& "Ja=OK Nein=Abbrechen ","K. Reiser","hier nichts
eingeben")
If Auswahl = "hier nichts eingeben" Then
oSuchAusdruck = oDoc.createSearchDescriptor
oSuchAusdruck.searchString= "$"
oSuchAusdruck.SearchRegularExpression = "true"
Weiche = 1
Zeichen = " "
ErsetzenNeu(oDoc,oSuchAusdruck,Zeichen,Weiche)
End If
End Sub
Sub ErsetzenNeu(oDoc,oSuchAusdruck,Zeichen,Weiche)
Dim oGefunden as object
Dim oTC as Object
oTC = oDoc.Text.createTextCursor()
oGefunden = oDoc.findFirst (oSuchAusdruck)
Do While not IsNull( oGefunden)
oTC.gotoRange(oGefunden, false)
Select Case Weiche
Case 1
oTC.string = Zeichen
Case 2
oDoc.Text.insertControlCharacter(oTC,com.sun.star.text.ControlCharacter.
LINE_BREAK, true)
End Select
oGefunden = ThisComponent.findNext(
oGefunden.End, oSuchAusdruck)
Loop
End Sub
Manfred Johannes Becker
(Diplom-Psychologe und Diplom-Pädagoge)
Falkenhausenweg 57a
122 49 Berlin
0157 7421 1250
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
