'Imports Word = Microsoft.Office.Interop.Word
Dim App As New Word.Application
Dim path As String = IO.Path.Combine(Application.StartupPath, "test.doc")
Dim doc As Word.Document = App.Documents.Open(CType(path, Object))
For Each para As Word.Paragraph In doc.Paragraphs
Dim style As Word.Style = CType(para.Style, Word.Style)
Dim name As String = style.NameLocal
Next
doc.Close()
App.Quit()