Private Sub CommandButton1_Click()
Dim oDoc As Document
Dim nDoc As Document
Set oDoc = ActiveDocument
oDoc.Tables(1).Rows.Select
Selection.Copy
MsgBox ("Text")
Application.WindowState = wdWindowStateMinimize
Shell "C:\Program Files\Internet Explorer\iexplore.exe "Adresse", vbNormalFocus
End Sub
Momentan müssen die User noch mit Hilfe von Strg + V den kopierten Inhalt in eine Box auf der Webseite einfügen.
Ich würde nun ganz gerne diesen Schritt mit Hilfe des Makros realisieren. Lange rede kurzer Sinn:
1. Makro soll warten bis IE Seite aufgebaut hat
2. Makro soll in das entsprechende Feld navigieren (Dirty Methode vielleicht mit SendKeys TAB)
3.Inhalt soll eingefügt werden
Leider weiß ich nicht wie ich die Wartezeit einbauen kann (mit Sleeps habe ich es nicht hinbekommen) und SendKeys "(^v)" hat auch nicht geklappt.
Freue mich über jede Hilfe