Formatierung von Anstrichen(Aufzählung) ...

[ooAlbert]

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

[MrSpock]

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

[ooAlbert]

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?

[MrSpock]

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.

[ooAlbert]

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 ...