以下是我在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'));
答案 0 :(得分:1)
尝试以下代替InsertBreak
行。它将选择的开始移动到文档的末尾。如果没有移动,您的代码就会在表格单元格中插入分页符。
invoke(word.Selection, 'MoveStart', 6);
invoke(word.Selection, 'InsertBreak');