Discussion :

[Forza Matlab]

Bonjour,

Je chercher à générer des rapports à partir de MATLAB en utilisant ActiveX dans Word. J'arrive à écrire du texte, insérer des figures.

Maintenant je voudrais encadrer certains éléments. Dans l'exemple ci-dessous du texte :

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
clc
clear all
 
WordFileName='TestDoc.doc';
CurDir=pwd;
FileSpec = fullfile(CurDir,WordFileName);
actx_Word = actxserver('Word.Application');
actx_Word.Visible = true;
trace(actx_Word.Visible);
if ~exist(FileSpec,'file');
    % Create new document:
    word_handle = invoke(actx_Word.Documents,'Add');
else
    % Open existing document:
    word_handle = invoke(actx_Word.Documents,'Open',FileSpec);
end
 
 
actx_Word.Selection.Borders.Enable = 1;
TextString='Texte encadré';
actx_Word.Selection.TypeText(TextString);
 
actx_Word.Selection.TypeParagraph; %enter
actx_Word.Selection.Borders.Enable = 0;
TextString='Texte PAS encadré';
actx_Word.Selection.TypeText(TextString);
actx_Word.Selection.TypeParagraph; %enter

Dans l'exemple ci-dessus, "Texte encadré" est supposé être encadré. Et "Texte PAS encadré" est supposé ne pas être encadré !!! Mais visiblement, je m'y prends mal.

Même punition quand j'essaye d'encadrer une figure que j'ai copiée/colée depuis Matlab dans mon document word.

Merci d'avance pour votre aide !

[Invité]

Bonsoir,

Il faut que tu définisses les limites de ton encadrement.
Tel que tu le fais, (juste avant ton Borders.Enable = 0) l'encadrement des deux lignes n'est qu'un seul élément. Ainsi sa désactivation supprime celui des deux.

Code :

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

1
2
3
4
5
6
7
8
9
10
startRange = word_handle.Range.Start; % On retient la position de départ
TextString = 'Texte encadré';
actx_Word.Selection.TypeText(TextString);
endRange = word_handle.Range.End;  % On retient la position finale (-1 si tu veux juste le texte et non la ligne)
actx_Word.Selection.TypeParagraph; %enter
word_handle.Range(startRange , endRange).Borders.Enable = 1;  % On applique la bordure
 
TextString = 'Texte PAS encadré';
actx_Word.Selection.TypeText(TextString);
actx_Word.Selection.TypeParagraph; %enter

[Forza Matlab]

Hello,

Merci ! Ca marche !
Désolé si mes questions paraissent triviales...

Petite précision : comme j'ai plusieurs succcessions de texte encadré et pas encadré, j'ai remplacé :

Code :

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

startRange = word_handle.Range.Start; % On retient la position de départ

par :

Code :

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

startRange = actx_Word.Selection.Start;

Autrement, il me prend en sélection depuis le début du document.

Donc, au final ça ressemble à :

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
startRange = actx_Word.Selection.Start; % On retient la position de départ
TextString='Texte encadré';
actx_Word.Selection.TypeText(TextString);
endRange = word_handle.Range.End;  % On retient la position finale 
actx_Word.Selection.TypeParagraph; %enter
 
word_handle.Range(startRange , endRange).Borders.Enable = 1;  % On applique la bordure
 
actx_Word.Selection.TypeParagraph; %enter
TextString='Texte PAS encadré';
actx_Word.Selection.TypeText(TextString);
actx_Word.Selection.TypeParagraph; %enter
 
startRange = actx_Word.Selection.Start; % On retient la position de départ
TextString='Texte encadré';
actx_Word.Selection.TypeText(TextString);
endRange = word_handle.Range.End;  % On retient la position finale 
actx_Word.Selection.TypeParagraph; %enter
 
word_handle.Range(startRange , endRange).Borders.Enable = 1;  % On applique la bordure
 
actx_Word.Selection.TypeParagraph; %enter
TextString='Texte PAS encadré';
actx_Word.Selection.TypeText(TextString);
actx_Word.Selection.TypeParagraph; %enter

etc..., etc...

Merci encore,
A la prochaine...