Copy webcontent to a document

[elmnas]

Hello all VBA Members

I am trying to auotmate a process of word

I get lots of different wordjobs, they always have a job number, for example 741443
we have a webpage where we can see all active jobs, as we see both job numbers (741443)
and also an EP-number (E7295_EP2586715)

I want to copy this part of the EP-number (EP2586715) to a word document.

the word document is always in the folder called 741443.

my problem is, when there are several different jobs with different EP-numbers,
the macro need to copy the correct EP-Code from the webpage to the document.

here is a picture
11948
how it looks like



Do have someone a solution for this?


here is a sample I did,
but the pastemethod doesn't work




Sub CopyWebContent()


Dim IE As Object
Dim rng1 As Range
Dim thisdoc As Document
Dim newdoc As Document
Dim st
Set thisdoc = ActiveDocument
Set newdoc = Documents.Add
Documents(thisdoc).Activate



Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate "tsq/"
Do Until .ReadyState = 4: DoEvents: Loop
End With
IE.ExecWB 17, 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection


Selection.Paste



Set rng1 = Selection.Range

' IE.Quit

End Sub



Thank you in advance all VBA Members

Cheers!

Daniel

[macropod]

Cross-posted at: http://www.msofficeforums.com/word-vba/21865-copy-webcontent-document.html
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184. See also: http://www.vbaexpress.com/forum/faq.php?faq=new_faq_item#faq_new_faq_item3

I note you have previously been asked to observe the etiquette (e.g. http://www.vbaexpress.com/forum/showthread.php?50120-Copy-files-to-active-location). I have known people to be banned from VBA Express for refusal to observe this basic courtesy.