Finally I have solved.
wordFile = 'C:\Users\doc1.docx';
word = actxserver('Word.Application');
wdoc = word.Documents.Open(wordFile);
%wdoc is the Document object which you can query and navigate.
TextBox = wdoc.Shapes.Item(1)
Text = TextBox.TextFrame.TextRange.Find.Execute('text1',0,0,0,0,0,1,1,0,'replacetext',2,0,0,0,0);
%Text = sometext.TextFrame.Characters.Text;
wdoc.Close; % close document
word.Quit; % end application