Code:
Sub ExtractTablesFromMultiDocs()
Dim objTable As Table
Dim objDoc As Document, objNewDoc As Document
Dim objRange As Range
Dim strFile As String, strFolder As String
' Initialization
strFolder = InputBox("C:\Users\MURALV05\Desktop\Value Creation\Value Creation: ")
strFile = Dir(strFolder & "" & "*.docx", vbNormal)
Set objNewDoc = Documents.Add
' Process each file in the folder.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & "" & strFile)
Set objDoc = ActiveDocument
For Each objTable In objDoc.Tables
objTable.Range.Select
Selection.Copy
Set objRange = objNewDoc.Range
objRange.Collapse Direction:=wdCollapseEnd
objRange.PasteSpecial DataType:=wdPasteRTF
objRange.Collapse Direction:=wdCollapseEnd
objRange.Text = vbCr
Next objTable
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub