Чем скачать фото с диалога вк

[flamel]

Есть текстовый документ с диалогом вк, в котором ссылки на картинки типа https://pp.vk.me/c625423/v625423418/2c203/IFrPQb52WTI.jpg. Возможно кто знает какую нибутдь самоходную велокостыльную установку для того что б выбрать ссылки и скачать

 

[kingping]

скрипт на питоне можно написать и быстро скачать их.

 

[slutkeySm]

ручками.
если трафф позволяет

 

[TrstMn]

Макрос:

Sub extractHyperlinks2()
'Извлечение всех адресов гиперссылок из документа и
'копирование их в новый документ
Dim oHpl As Hyperlink
Dim sAd As String
Dim dAD As Document  'active document
Dim dDc As Document  'new document
Set dAD = ActiveDocument
Set dDc = Documents.Add(Visible:=False)
For Each oHpl In dAD.Hyperlinks
   sAd = oHpl.Address
   dDc.Activate
   Selection.TypeText sAd & vbCr
Next
dDc.SaveAs "C:\Test\hl2.doc"
dDc.Close
Set dAD = Nothing
Set dDc = Nothing
End Sub

 

[flamel]

Макрос:

Sub extractHyperlinks2()
'Извлечение всех адресов гиперссылок из документа и
'копирование их в новый документ
Dim oHpl As Hyperlink
Dim sAd As String
Dim dAD As Document  'active document
Dim dDc As Document  'new document
Set dAD = ActiveDocument
Set dDc = Documents.Add(Visible:=False)
For Each oHpl In dAD.Hyperlinks
   sAd = oHpl.Address
   dDc.Activate
   Selection.TypeText sAd & vbCr
Next
dDc.SaveAs "C:\Test\hl2.doc"
dDc.Close
Set dAD = Nothing
Set dDc = Nothing
End Sub

Макрос для Ворда?

 

[TrstMn]

да

 

[flamel]

Что-то как-то вот