5,139
社区成员
发帖
与我相关
我的任务
分享
Dim wordapp As New Word.Application
Dim doc As Word.Document = wordapp.Documents.Open("D:\Doc1.docx")
For i As Integer = 1 To doc.InlineShapes.Count
doc.InlineShapes(i).Range.CopyAsPicture()
Dim img As Image = Clipboard.GetImage()
img.Save("D:\" & i & ".png")
Next
字号,字体,颜色用selection.font对象去取size, name, colorindex