How can I have MATLAB find and replace text in a MS Word document
48 visualizaciones (últimos 30 días)
Mostrar comentarios más antiguos
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 comentarios
Respuestas (3)
Astik Sachan
el 22 de Mzo. de 2017
Editada: Astik Sachan
el 10 de Ag. de 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 comentarios
Arnaud Bitoun
el 12 de Oct. de 2019
Thank you Astik for this helpful code. How do you do if you are looking to change text in the Header ?
Merve
el 3 de Mzo. de 2023
thank you for the code, it is very helpful but it doesn't change the text in header.
Gordon
el 19 de Mzo. de 2015
Editada: Walter Roberson
el 12 de Oct. de 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 comentario
Gordon
el 19 de Mzo. de 2015
Editada: Walter Roberson
el 12 de Oct. de 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);
Ver también
Categorías
Más información sobre Text Files en Help Center y File Exchange.
Community Treasure Hunt
Find the treasures in MATLAB Central and discover how the community can help you!
Start Hunting!