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

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