How can I have MATLAB find and replace text in a MS Word document
조회 수: 72 (최근 30일)
이전 댓글 표시
I am running MATLAB to read in several txt documents and crunch the numbers and provide a formated MS Word document as an output.
I have a template Word document that has 8 lines that need to be modified based on the number crunching MATLAB does for me. I can have MATLAB make a string variable that says the words that need to be placed in the Word document at the specific points.
The problem I have is how to have MATLAB open the Word document and find/replace the desired lines of text.
Are there any ideas?
Thanks!
댓글 수: 0
답변 (3개)
Astik Sachan
2017년 3월 22일
편집: Astik Sachan
2017년 8월 10일
You can use following code as well and edit it as per need!
[fname path] = uigetfile('*.doc*');
fpath = [path fname];
find_txt = 'Text';
replace_txt = 'Replaced';
w = actxserver('Word.Application');
w.Documents.Open(fpath);
w.Selection.Find.Font.Size = 20.5;
w.Selection.Find.Font.Name = 'Calibri';
w.Selection.Find.Execute(find_txt,1,0,0,0,0,1,0,1,replace_txt,2,0,0,0,0); %forward
w.Selection.Find.Execute(find_txt,1,0,0,0,0,0,0,1,replace_txt,2,0,0,0,0); %backward
w.ActiveDocument.Save
w.ActiveDocument.Close
For More Information about other arguments used in Find Execute function you can visit: https://msdn.microsoft.com/en-us/library/office/ff193977.aspx
댓글 수: 2
Arnaud Bitoun
2019년 10월 12일
Thank you Astik for this helpful code. How do you do if you are looking to change text in the Header ?
Merve
2023년 3월 3일
thank you for the code, it is very helpful but it doesn't change the text in header.
Gordon
2015년 3월 19일
편집: Walter Roberson
2019년 10월 12일
Tried this code and it works. Corrected one typo though. Code should be:
Word = actxserver('Word.application');
Wrod.Visible = 0;
set(Word,'DisplayAlerts',0);
Docs = Word.Documents;
Doc = Docs.Open('D:\Doc1.doc');
selection = Word.Selection; selection.Find.Execute('<text you want to find>',0,0,0,0,0,1,1,0,'<Text you want to replace>',2,0,0,0,0);
Doc.Save;
Docs.Close;
invoke(Word,'Quit');
delete(Word);
댓글 수: 1
Gordon
2015년 3월 19일
편집: Walter Roberson
2019년 10월 12일
Corrected another typo. Should be:
Word = actxserver('Word.application');
Word.Visible = 0;
set(Word,'DisplayAlerts',0);
Docs = Word.Documents;
Doc = Docs.Open('D:\Doc1.doc');
selection = Word.Selection;
selection.Find.Execute('<text you want to find>',0,0,0,0,0,1,1,0,'<Text you want to replace>',2,0,0,0,0);
Doc.Save;
Docs.Close;
invoke(Word,'Quit');
delete(Word);
참고 항목
카테고리
Help Center 및 File Exchange에서 Data Import and Export에 대해 자세히 알아보기
Community Treasure Hunt
Find the treasures in MATLAB Central and discover how the community can help you!
Start Hunting!