read Word styles and get results in a tidy data.frame.
styles_info(x)
x
an rdocx object
library(magrittr) read_docx() %>% styles_info()