With wb.AddArticle("","ar1")
for i as integer = 0 to Names.length - 1
.AddContent(Names(i)) ‘这里怎么填写呢’
.AddImage(imgs(i)) ‘这里怎么填写呢’
next
End With