Hi mikeleb,
habe es jetzt nochmal Schritt für Schritt so gemacht wie Du geschrieben
hast - es scheint zu funktionieren. (Will diesmal nicht zu voreilig schreien...)
Weiss nicht, was ich dann die letzten Tage hier hin und her ausprobiert habe.
Ich werde das ein paar Tage beobachten und schauen, ob es noch Sonderfälle gibt.
Falls nicht, werde ich die Lösung dann hier reinstellen.
TAUSEND DANK - erstmal bis hierher!!!
"Spalten Formatieren mit Text in Spalten" - als Makro realisieren
Moderator: Moderatoren
Re: "Spalten Formatieren mit Text in Spalten" - als Makro realisieren
Wie verspochen nach einiger Testzeit hier das vorläufige Endergebnis:
Tausen Dank an die Geduld und Hilfe von mikeleb und Stephan!
- Es gibt keine Möglichkeit, den im Titel des Threads genannten Befehl
"Spalten Formatieren mit Text in Spalten" als Makro nachzubilden, um
alle Formate einer Spalte zu entfernen.
- Alternativ kann man reine Werte mit folgendem Makro aus einem mit <Strg> + <c>
kopierten Bereich an beliebiger Stelle einfügen. So werden die allermeisten
Formatierungen nicht mit kopiert.
Code: Alles auswählen
sub Werte_einfuegen
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags"
args1(0).Value = "SVD"
args1(1).Name = "FormulaCommand"
args1(1).Value = 0
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
args1(3).Name = "Transpose"
args1(3).Value = false
args1(4).Name = "AsLink"
args1(4).Value = false
args1(5).Name = "MoveMode"
args1(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args1())
ocell = ThisComponent.getCurrentSelection
osr=ocell.createReplaceDescriptor
osr.SearchRegularExpression=true
osr.searchstring="^(.*)$"
osr.replacestring="$1"
ocell.replaceAll(osr)
End sub 'Werte_einfuegen
Tausen Dank an die Geduld und Hilfe von mikeleb und Stephan!