Seite 1 von 1
Formatierung von Anstrichen(Aufzählung) ...
Verfasst: Sa, 26.03.2005 19:21
von 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
Verfasst: Sa, 26.03.2005 21:58
von 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
Verfasst: So, 27.03.2005 04:54
von 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?
Verfasst: So, 27.03.2005 12:10
von 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.
Verfasst: So, 27.03.2005 15:50
von 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 ...