According to my understanding, you are encountering issues with the "actxserver" server when dealing with pop-ups.
You can resolve this by adjusting the "DisplayAlerts" property of the Word application object to false. This action will effectively suppress all Word dialog boxes that require user interaction.
To enhance the efficiency of the code, I would suggest opening the Word application just once, using it for each file, and then closing it once all files have been processed. You can achieve this by making some modifications to the "wordlooker" function.
Here's the revised code that incorporates these changes:
path = 'Some directory';
filesfolders = dir(fullfile(path,'**\*.*')); %get list of files and folders in any subfolder
filesfolders = filesfolders(~ismember({filesfolders.name},{'.', '..'}));% removes the . and .. folders from the struct
allfiles = filesfolders(~[filesfolders.isdir]);%removes all the folders and leaves the files
names = {allfiles.name};
c = struct2cell(allfiles);
% Connect to Word
Word = actxserver('Word.application');
Word.DisplayAlerts = false; % Suppress dialog boxes
Word.Visible = 0;
for i = 1:length(names)
filepath = append(c(2,i),'\',c(1,i)); %returns 1x1 cell of the ith filepath
try % i used try because some word files were corrupted and were giving me errors
if contains(filepath,'.docx') == 1 % checks if its a word doc
if wordlooker(Word, filepath{1}) == 1
copyfile(filepath{1},"Destination folder"); %copies the word file to the destination folder
end
end
catch
continue
end
end
% Close word
Word.Quit;
function bool = wordlooker(Word, tempfilepath) %returns 1 if it finds the phrase in the word doc
Docs = Word.Documents.Open(tempfilepath,[],1); % Open the Document
selection = Word.Selection;
bool = selection.Find.Execute('Key phrase'); % Find the Keyword
Docs.Close;
end
You can refer to the following MathWorks Documentation :
Hope it Helps !
