批量将图片插入word（二）

批量将图片插入word（二）

背景

在D:\路径\图片文件夹中有3子文件夹，每个子文件夹中有多张图片，如图：


在D:\路径\文档文件夹中有3个word文档，文档名与D:\路径\图片的子文件夹名称对应，如图：

现在需要将第n个图片文件夹中所有图片插入第n个文档的表格中，如下图所示。

代码介绍

查找特定表格

allTables = document.Tables;
targetText = '迪迦'; % 查找带有“迪迦”字符的表格
appendixE = [];
for tableIndex = allTables.Count:-1:1 % 倒着找
    currentTable = allTables.Item(tableIndex);
    if ~isempty(strfind(currentTable.Range.Text, targetText))
        break;
    end
end
appendixE = allTables.Item(tableIndex);

插入图片到word表格中

% 插入图片
appendixE.Cell(row, col).Range.InlineShapes.AddPicture(imagePath);

调整图片尺寸

% 调整尺寸
width = 425.25;  % 设置宽度（单位：磅=厘米✖28.35）
height =