При вставке объекта OLE (встроенный файл MS Excel) в MS Word 2016 также открывается новый пустой файл встроенного листа.
Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", FileName:=DirFile4, _
LinkToFile:=False, DisplayAsIcon:=True, IconIndex:=1, IconLabel:="Example.xlsx"