Formatierung von Anstrichen(Aufzählung) ...

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Formatierung von Anstrichen(Aufzählung) ...

von ooAlbert » So, 27.03.2005 15:50

nagut da werd ich den term einfach löschen udn durch einen neuen ersetzen :) bleibt mir ja nichts anderes übrig ... dann sollte das wohl funktionieren oder ich kopier gleichd en ganzen inhalt in ein ganz neues oo-dokument ...

von MrSpock » So, 27.03.2005 12:10

Hallo ooAlbert,

ja, ich vermute, dass es ein Problem bei der Umwandlung aus dem Wordformat ist. Wenn du das oben beschriebene mit einem OO Writer Dokument machst, funktioniert es einwandfrei. Du kannst auch das folgende Macro benutzen (im habe ihm z.B. die Tastenkombination Umschalt+Str+U zugewiesen):

Code: Alles auswählen

sub Unterstreichen
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:GoToStartOfLine", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Text"
args2(0).Value = " "

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:EndOfLineSel", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(2) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Underline.Underline"
args4(0).Value = 1
args4(1).Name = "Underline.HasColor"
args4(1).Value = false
args4(2).Name = "Underline.Color"
args4(2).Value = -1

dispatcher.executeDispatch(document, ".uno:Underline", "", 0, args4())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToStartOfLine", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array())


end sub
Damit bekommst du einen unterstrichenen Eintrag in der Aufzählunsliste, ohne, dass das Zeichen selbst unterstrichen ist.

von ooAlbert » So, 27.03.2005 04:54

naja das hab ich schon probiert aber irgendwie hat ich nach ner weile den unterstrich wieder im anstrich :) komische sache das oder kann das daran liegen das es ein word imort war?

von MrSpock » Sa, 26.03.2005 21:58

Hallo Namensvetter :) ,

setzte als erstes Zeichen in der Zeile, die unterstrichen werden soll, ein Leerzeichen, unterstreiche den Eintrag (ohne das Leerzeichen) und lösche das Leerzeichen anschließend.

Mfg

Albert

Formatierung von Anstrichen(Aufzählung) ...

von ooAlbert » Sa, 26.03.2005 19:21

Hallo,

ich hab ein Problemchen mit der Textformatierung genauergesagt hab ich eine automatische aufzählung, also anstriche die mir das OO halt grau unterlegt und wenn ich jetzt direkt danach ein wort schreibe udnd as unterstreichen lasse wird auch der anstrich also das graue kästchen mit unterstrichen...

kann man das irgendwei verhindern?

mfg

Nach oben