Formatted Word text to Excel

[snb]

Sub M_snb()
  GetObject(, "word.application").activedocument.Paragraphs(1).Range.Copy
  ActiveSheet.Cells(20, 1).PasteSpecial "HTML"
End Sub