internet explorer - teclado - Navega a un sitio web, selecciona Todo, copia y pega en un bloc de notas

como copiar y pegar imagenes en word

Question

Estoy tratando de crear un script VB para navegar a un sitio web, seleccionar todo, copiar y luego guardar los datos copiados del portapapeles en un archivo de texto, ¡pero estoy atascado! :(

Esto es lo que obtuve hasta ahora:

With CreateObject("InternetExplorer.Application")
.Navigate "https://www.microsoft.com"
Do Until .ReadyState = 4: Wscript.Sleep 100: Loop
.Visible = true
With .Document
.execCommand "SelectAll"
.execCommand "Copy"
End With '' Document

Answer 1

Puede intentar obtener datos de texto directamente desde DOM

With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "https://www.microsoft.com"
Do Until .ReadyState = 4
Wscript.Sleep 100
Loop
For Each Tag In .Document.GetElementsByTagName("script")
Tag.OuterHtml = ""
Next
For Each Tag In .Document.GetElementsByTagName("noscript")
Tag.OuterHtml = ""
Next
Content = .Document.GetElementsByTagName("body")(0).InnerText
Do While InStr(Content, vbCrLf & vbCrLf)
Content = Replace(Content, vbCrLf & vbCrLf, vbCrLf)
Loop
ShowInNotepad Content
.Quit
End With
Sub ShowInNotepad(Content)
With CreateObject("Scripting.FileSystemObject")
TempPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%") & "/" & .GetTempName
With .CreateTextFile(TempPath, True, True)
.WriteLine (Content)
.Close
End With
CreateObject("WScript.Shell").Run "notepad.exe " & TempPath, 1, True
.DeleteFile (TempPath)
End With
End Sub