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)