1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
function save_Callback(hObject, eventdata, handles)
[FileName,PathName,FilterIndex] = uiputfile('*.doc');
word = actxserver('Word.Application');
filespec = fullfile(PathName,FileName);
if ~exist(filespec,'file');
op = invoke(word.Documents,'Add');
else
op = invoke(word.Documents,'Open',filespec);
end
print('-dmeta');
end_of_doc = get(word.activedocument.content,'end');
set(word.application.selection,'Start',end_of_doc);
set(word.application.selection,'End',end_of_doc);
invoke(word.Selection,'Paste');
invoke(op,'SaveAs',filespec,1);
invoke(op,'Close');
invoke(word,'Quit');
delete(word); |
Partager