Save Active Word Doc with URL File Path

[snb]

I'd use:

Sub M_snb()
    With CreateObject("Word.application")
        With .documents.Open("http://www.snb-vba.eu/bestanden/Liander tarieven.docx")
        .SaveAs2 "G:\OF\voorbeeld.docx"
        .Close 0
        End With
        .Quit
    End With
End Sub