How to save things you see on the Internet?

Paul Townsend Follow - "Toys of Christmas Past", https://flic.kr/p/94EcJg
Paul Townsend Follow – “Toys of Christmas Past”, https://flic.kr/p/94EcJg

Online is beautiful, but perishable. Today, you see it “live”, tomorrow, it may not be there.

Let’s say you want to mass download some links / pages / web sites to have them as a backup copy. How to do it?

(note – make sure you have the right to save things I talk about below, not everything which is available online is suitable for saving, you might break some rules / laws if you save things without looking at terms & conditions)

If you want to download a whole web site, have a look at:

If you want to crawl a web site, have a look at (it crawls a web site and, at the end, it generates a list of all the links on the web site):

How to download videos from a web site (atypical solution, it’s not what you might be expectng)?

Let’s say you quickly want to open lots of links (then copy / save the information):

or to copy the URLs from the browser to somemplace else:

Let’s say you want to open for download 500 links, one after the other, in browser. How do you make them open one by one? Have a look at:

If you want to save an article with the following formatting:
title
content
final link,

I suggest you give a chance to the Microsoft Word macro below.

You just need to copy an article from the Internet, the first line should be a title, then the content, and, at the end, the URL to the article.

When you run the macro, it automatically saves it using the title of the article, and it “pretty” formats it.

Sub Format_text()
'
' Format_text Macro
'
'

Selection.HomeKey Unit:=wdStory

Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Font.Size = 14
Selection.WholeStory
Selection.Font.Name = “Verdana”

With Selection.Font.Shading
.Texture = wdTextureSolid
.ForegroundPatternColor = -603914241
.BackgroundPatternColor = -603914241
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With

Selection.HomeKey Unit:=wdStory

Selection.WholeStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorAutomatic

With Selection.Font.Shading
.Texture = wdTextureSolid
.ForegroundPatternColor = -603914241
.BackgroundPatternColor = -603914241
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With

Selection.WholeStory

Options.DefaultHighlightColorIndex = wdNoHighlight
Selection.Range.HighlightColorIndex = wdNoHighlight
Selection.Font.Color = wdColorAutomatic
Selection.ParagraphFormat.LineSpacing = LinesToPoints(1.15)
With Selection.ParagraphFormat
.SpaceBefore = 4
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.LineUnitBefore = 1
End With

Selection.HomeKey Unit:=wdStory

Selection.Paragraphs(1).Range.Select

Selection.Font.Size = 1

Selection.HomeKey Unit:=wdStory

Dim Ziua2 As String
Ziua2 = Day(Date)
Ziua2 = String(2 – Len(Ziua2), “0”) + Ziua2 ‘this adds leading zeros
Dim Luna2 As String
Luna2 = Month(Date)
Luna2 = String(2 – Len(Luna2), “0”) + Luna2 ‘this adds leading zeros
Dim Anul2 As String
Anul2 = Year(Date)
Selection.TypeText Text:=Anul2 + “.” + Luna2 + “.” + Ziua2 + ” ”

Selection.HomeKey Unit:=wdStory

With Selection
‘ To top of document
.HomeKey Unit:=wdStory

End With

Selection.HomeKey Unit:=wdStory

Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Selection.Range.Case = wdTitleWord

With Selection.Find
.Text = “[!a-zA-Z0-9. ,]”
.Replacement.Text = “”
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Dim selBkUp As Range
Set selBkUp = ActiveDocument.Range(Selection.Range.Start, Selection.Range.End)

Dim MyFileName As String

MyFileName = CStr(selBkUp) & “.docx”

‘ Selection.Copy
‘ You can un-comment this line, if you wish to copy the filename to the clipboard

ActiveDocument.Undo

Selection.Font.Size = 26

Selection.HomeKey Unit:=wdStory

ActiveDocument.SaveAs2 FileName:=MyFileName, FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:=””, AddToRecentFiles _
:=True, WritePassword:=””, ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=15

ActiveWindow.Close
‘You can delete this line if you find that you need to make changes to the document more often than not and review how the document looks like

End Sub

I am a Digital Marketing Manager for The KPI Institute. My expertise is in SEO (Search Engine Optimization) / UX (user experience) / WordPress. Co-founder of lumeaseoppc.ro (series of events on SEO & PPC) and cetd.ro (Book on branding for MDs). On a personal level, I like self-development - events, sports, healthy living, volunteering, reading.

2 Comments

  • Ela

    17 April 2016 - 14:21

    I’ve found Wayback Machine – web.archive.org very useful whenever a great article / website / even clip disappeared online or I wanted to re-view the old version of a website.

  • Olivian Breda

    17 April 2016 - 14:25

    Good tip! Thanks!

Leave a comment

Your email address will not be published.