Discussion :

[solinoid555]

bonjour,

J'arrive à afficher des courbes dans une page word mais ce que j'arrive pas à faire c'est d'afficher les commentairs en bas de chaque courbe,par exemple voila le code qui trace un graphique dans une page word :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
% Create a Word Automation Server and make it visible on the screen.
% This would be the equivalent of opening MS Word
word = actxserver('word.application');
set(word,'visible',1);
 
% Create a new document
doc1 = invoke(word.documents,'add');
 
% Specify the location by creating a range
range = invoke(doc1,'range');
 
numOfFigures = 1;
 
% Loop through and create the figures
for n = 1:numOfFigures
    % Adds a new paragraph
    invoke(doc1.Paragraphs,'Add');
 
    % Select the new paragraph range
    range = invoke(doc1,'range',doc1.Paragraphs.Item(n).Range.Start);
 
    % Create a MATLAB Figure and copy it to the clipboard.  
    plot(1:10)
 
    print(gcf,'-dmeta');
 
    % Paste the figure into the Word Document range that was previously selected
    invoke(range,'Paste')
end
 
% Delete the handles that were created
delete(word)
%END CODE%

et j'aimerai rajouter du texte apres,quelles commandes je dois utiliser ?


J'utillise la version 6.5.1 de Matlab

[Jerome Briot]

Il existe de nombreux exemples disponibles sur le File EXchange (chercher "word activex")

[solinoid555]

j'ai regardé sur File EXchange , quand j'utillise les methodes proposées ça marche pas ,j'ai des messages "Undefined function or variable" qui s'affichent ,peut être c'est du à ma version matlab (6.5.1) ou bien c'est moi qui utillise pas les bonnes commandes.

en tout cas ce que j'ai reussi à faire ,c'est d'afficher le texte que je fais copier (clic droit >copier ) vioci le code:

word = actxserver('word.application');
set(word,'visible',1);
doc1 = invoke(word.documents,'add');
range = invoke(doc1,'range');
n=1
invoke(doc1.Paragraphs,'Add');
range = invoke(doc1,'range',doc1.Paragraphs.Item(n).Range.Start);
invoke(range,'Paste')

delete(word)

Mais moi j'ai besoin d'afficher le texte dont j'ai besoin ,par exemple :A='texte à afficher' ....pour afficher A ,quelle comande je dois utilliser ?

Je pense qu'il suffit juste de rajouter dans le code (qui est plus haut) deux lignes
A='texte à afficher'
et "copier A" <<<je sais pas comment on fais

[solinoid555]

c'est bon ,j'ai trouvé !!!

word = actxserver('word.application');
set(word,'visible',1);
doc1 = invoke(word.documents,'add');
range = invoke(doc1,'range');
n=1
text='texte à afficher';
clipboard('copy',text)
invoke(doc1.Paragraphs,'Add');
range = invoke(doc1,'range',doc1.Paragraphs.Item(n).Range.Start);
invoke(range,'Paste')

delete(word)

[botti23]

Salut! J'ai ton meme probleme d'ecrire sur une page word. J'ai suivi tes indications et maintenant j'ai reussi d'ecrire ou une figure ou du text mais..si on suppose d'avoir 2 figures (f1 et f2), comment on peut ecrire dans la meme page du texte et la 2eme figure??

Merci de ton aide

Francesca

[solinoid555]

voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
word = actxserver('word.application');
set(word,'visible',1);
 
doc1 = invoke(word.documents,'add');
 
range = invoke(doc1,'range');
 
numOfFigures = 2;
 
for n = 1:numOfFigures
 
    invoke(doc1.Paragraphs,'Add');
 
    range = invoke(doc1,'range',doc1.Paragraphs.Item(n).Range.Start);
 
    if n==2
        filename2='Test '
        s='-----Text------'
       clipboard('copy',s)
    else
        plot(1:10);
        print(gcf,'-dmeta');
    end
 
    invoke(range,'Paste')
end
delete(word)

[botti23]

merci