在复制和粘贴表格时，可以使用以下代码示例来保留表格中的内联图像：

Sub CopyTableToNewDoc()
    Selection.Tables(1).Range.Copy
    Documents.Add
    Selection.PasteExcelTable False, False, False
    Selection.Tables(1).Select
    For Each cell In Selection.Tables(1).Range.Cells
        If cell.Range.InlineShapes.Count > 0 Then
            cell.Range.Select
            Selection.MoveEnd wdCharacter, 1
            Selection.CopyAsPicture
            Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
            Placement:=wdInLine, DisplayAsIcon:=False
        End If
    Next cell
End Sub

此代码复制当前所选表格并将其粘贴到一个新文档中。然后，它检查表格中的每个单元格是否有内联形状。如果单元格中有内联形状，则使用CopyAsPicture方法将其复制为图像，并使用PasteSpecial方法将其作为元文件图像粘贴到单元格中。

使用该代码示例，您可以确保表格中的内联图像也一并复制并粘贴到新文档中。