Re: [de-users] Re: Makro: Nur Inhalt einfuegen, ohne Umbrueche

Hallo Frieder,

Vorschlag: stell doch bitte Dein Makro ins Wiki. Falls ich am 
Erklärungstext meine etwas verbessern zu müssen, werde ich dies machen. 
Oder soll ich das machen?

Gruß

Jochen


Am 31.12.2011 15:08, schrieb Frieder:
> Am 31.12.2011 14:09, schrieb Andreas Borutta:
> > Franklin Schiftan schrieb:
> >
> > > Hallo Andreas,
> > >
> > > am 31.12.2011 um 12:57 Uhr schriebst du:
> > >
> > > > Es geht um das Einfügen von Inhalten aus der Zwischenablage.
> > > >
> > > > Der kopierte Inhalt enthält Zeilenumbrüche, die man im Zieldokument
> > > > nicht benötigt.
> > > > Und der kopierte Inhalt enthält Formatierung, die beim normalen
> > > > Einfügen von LO interpretiert werden, jedoch unerwünscht sind. Es soll
> > > > reiner Text eingefügt werden.
> > > > Kennt jemand dafür Makro oder sonst eine Beschleunigung/Vereinfachung?
> > > Was hältst du davon, auf den Abwärtspfeil des Einfügen-Buttons zu
> > > klicken und im dann aufgehenden Menü 'unformatierter Text' auszuwählen?
> > Hab' ich doch. :)
> > Siehe Ausgangsposting.
> > Zweimal Pfeiltaste drücken wählt "Unformatierter Text" aus.
> > Hätte ich besser reinschreiben sollen.
> >
> > Aber schon diese Anzahl an Schritten ist mir hoch.
> > Ein einziger Schritt soll es sein.
> > So wie STRG+C.
> >
> > Und wie ich geschrieben habe, werden beim "Einfügen als unformatierter
> > Text" sämtliche Absätze eingefügt.
> >
> >
> > Andreas
> Hallo Andreas
>
> hier ist ein Makro von mir, mit dem du den Text aus der Zwischenablage
> holen kannst, und zwar unformatiert.
> https://sites.google.com/site/starbasicmakros/makros-1/generell/text-aus-zwischenablage-holen
>
>
> Mit dem folgenden Makro kannst du dann die Absätze entfernen.
>
>
> sub clpboardTest
> dim sText As string
> Dim aText () as string
> sText= (getClipboardText)
>
> aText = Split(sText,Chr(10))
> sText = Join(aText)
>
> aText = Split(sText,Chr(13))
> sText = Join(aText)
>
> end sub
>
>
> Gruß Frieder

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert