读书人

在WORD中怎么替换图片~

发布时间: 2012-01-28 22:06:13 作者: rapoo

在WORD中如何替换图片~!
在程序中选择图片后,如何替换到WORD中!

[解决办法]
Dim wordApp As New Word.Application
Dim Doc As Word.Document
Dim Para As Word.Paragraph

Dim WordDocX As Word.Document
Dim WordTableX As Word.Table
Dim WordRowX As Word.Row
Set wordApp = New Word.Application
Set WordDocX = wordApp.Documents.Add( "**.doc ", False)
Set WordTableX = WordDocX.Tables(1)

wordApp.Visible = True

WordTableX.Cell(?, ?).Range.InlineShapes.AddPicture "图片 ", False, True

读书人网 >VB

热点推荐