MATLAB: How to paste figures in an opened ms word document? (programmatically using COM Automation server))

activexms wordword

Is it possible to connect to an opened or active MSword document (the one I'm editing at that moment) and paste any matlab figures? There are a lot of answers were MSword documents are opened or created, but now I want to paste some matlab results into an opened document. I think it must be something like this:

let script connect to the active document using activex server
copy figure programmatically
paste matlab results in word doc programmatically
release connection and leave doc open (so that I can proceed documentation in MSword)

Regards, Patrick

Best Answer

Thanks for all the answers. The following code is what I was looking for. Before running this script you have to open a MS word document. Position the cursor at the position where you want to paste the figure.

% Generate test plot
x = linspace(0,2*pi,1000);
plot(x,sin(x));
% Copy current figure 
print(gcf, '-dmeta')
% Get a handle to the running Microsoft Word program:
h = actxGetRunningServer('word.Application');
% Command line notification 
disp(['Pasting a figure in ' h.ActiveDocument.Name ])
% Pastespecial as Shape
h.selection.PasteSpecial(0,0,1,0,3)
% Modify shape size (72 points in one inch) and convert to
% InlineShape. Move cursor one position to the right for the next action. 
h.selection.ShapeRange.Width = 1*72;     % width = 1inch
h.selection.Shaperange.ConvertToInlineShape
h.selection.Start = h.selection.Start+1;
h.selection.End = h.selection.End+1;
% End notification (optional)
h.selection.TypeText('end')

Patrick

Related Solutions

MATLAB: How to automatically export an image to a Microsoft Word file without using the PUBLISH function in MATLAB 7.10 (R2010a)

You can work with the Word Object Model in MATLAB to add an image to a Word file. For example, suppose you have an image 'test_img.png'. The following script will look for this image in the current working directory and export the image to a word file, 'mydoc.doc' in the current working directory:

imgName =[pwd, '\test_img.png'];
fileName = [pwd, '\mydoc.doc'];
wordApplication=actxserver('Word.Application');
% Define constants.
wdFormatDocument = 0;
%set(wordApplication,'Visible',1); % Great for debugging.
documents = wordApplication.Documents;
% Create a new document. 
documents.Add;
doc = documents.Item(documents.Count);
selection = wordApplication.Selection;
% add picture
selection.InlineShapes.AddPicture(imgName);  % absolute path to the image
selection.TypeParagraph;
selection.TypeParagraph;
% save and close
doc.SaveAs(fileName,wdFormatDocument);
doc.Close(0);
wordApplication.Quit

For more information on Word Object Model, please refer the following webpage:

http://msdn.microsoft.com/en-us/library/kw65a0we%28VS.80%29.aspx

Note that the above script requires Microsoft Word installed on the system.

MATLAB: What is the mistale in the loop

Try this:

clc;    % Clear the command window.
close all;  % Close all figures (except those of imtool.)
clear;  % Erase all existing variables. Or clearvars if you want.
workspace;  % Make sure the workspace panel is showing.
format long g;
format compact;
fontSize = 25;
% Read in a standard MATLAB gray scale demo image.
folder = fullfile(matlabroot, '\toolbox\images\imdemos');
baseFileName = 'cameraman.tif';
% Get the full filename, with path prepended.
fullFileName = fullfile(folder, baseFileName);
% Check if file exists.
if ~exist(fullFileName, 'file')
  % File doesn't exist -- didn't find it there.  Check the search path for it.
  fullFileNameOnSearchPath = baseFileName; % No path this time.
  if ~exist(fullFileNameOnSearchPath, 'file')
    % Still didn't find it.  Alert user.
    errorMessage = sprintf('Error: %s does not exist in the search path folders.', fullFileName);
    uiwait(warndlg(errorMessage));
    return;
  end
end
referenceGrayImage = imread(fullFileName);
% Get the dimensions of the image.
% numberOfColorBands should be = 1.
[rows, columns, numberOfColorBands] = size(referenceGrayImage);
if numberOfColorBands > 1
  % It's not really gray scale like we expected - it's color.
  % Convert it to gray scale by taking only the green channel.
  referenceGrayImage = referenceGrayImage(:, :, 2); % Take green channel.
end
% Display the original gray scale image.

subplot(2, 2, 1);
imshow(referenceGrayImage, []);
title('Original Grayscale Image', 'FontSize', fontSize);
% Enlarge figure to full screen.
set(gcf, 'Units', 'Normalized', 'OuterPosition', [0 0 1 1]);
% Give a name to the title bar.
set(gcf, 'Name', 'Demo by ImageAnalyst', 'NumberTitle', 'Off')
% Let's compute and display the histogram.
[pixelCount, grayLevels] = imhist(referenceGrayImage);
subplot(2, 2, 2);
bar(grayLevels, pixelCount);
grid on;
title('Histogram of original image', 'FontSize', fontSize);
xlim([0 grayLevels(end)]); % Scale x axis manually.
srcFiles = dir(fullfile(folder, '*.jpg')); %directory of the source folder
Im1 = im2double(referenceGrayImage); % Calculate the Normalized Histogram
hn1 = imhist(referenceGrayImage)./numel(referenceGrayImage);
for i = 1 : length(srcFiles)      % determins how many images are there in the folder,
  filename = fullfile(folder,srcFiles(i).name)
  thisImage = imread(filename);
  % Display the original gray scale image.
  subplot(2, 2, 3);
  imshow(thisImage);
  title(filename, 'FontSize', fontSize);
  drawnow;
  Im2=rgb2gray(thisImage);
  Im2 = im2double(Im2);
  hn2 = imhist(Im2)./numel(Im2);
  
  % Calculate the histogram error

  f(i) = sum((hn1 - hn2).^2);% Calculate the histogram error
  f(i) %display the result to console  
  
  promptMessage = sprintf('f=%f\nDo you want to Continue processing,\nor Cancel to abort processing?',f(i));
  titleBarCaption = 'Continue?';
  button = questdlg(promptMessage, titleBarCaption, 'Continue', 'Cancel', 'Continue');
  if strcmpi(button, 'Cancel')
    break;
  end
end

Best Answer

Related Solutions

MATLAB: How to automatically export an image to a Microsoft Word file without using the PUBLISH function in MATLAB 7.10 (R2010a)

MATLAB: What is the mistale in the loop

Related Question