【Matlab创建word文档，插入图注或表注】

Matlab 创建word文档，网上都可以查询到相关的资料，但是怎么通过matlab插入图片后，在图片下方插入题注及图片说明，我查了相关的资料不太容易查询到，特别写这么一篇文章，和大家共同学习。

clc;clear;close all;fclose all;
picpath=[pwd,'pic'];
filespec_user = [pwd '附件1.doc'];% 设定测试Word文件名和路径
if exist(filespec_user,'file')
delete(filespec_user);
end
% 判断Word是否已经打开，若已打开，就在打开的Word中进行操作，否则就打开Word
try
% 若Word服务器已经打开，返回其句柄Word
Word = actxGetRunningServer('Word.Application');
catch
% 否则，创建一个Microsoft Word服务器，返回句柄Word
Word = actxserver('Word.Application');
end
Word.Visible = 0; % 或set(Word, 'Visible', 1);
Document = Word.Documents.Add;
Document.SaveAs2(filespec_user);
Content = Document.Content;
Selection = Word.Selection;
Word.CaptionLabels.Add('图') ;%题注
Word.CaptionLabels.Add('表');
Word.Selection.InsertCaption('表', '时域汇总表', '', 0, false);
Table=Document.Tables.Add(Selection.Range,5,8);
Dt1=Document.Tables.Item(1);
Selection.Start = Content.end;
Selection.TypeParagraph;
Filename=strcat(picpath,'*.jpg');
Fn=dir(Filename);
for k=1:length(Fn)
PicName=strcat(Fn(k).folder,'',Fn(k).name);
TemPic=char(Fn(k).name);
PicN=TemPic(1:end-4);
Selection.Start = Content.end;
Selection.InlineShapes.AddPicture(PicName);
Selection.TypeParagraph;
Word.Selection.InsertCaption('图', PicN, '', 0, false);
%
Selection.Text=PicN;
Selection.Start = Content.end;
Selection.TypeParagraph;
Selection.MoveDown;
clear PicName TemPic PicN
end
Content.Paragraphs.Alignment = 'wdAlignParagraphCenter';
Content.Font.Name = '宋体' ;
Content.Font.Size=14;
Document.Save; % 保存文档
Document.Close; % 关闭文档
clear Document Content Dt1 Selection Table
Word.Quit; % 退出word服务器
clear;clc;

 Word.Selection.InsertCaption('图', PicN, '', 0, false);这句话就是加入图注语句。

语法

expression。 InsertCaption( _Label_ , _Title_ , _TitleAutoText_ , _Position_ , _ExcludeLabel_ )

expression：必需。 表示 Selection 对象的变量。

参数

最后

以上就是现代黑猫为你收集整理的【Matlab创建word文档，插入图注或表注】的全部内容，希望文章能够帮你解决【Matlab创建word文档，插入图注或表注】所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。