Private Sub op()
Application.ScreenUpdating = False
Dim wd As Object
Dim ns As Worksheet
Set wd = CreateObject("Word.Application")

'путь к файлу
f = Application.GetOpenFilename("Файлы RTF, *.rtf,Все файлы, *.*")
If TypeName(f) = "Boolean" Then Exit Sub 'если Отмена - выход

'откроем выбранный файл
Set wdd = wd.Documents.Open(f)

'выделяем содержимое документа
wdd.content.Select

'ТУТ НУЖЕН АВТОФОРМАТ
*********************************
'копируем содержимое документа
t = wdd.content.Copy

'создадим лист для этого документа в EXCEL
Set ns = ActiveWorkbook.Worksheets.Add

'вставим скопированное в созданный лист
ns.Paste Destination:=ns.Cells(1, 1)

'закрываем WORD
wdd.Close (False)
wd.Quit (False)
End Sub