|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
ww0000 发表于 2014-8-13 16:40
厉害,请教一下,如何达到附件这样的效果?
请测试- Sub tt()
- Set myTable = ThisDocument.Tables(1)
- '// Debug.Print myTable.Range.Cells.Count
-
- For i = 2 To myTable.Range.Cells.Count Step 2
- mypic = myTable.Range.Cells(i - 1).Range.Text
- mypic = ActiveDocument.Path & Trim(Left(mypic, Len(mypic) - 2))
- myTable.Range.Cells(i).Range.Select
- Selection.InlineShapes.AddPicture FileName:=mypic, LinkToFile:=False, SaveWithDocument:=True
- '// Debug.Print mypic
- '//D:\TDDOWNLOAD\插入图片(1)\IMG
- Next
- End Sub
复制代码 |
|