Embed ms project in a table in ms word

[Excel Fox]

Try this

Sub AddWordObject()

    Dim objDoc As Document
    Dim objTable As Table
    Dim strPath As String
    Dim objInlShp As InlineShape
    Const lngRows As Long = 2
    Const lngCols As Long = 3
    Const lngRowToAddObject As Long = 2
    Const lngColToAddObject As Long = 1
    Const strClassType As String = "MSProject.Project"
    strPath = "C:\\NewProjectWork.mpp"
    Set objDoc = ActiveDocument
    Set objTable = objDoc.Tables.Add(Range:=objDoc.Range, NumRows:=2, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed)
    With objTable
        If .Style <> "Table Grid" Then
            .Style = "Table Grid"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
        .Range.Cells(lngCols * (lngRowToAddObject - 1) + 1).Row.Cells.Merge
        Set objInlShp = .Cell(lngRowToAddObject, lngColToAddObject).Range.InlineShapes.AddOLEObject(ClassType:=strClassType, FileName:=strPath, LinkToFile:=False, DisplayAsIcon:=True, Range:=.Cell(lngRowToAddObject, lngColToAddObject).Range)
        objInlShp.Width = .Cell(2, 1).Width
    End With
        
End Sub

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA