1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| hdlActiveX = actxserver('Word.Application');
hdlActiveX.Visible = true;
trace(hdlActiveX.Visible);
hdlWordDoc = invoke(hdlActiveX.Documents, 'Add');
tmp = rand(10,2);
dataCell = cell(size(tmp,1),size(tmp,2));
for i=1:size(tmp,1)
for j=1:size(tmp,2)
dataCell{i,j}=num2str(tmp(i,j));
end
end
nbRows = size(tmp,1);
nbCols = size(tmp,2);
hdlActiveX.ActiveDocument.Tables.Add(hdlActiveX.Selection.Range, nbRows+1, nbCols);
hdlActiveX.Selection.TypeText('A');
hdlActiveX.Selection.MoveRight;
hdlActiveX.Selection.TypeText('B');
hdlActiveX.Selection.MoveDown;
hdlActiveX.Selection.MoveLeft;
for c = 1:nbCols
for r = 1:nbRows
if r<nbRows
hdlActiveX.Selection.TypeText(dataCell{r,c});
hdlActiveX.Selection.MoveDown;
else
hdlActiveX.Selection.TypeText(dataCell{r,c});
end
end
hdlActiveX.Selection.MoveRight;
if c<nbCols
for i=1:nbRows-1;
hdlActiveX.Selection.MoveUp;
end
end
end |
Partager