VBA reads the content in word to excel

Public sub duqu () dim myfile as string dim docapp as word. application dim docrange as word. range myfile = thisworkbook. path & "\ Word document name" 'specifies the Word Document Set docapp = new word. application docapp. documents. open myfile for I = 1 to docapp. activedocument. paragraphs. count with docapp. activedocument 'if. paragraphs. count> = 4 then set docrange =. paragraphs (I ). range CP = CP & docrange 'end if end with next I range ("A1") = CP docapp. quit set docrange = nothing set docapp = nothing set Ws = nothing end sub