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

how it looks like

Attachment 116359



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.vbaexpress.com/forum/show...-to-a-document
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

I note you have previously been asked to provide cross-post links (e.g. https://www.msofficeforums.com/word-...directory.html). Please don't make a habit of ignoring such basic courtesies. Those who do soon find their posts being ignored and, on some forums, being banned.