Macro that Copies Table saved as .RTF in Word & Pastes in PowerPoint as Enhanced Metafile

Hi! I've been trying for days figuring out how to copy a single table saved as Rich Text Format in Word and pasting it in a specific PowerPoint Slide as an Enhanced metafile. What I came across is this code as follows:

Sub Test()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    With WordApp
'       Change file name to suit
        .Documents.Open Filename:="D:\file001.rtf"
        .ActiveDocument.Select
        .Selection.Copy
    End With
    ActiveSheet.Range("A1").Select
    ActiveSheet.Paste
    WordApp.Quit
    Set WordApp = Nothing
End Sub

However, this code copies a table in Word and pastes it in Excel without the table formatting. I can't find a macro that works specifically for what I need - that is, copy a table in Word, then paste it as an enhanced metafile in PowerPoint. I want the table to be converted to an enhanced metafile because I want to preserve the formatting of the table with lines from Word. Lastly, would it be possible to create a loop such that each table from Word saved as file001.rtf, up to file100.rtf be pasted to slides 1 to 100 respectively in the PowerPoint file, wherein I can also specify a uniform size and position of the pasted tables in PowerPoint? Thank you for your attention and hoping for your immediate response.

Moderator's Edit: use code tags when posting code. To do so, select your code and click on the # icon at the top of your post window.