How can I have MATLAB find and replace text in a MS Word document
72 vues (au cours des 30 derniers jours)
Afficher commentaires plus anciens
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 commentaires
Réponses (3)
Astik Sachan
le 22 Mar 2017
Modifié(e) : Astik Sachan
le 10 Août 2017
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 commentaires
Arnaud Bitoun
le 12 Oct 2019
Thank you Astik for this helpful code. How do you do if you are looking to change text in the Header ?
Merve
le 3 Mar 2023
thank you for the code, it is very helpful but it doesn't change the text in header.
Gordon
le 19 Mar 2015
Modifié(e) : Walter Roberson
le 12 Oct 2019
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 commentaire
Gordon
le 19 Mar 2015
Modifié(e) : Walter Roberson
le 12 Oct 2019
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);
Voir également
Catégories
En savoir plus sur Data Import and Export dans Help Center et File Exchange
Community Treasure Hunt
Find the treasures in MATLAB Central and discover how the community can help you!
Start Hunting!