Searching the forums I have found this useful code:
Sub GetWordDocContents()
Dim oWord As Object
Dim vFiles
Dim iFile As Integer
Dim R As Range
vFiles = Application.GetOpenFilename("Word files (*.doc*),*.doc*", Title:="Please select the files you want to copy from", MultiSelect:=True)...