如何在Matlab中将多个图形插入多个表格?

时间:2011-03-29 04:05:43

标签: matlab ms-word report

以下是我在MATLAB中尝试实现的目标:

第1页

______________
|      |     |
| Fig1 | Fig2|
|      |     |
|______|_____|
|      |     |
| Fig3 | Fig4|
|      |     |
|______|_____|

第2页

______________
|      |     |
| Fig5 | Fig6|
|      |     |
|______|_____|
|      |     |
| Fig7 | Fig8|
|      |     |
|______|_____|

我无法弄清楚传递InsertBreak以获取新页面的参数:

word = actxserver('Word.Application');

word.Visible = 1;

op = invoke(word.Documents,'Add');

active=word.ActiveDocument;

%% Table 1
% Create 4x4 table
range=word.Selection.Range;
shapes=word.Selection.InlineShapes;
t=invoke(word.ActiveDocument.Tables,'add',range,2,2);

% fill each cell with an image, image will fit to table
invoke(shapes,'addpicture',fullfile(pwd, 'fig1.wmf'));

invoke(word.Selection,'moveright',1,1);
invoke(shapes,'addpicture',fullfile(pwd, 'fig2.wmf'));

invoke(word.Selection,'moveright',1,2);
invoke(shapes,'addpicture',fullfile(pwd, 'fig3.wmf'));

invoke(word.Selection,'moveright',1,1);
invoke(shapes,'addpicture',fullfile(pwd, 'fig4.wmf'));

%% Table 2, I want this on a new page
invoke(word.Selection,'InsertBreak',2); % how do I get the next stuff on a new page?
range=word.Selection.Range;
shapes=word.Selection.InlineShapes;
t=invoke(word.ActiveDocument.Tables,'add',range,1,2);

invoke(shapes,'addpicture',fullfile(pwd, 'fig1.wmf'));
invoke(word.Selection,'moveright',1,1);
invoke(shapes,'addpicture',fullfile(pwd, 'fig2.wmf'));

1 个答案:

答案 0 :(得分:1)

尝试以下代替InsertBreak行。它将选择的开始移动到文档的末尾。如果没有移动,您的代码就会在表格单元格中插入分页符。

invoke(word.Selection, 'MoveStart', 6);
invoke(word.Selection, 'InsertBreak');