在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