#1 31. März 2006 Zuletzt von einem Moderator bearbeitet: 14. April 2017 hallo ich habe mal einen kleinen speedreporter versucht zu programmieren (mit Visual Basic in Word). Jetzt habe ich eine kleine Frage und zwar, wie kann ich das automatisch kopieren wenn, es ausgeführt wurde. Logisch man könnte einen makro machen, den gewünschten Text abschnitt kopieren und das dann einfach noch einfügen, nur das Problem ist, die Textlange ist nicht immer gleich gross (Uploadname). ich hab hier mal den code eingefügt. Code: If MsgBox("Willst du es in dieses Dokument einfügen?", vbQuestion + vbYesNo, "Einfügeort!") = vbNo Then MsgBox "Du willst es nicht in dieses Dokument einfügen, also öffne ein neues und starte mich nochmals", vbExclamation Else Selection.TypeText Text:="[CENTER][IMG]https://www0.xup.in/exec/ximg.php?fid=17559856[/IMG] {img-src: http://img71.imageshack.us/img71/1981/bspeedybg35bl.png} " Selection.TypeParagraph Selection.TypeText Text:="gemacht von DaRkMaStEr7" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="[b]Upload:[/b] [FONT=verdana][I][B] " Upload = InputBox("Upload angeben") Selection.TypeText Text:=Upload Selection.TypeText Text:=" [/B][/I][/FONT]" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="[b]Speed:[/b] [FONT=verdana][I][B] " Speed = InputBox("Speed angeben") Selection.TypeText Text:=Speed Selection.TypeText Text:=" kb/s @ 768 kbit/s[/B][/I][/FONT]" Selection.TypeParagraph Selection.TypeParagraph If MsgBox("War / Ist der Download Fullspeed?", vbQuestion + vbYesNo, "Fullspeed?") = vbNo Then Selection.TypeText Text:="[b]Fullspeed:[/b] [FONT=verdana][I][B] Nein, leider nicht [/B][/I][/FONT]" Else Selection.TypeText Text:="[b]Fullspeed:[/b] [FONT=verdana][I][B] Ja [/B][/I][/FONT]" End If Selection.TypeParagraph Selection.TypeParagraph If MsgBox("Fertig?", vbQuestion + vbYesNo, "Fertig?") = vbNo Then Selection.TypeText Text:="[b]Status:[/b] [FONT=verdana][I][B] Leeching [/B][/I][/FONT]" Else Selection.TypeText Text:="[b]Status:[/b] [FONT=verdana][I][B] Fertig [/B][/I][/FONT]" End If Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="[b]Bewertung:[/b] [FONT=verdana][I][B] 10er [/B][/I][/FONT]" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="[b]Bemerkung:[/b] [FONT=verdana][I][B] danke für den Upload [/B][/I][/FONT]" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="mfg" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="mars007s[/Center]" End If gibts eine möglichkeit um das automatisch zu kopieren? Falls nicht, dann schreibt eifach dann lasse ich es so. mfg mars007s + Multi-Zitat Zitieren
#2 31. März 2006 was meinst du mit text kopieren? in vb gibts es den befehl Code: clipboard.setdata [string] der dürfte dir behilflich sein, zb du machst deinen ganzen speedreport in eine textbox mit dem namen text1 dann kannst das mit Code: clipcoard.setdata text1.text in die zwischenablage kopieren + Multi-Zitat Zitieren
#3 31. März 2006 leider funktioniert es bei mir nicht es funktioniert so das ich diesen code ausführe, und dann wird der text in das word eingetippt (wie wenn man ein Brief schreibt). hast du mir vielleicht noch ein tipp? 10er hast du mfg mars007s + Multi-Zitat Zitieren
#4 31. März 2006 mh hast du kein VB oder warum machst du das in word? ich mein in VB is doch einfacher mit richtextbox und dann das ganze da rein fertig. das einzig schwere is doch da nur ds tippen. warumso kompliziert in word? naja richtig helfen kann ich nicht nur hallt sagen machs direkt mit VB inner entsprechenden Entwicklungsumgebung. mfg Rend + Multi-Zitat Zitieren
#5 1. April 2006 Um Text in Clipboard zu kopieren: Code: Clipboard.clear 'Aktuellen Inhalt löschen, sonst gehts nich Clipboard.SetText("Test") 'Neuen Text reinkopieren + Multi-Zitat Zitieren
#6 1. April 2006 arg stimmt ich hatte das clear vorher vergessen, ich bitte die herren um entschuldigung + Multi-Zitat Zitieren