Word 插入图片到单元格

Word 插入图片到单元格，以替换原有单元格的内容。如果有文字，还需要将文字替换下。示例见下面代码。这样可以不用特殊指定了

    Set wTable = ActiveDocument.Tables(1)
        '复制表格数据到工作表
        For Row = 1 To wTable.Rows.Count
            For Col = 1 To wTable.Columns.Count
                str = wTable.Cell(Row, Col).Range.Text
                If str Like "BY" + Chr(13) + Chr(7) Then
                    Debug.Print str ' wTable.Cell(Row, col).Range.Text
                    wTable.Cell(Row - 1, Col).Range = ""
                    wTable.Cell(Row - 1, Col).Select
                    Selection.InlineShapes.AddPicture FileName:=strPicPath, LinkToFile:=False, SaveWithDocument:=True
                End If
            Next Col
        Next Row