微信公众号图片批量插入到Word

var images=document.getElementsByClassName("rich_pages wxw-img")
var s=""
for(var i in images)
    {
        var link=images.item(i).src;
        if(link.includes("?wx_fmt=png"))
        {s+=link+ "\r\n"}        
    }
console.log(s)

 

Sub InsertShapes(link As String)
   ActiveDocument.InlineShapes.AddPicture FileName:=link, LinkToFile:=False, SaveWithDocument:=True
End Sub
Sub Test1()
    Dim link As String
    Open "D:\Mathematics\links.txt" For Input As #1
        Do Until EOF(1)
        Line Input #1, link
        InsertShapes link
        Loop
    Close #1
End Sub