自动将Matlab的图插入到word

%利用MATLAB生成Word文档
filespec_user = [pwd '\飞行数据分析.doc'];% 设定测试Word文件名和路径
% 判断Word是否已经打开，若已打开，就在打开的Word中进行操作，否则就打开Word
try
% 若Word服务器已经打开，返回其句柄Word
Word = actxGetRunningServer('Word.Application');
catch
% 否则，创建一个Microsoft Word服务器，返回句柄Word
Word = actxserver('Word.Application');
end;
Word.Visible = 1; % 或set(Word, 'Visible', 1);
% 若测试文件存在，打开该测试文件，否则，新建一个文件，并保存，文件名为测试.doc
if exist(filespec_user,'file');
Document = Word.Documents.Open(filespec_user);
% Document = invoke(Word.Documents,'Open',filespec_user);
else
Document = Word.Documents.Add;
% Document = invoke(Word.Documents, 'Add');
Document.SaveAs2(filespec_user);
end

try
% 将图形复制到粘贴板
    hgexport(zft, '-clipboard');%figure的句柄为“zft”
    Selection=Word.Selection;   
    Selection.Range.Paste;%在当前光标的位置插入图片
catch
    disp('画图失败');
end
delete(zft); % 删除图形句柄
Document.ActiveWindow.ActivePane.View.Type = 'wdPrintView'; % 设置视图方式为页面
 Document.Save; % 保存文档
Document.Close; % 关闭文档
Word.Quit; % 退出word服务器