I have to create a coding by Winword VBA for get simply data from winword to Excel,

How to Get / Open Excel file in VBA

Seems like Excel VBA code as below,

' Open Winword File from Excel
Set WdApp = GetObject(, "Word Application")

If Err.Number = 429 Then
Err.Clear
Set WdApp = CreateObject("Word.Application")
End If

WdApp.Visible = True

strDocName = Application.GetOpenFilename(FileFilter:="Word Files (*.doc),*.doc", FilterIndex:=2, Title:="Select a File", MultiSelect:=False)