Kevalson
10-01-2002, 10:23 AM
Hello everyone.
I am trying to copy all text, that is already in the textbox, to a new notepad sheet.
Example:
Step 1. Copy all text in Text1 box to clipboard.
Step 2. Open Notepad
Step 3. Paste clipboard to notepad.
All this should be done with one click of a button.
I get as far as copying everything to the clipboard, and it even opens up notepad, but I still have to manually paste (CTRL-V) into notepad.
I would even like it to ask me what name to save it as as well as where to save it at...just like the Save As function in Word or something.
Here is what I have so far.
Private Sub cmdCopytoClipboard_Click()
Dim MyAppID
Clipboard.Clear
Clipboard.SetText Text1.Text
MyAppID = Shell("NOTEPAD.EXE", 1)
AppActivate MyAppID
MyAppID = Clipboard.GetText()
End Sub
I am trying to copy all text, that is already in the textbox, to a new notepad sheet.
Example:
Step 1. Copy all text in Text1 box to clipboard.
Step 2. Open Notepad
Step 3. Paste clipboard to notepad.
All this should be done with one click of a button.
I get as far as copying everything to the clipboard, and it even opens up notepad, but I still have to manually paste (CTRL-V) into notepad.
I would even like it to ask me what name to save it as as well as where to save it at...just like the Save As function in Word or something.
Here is what I have so far.
Private Sub cmdCopytoClipboard_Click()
Dim MyAppID
Clipboard.Clear
Clipboard.SetText Text1.Text
MyAppID = Shell("NOTEPAD.EXE", 1)
AppActivate MyAppID
MyAppID = Clipboard.GetText()
End Sub