Syntaxhighlighter "verkleinert", u.a. a @HansH

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi reinhard,
man kann die schriftart sowie die schriftgr??e einstellen, s. men?leiste. ebenso ist es m?glich einzelne passagen formatiert hervorzuheben. und das es einen extra button f?r das forum hier gibt hat auch seinen grund.

Sub ZwischenablageText_Ausgeben()
    Dim Satz
    Set MeineZwischenablage = New DataObject
    MeineZwischenablage.GetFromClipboard
    Satz = Replace(MeineZwischenablage.GetText(1), "<BR>", "", 1)
    MeineZwischenablage.SetText Satz
    MeineZwischenablage.PutInClipboard
End Sub

Sub ZwischenablageText_Ausgeben()
    Dim Satz
    Set MeineZwischenablage = New DataObject
    MeineZwischenablage.GetFromClipboard
    Satz = Replace(MeineZwischenablage.GetText(1),  "<BR>" , "", 1)
    MeineZwischenablage .SetText Satz
    MeineZwischenablage .PutInClipboard
End Sub

Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbankl?sungen - Komponenten - RTDServer

Hi Reinhard,
oder so:

Sub ZwischenablageText_Ausgeben()
    Dim Satz
    Set MeineZwischenablage = New DataObject
    MeineZwischenablage.GetFromClipboard
    Satz = Replace(MeineZwischenablage.GetText(1), "<BR>", "", 1)
    MeineZwischenablage.SetText Satz
    MeineZwischenablage.PutInClipboard
End Sub

Sub ZwischenablageText_Ausgeben()
    Dim Satz
    Set MeineZwischenablage = New DataObject
    MeineZwischenablage.GetFromClipboard
    Satz = Replace(MeineZwischenablage.GetText(1), "<BR>", "", 1)
    MeineZwischenablage.SetText Satz
    MeineZwischenablage.PutInClipboard
End Sub

Sub ZwischenablageText_Ausgeben()
    Dim Satz
    Set MeineZwischenablage = New DataObject
    MeineZwischenablage.GetFromClipboard
    Satz = Replace(MeineZwischenablage.GetText(1), "<BR>", "", 1)
    MeineZwischenablage.SetText Satz
    MeineZwischenablage.PutInClipboard
End Sub

Sub ZwischenablageText_Ausgeben()
    Dim Satz
    Set MeineZwischenablage = New DataObject
    MeineZwischenablage.GetFromClipboard
    Satz = Replace(MeineZwischenablage.GetText(1), "<BR>", "", 1)
    MeineZwischenablage.SetText Satz
    MeineZwischenablage.PutInClipboard
End Sub


Gru?

Nepumuk



Danke zusammen, habs glaube ich kapiert, bis auf den Rahmen von Nepumuk.

Gru?

Hans

In neuen Treads zuk?nftig HansHei statt HansH, weil ich schon gefragt wurde, ob ich Hans Herber w?re. Dabei bin ich doch sch?ner :-)

Sub ZwischenablageText_Ausgeben() Dim Satz Set MeineZwischenablage = New DataObject MeineZwischenablage.GetFromClipboard Satz = Replace(MeineZwischenablage.GetText(1), "<BR>", "", 1) MeineZwischenablage.SetText Satz MeineZwischenablage.PutInClipboard End Sub

Sub ZwischenablageText_Ausgeben() Dim Satz Set MeineZwischenablage = New DataObject MeineZwischenablage.GetFromClipboard Satz = Replace(MeineZwischenablage.GetText(1), "<BR>", "", 1) MeineZwischenablage.SetText Satz MeineZwischenablage.PutInClipboard End Sub Gru? Nepumuk Danke zusammen, habs glaube ich kapiert, bis auf den Rahmen von Nepumuk. Gru? Hans In neuen Treads zuk?nftig HansHei statt HansH, weil ich schon gefragt wurde, ob ich Hans Herber w?re. Dabei bin ich doch sch?ner :-)

Beliebteste Forumthreads (12 Monate)

Syntaxhighlighter "verkleinert", u.a. a @HansH

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Syntaxhighlighter "verkleinert", u.a. a @HansH

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread