【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 对象的变量。

参数

参数

名称	必需/可选	数据类型	说明
Label	必需	Variant	要插入的题注标签。 可以是 String 或 WdCaptionLabelID 常量 之一。 如果未定义标签，则会导致出错。 使用 CaptionLabels 对象的 Add 方法来定义新的题注标签。
Title	可选	Variant	要紧接在题注标签之后插入的字符串（如果已指定 TitleAutoText，则忽略该参数）。
TitleAutoText	可选	Variant	要紧接在题注标签之后插入其内容的"自动图文集"词条（将覆盖由 Title 指定的任何文本）。
Position	可选	Variant	指定是否高于或低于所选内容插入题注。 可以是 WdCaptionPosition 常量之一。
ExcludeLabel	可选	Variant	真 没有文本标签，在标签参数中定义。 错误 包含指定的标签。