• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 332
  • Last Modified:

How can i get the data and images in this website to a word file.With the enlarged images that we get when clicked on the image.

Hi,

How can i get the data and images in this website to a word file.With the enlarged images that we get when clicked. Script to get this.
Any way to do this...
the website is below.
http://www.petenetlive.com/Tech/Windows/WDS/WDS.htm

This is not only the website i want this to be done.I have identical sites that i need to get them to word.
I dont want the data in the left colum but just the data and the images in an enlarged way to a word file.
Any word macro or a vbs script to do this.
Regards
Sharath
0
bsharath
Asked:
bsharath
  • 11
  • 5
1 Solution
 
XetroximynCommented:
Get yourself a google account.  

Get the google notebook plugin.  

Then highlight on each page the part that you want, and right click, and click "Note This (Google Notebook)"

This will stor each of these snippets in your google notebook as seperate notes, that could then be moved into seperate groups of notes if you wanted.  (or left as one huge group of notes.  

You can then click a link at the bottom of the page to export any group of notes to Google Docs, from there you can save as a word doc.  

If you are talking about a much larger scale, are you familiar with AutoIt?  You could probably write a script with in just a few hours, to do what you need while you watch. (provided you have a list of links or some methodical way to get from page to page)
0
 
RobSampsonCommented:
Sharath, here is some code that will download all of the large images for you....as the script runs, you'll see the images get downloaded to the folder where the script is....

If you need me to, I can try to write a script that will put them all in a word doc for you.....

Regards,

Rob.
dteStart = Timer
' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
For intImgNum = 1 To 90
	strURL = "http://www.petenetlive.com/Tech/Windows/WDS/wds/" & Right("000" & CStr(intImgNum), 4) & ".jpg"
	strLocalFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & Mid(strURL, InStrRev(strURL, "/") + 1)
	
	objXMLHTTP.open "GET", strURL, False
	objXMLHTTP.send()
	
	If objXMLHTTP.Status = 200 Then
	      Set objADOStream = CreateObject("ADODB.Stream")
	      objADOStream.Open
	      objADOStream.Type = 1 'adTypeBinary
	      
	      objADOStream.Write objXMLHTTP.ResponseBody
	      objADOStream.Position = 0    'Set the stream position to the start
	      
	      Set objFSO = Createobject("Scripting.FileSystemObject")
	      If objFSO.Fileexists(strLocalFile) Then objFSO.DeleteFile strLocalFile
	      Set objFSO = Nothing
	      
	      objADOStream.SaveToFile strLocalFile
	      objADOStream.Close
	      Set objADOStream = Nothing
	End If
Next
 
Set objXMLHTTP = Nothing
 
dteEnd = Timer
 
MsgBox "Download complete." & VbCrLf & _
      "Source: " & strURL & VbCrLf & _
      "Target: " & strLocalFile & VbCrLf & _
      "Time taken: " & dteEnd - dteStart & " seconds."

Open in new window

0
 
bsharathAuthor Commented:
Perfect Rob...
Can you get the images to a work file.
If possible the data thats there in the website between the images
0
Cloud Class® Course: Microsoft Exchange Server

The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.

 
bsharathAuthor Commented:
Perfect Rob...
Can you get the images to a work file.
If possible the data thats there in the website between the images
0
 
bsharathAuthor Commented:
Rob in what cases does this script work...
Like downloads any images or only small images that has a larger image tagged.?
0
 
bsharathAuthor Commented:
Rob in what cases does this script work...
Like downloads any images or only small images that has a larger image tagged.?
0
 
RobSampsonCommented:
No, not exactly....in this script I have hard coded in the URL to the direct large image, and it just downlaods that file.....it will download any file that you hard code in....

Rob.
0
 
RobSampsonCommented:
This script will add all of the images to a word document.  It is too hard for me to tell which text from the macro goes to which image......I think it would be faster for you to just cut and paste the text....

Regards,

Rob.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add
For Each objFile In objFSO.GetFolder(Replace(WScript.ScriptFullName, WScript.ScriptName, "")).Files
	If Right(LCase(objFile.Name), 4) = ".jpg" Then
		objWord.Selection.TypeParagraph
		objWord.Selection.TypeParagraph
		objWord.Selection.TypeParagraph
		objWord.Selection.InlineShapes.AddPicture objFile.Path, False, True
	End If
Next

Open in new window

0
 
bsharathAuthor Commented:
Thanks Rob workd perfect....
Have a Great week end..... :-))
0
 
RobSampsonCommented:
No problem. You too.

See ya next week.

Rob.
0
 
bsharathAuthor Commented:
If time permits a look on the other post....
0
 
bsharathAuthor Commented:
If time permits a look on the other post....
0
 
bsharathAuthor Commented:
Rob for example if i need to get this down to a folder.

http://www.petri.co.il/active_directory_installation_requirements.htm
How should i mention the link in the script
0
 
bsharathAuthor Commented:
Rob for example if i need to get this down to a folder.

http://www.petri.co.il/active_directory_installation_requirements.htm
How should i mention the link in the script
0
 
RobSampsonCommented:
That would be a bit different....I'd need to code it more dynamically.....like the one we did with getting the emails from a page.....

I kinda cheated with this one, because it just so happened that they names the images all
xxxx.jpg

so it was easy to code....

If you like, I can probably spend some time modifying the emails script to do images instead...

Rob.
0
 
bsharathAuthor Commented:
Yes Rob please... I need this script for many different pages....
0
 
bsharathAuthor Commented:
Rob a new post for the extension of the same script...
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_23487129.html
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: CompTIA Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

  • 11
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now