Frage: Text kopieren

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von mars007s, 31. März 2006 .

Schlagworte:
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #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
     

  2. Anzeige
    Dealz: stark reduzierte Angebote finden.
  3. #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
     
  4. #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
     
  5. #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
     
  6. #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
    
     
  7. #6 1. April 2006
    arg stimmt ich hatte das clear vorher vergessen,
    ich bitte die herren um entschuldigung ;)
     

  8. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Frage Text kopieren
  1. Antworten:
    3
    Aufrufe:
    1.351
  2. frage crysis 2 texturen

    g.staR^ , 28. Juni 2011 , im Forum: Gamer Support
    Antworten:
    0
    Aufrufe:
    402
  3. Antworten:
    5
    Aufrufe:
    699
  4. Antworten:
    2
    Aufrufe:
    424
  5. Kurze Frage zum Videotext

    jk2002 , 11. Februar 2009 , im Forum: Kino, Filme, Tv
    Antworten:
    3
    Aufrufe:
    297