"Spalten Formatieren mit Text in Spalten" - als Makro realisieren

[FraWie]

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

[FraWie]

Wie verspochen nach einiger Testzeit hier das vorläufige Endergebnis:

• 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!