[Reproduced] Matlab generated Word Report

69 points accounted% ';
DTI.Cell (7,1) .Range.Text = [' paper analysis (including compliance with the syllabus, degree of difficulty, covering knowledge '...
' to cover up, the score distribution analysis class, students answer the existence of common problems and knowledge to grasp the situation, the teaching of '...
content' problems and improvement measures) '];
DTI.Cell (7,1) .Range.ParagraphFormat.Alignment =' wdAlignParagraphLeft ';
DTI.Cell (9,2) .Range.Text = 'sign:';
DTI.Cell (9,4) = .Range.Text 'date';
DTI.Cell (10,1) = .Range.Text 'Department review comments: ';
DTI.Cell (10,1) = .Range.ParagraphFormat.Alignment' wdAlignParagraphLeft ';
DTI.Cell (10,1) = .VerticalAlignment' wdCellAlignVerticalTop ';
DTI.Cell (11,2) .Range.Text = 'Department Director (signed): The date';
DTI.Cell (11,2) .Range.ParagraphFormat.Alignment = 'wdAlignParagraphLeft';
DTI.Cell (8,1) = .Range.ParagraphFormat.Alignment 'wdAlignParagraphLeft';
DTI.Cell(8,1).VerticalAlignment = 'wdCellAlignVerticalTop';
DTI.Cell(9,2).Borders.Item(2).LineStyle = 'wdLineStyleNone';
DTI.Cell(9,2).Borders.Item(4).LineStyle = 'wdLineStyleNone';
DTI.Cell(9,3).Borders.Item(4).LineStyle = 'wdLineStyleNone';
DTI.Cell(11,1).Borders.Item(4).LineStyle = 'wdLineStyleNone';

% Being not get to know the meaning, seemingly do not affect
the Shape = Document.Shapes;
ShapeCount = Shape.Count;
IF ~ ShapeCount = 0;
for I =. 1: ShapeCount;
Shape.Item (. 1) .Delete;
End
End

% And placed in the drawing table cell (8,1)
ZFT = Figure ( 'Units', 'Normalized', 'position', ...
[.280469 .553385 .251302 0.428906], 'visible', 'OFF'); define handle%
drawing%
SET (GCA, 'position', [0.85 0.75 0.1 0.2]);
Data = normrnd (0,1,1000,1);
a hist (Data);
Grid ON;
the xlabel ( 'test results');
ylabel (' The number ');

hgexport (zft, '-clipboard') ; Copy the image to the clipboard%
DTI.Cell (8,1) .Range.Paragraphs.Item (1) .Range.PasteSpecial;% paste operations
Shape.Item (1). =. 3 WrapFormat.Type;
Shape.Item (. 1) .ZOrder ( 'msoBringInFrontOfText');
delete (ZFT); delete handle%

= Document.ActiveWindow.ActivePane.View.Type 'wdPrintView';
Document.Save;% save documents
Word.Quit;% Close Document

```

Guess you like

Origin www.cnblogs.com/airbird/p/11455243.html