Bin "Newbie" mit LO und stelle gerade meine Tabellen vom alten auf das neue Kalkulationsprogramm um...
Jetzt bitte lächeln: Ich arbeite tatsächlich noch immer mit MS Works 4.5 aus Win95, zwar mittlerweile auf XP aber es geht...
Mein neues System ist Win7/64 und LO in Version 4.3.0.4
Jetzt zum Problem:
LO wandelt ja wohl standardmässig <TAB's> aus der Zwischenablage in Leerzeichen um.
Dieses Verhalten lässt sich ja mit "Inhalte einfügen" gut vermeiden, allerdings muss man dann durch die aufklappenden Dialoge durchtickern, das behindert meine Arbeitsabläufe deutlich.
Daher suche ich eine Möglichkeit zum direkten Einfügen von 'Plain Text'.
Dieses und das OO-Forum habe ich so ziemlich durch, Tante Goo.. auch.
Das Vertauschen der Shortcuts zu 'Einfügen' und 'Inhalte einfügen' über 'Extras','Anpassen' hat mein Prob. zwar gelindert, aber die Dialoge bleiben..
Das kleine Programm PureText.exe ist auch ganz schön, aber der letzte Dialog 'Textimport' will weiter bedient werden.
Dann habe ich auf der Seite von Frieder Delor folgendes Makro entdeckt:
Code: Alles auswählen
REM ***** BASIC *****
Option Explicit 'Bewirkt, das man alle Variablen in diesem Modul Deklarieren Muss!!
sub clpboardTest
msgbox getClipboardText()
end sub
'--------------------------------------------------------
Function getClipboardText () AS String
dim oClip as object ,oConverter as object
dim oClipContents as object ,oTypes as object
dim i%
'Zugang zur Systhem-Zwischenablage
oClip = createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
'Ein Converter: convertiert verschiedene Variablen und Formate ineinander.
oConverter = createUnoService("com.sun.star.script.Converter")
On Error Resume Next 'Falls ein Fehler auftrit: Ignorieren.
'Den Inhalt der Zwischenablage holen(Bilder,Dateien,Text,.....):
oClipContents = oClip.getContents
'Auslesen was für Typen es momentan dadrin gibt(als Array)
oTypes = oClipContents.getTransferDataFlavors
For i=LBound(oTypes) To UBound(oTypes) 'Schleife vom Anfang des Array bis zum Ende
If oTypes(i).MimeType = "text/plain;charset=utf-16" Then 'Der Type, den wir wollen
'oClipContents.getTransferData(oTypes(i))=unkonventierter Text
'Text convertieren und der Funktion zuweisen:
getClipboardText = oConverter.convertToSimpleType _
(oClipContents.getTransferData(oTypes(i)), com.sun.star.uno.TypeClass.STRING)
Exit Function 'Funktion verlassen
End If
Next
End FunctionNebenbei, ich hab' von VBA und Makro-Programmierung null Ahnung und will es eigentlich auch mit meinen 53 Lenzen nicht mehr lernen müssen
Danke im Voraus für alle Hilfen
Gruss Alex
