Word et Perl

**djibril** · 05/08/2005, 20h37

Salut amis perléens,
Je voudrais savoir comment creer et/ou parser un fichier word en Perl. De préférence, si vous avez un exemple de script simple ou une url, je suis prenant.
J'ai entendu qu'il y avait le module win32::OLE, mais en lisant la doc du CPAN, je ne comprends rien, et c'est embétant. Néanmoins, j'ai trouvé un site parlant brievement de Word et Perl, mais ça m'aide pas plus.
A vous le clavier pour me faire part de vos aides et scripts.
Merci !!!

**Jedai** · 05/08/2005, 20h46

A vrai dire si après avoir lu les deux documents que tu nous cites tu ne comprends toujours rien, il va nous être difficile de t'aider... Le format doc est trop compliqué, donc le plus simple c'est d'utiliser Word lui même pour faire ce qu'on veut faire d'un document. Pour ça il faut bien sûr être sous Windows, et on utilise OLE pour diriger Word, à l'aide du module Win32::OLE. Après, il faut connaître les méthodes OLE de Word : pour avoir une liste, utilise le "OLE-Browser" distribué avec ActivePerl.

--
Jedaï

**djibril** · 05/08/2005, 20h52

merci jedai,
je suis d'accord avec toi qu'il est preferable d'utiliser word directement. Ce qui est mon cas car je suis sous windows. Mais bon, curieux que je suis, je me suis dit pourquoi perl et word (comme excel et perl utile pour certains outils bioinfo, info).
Sinon, y a peut etre des pesonnes ayant des exemples simples qui fonctionne!!

**Jedai** · 05/08/2005, 21h12

Pourquoi, ceux que tu as déjà ne fonctionne pas chez toi ?

--
Jedaï

**djibril** · 05/08/2005, 21h20

j'ai juste testé le premier

et il m'ouvre un fichier word avec les 3 lignes, et des message d'erreurs

.
mais bon je prefere comprendre le script

.
voici le script :

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
 
use warnings;
use strict;
 
use Win32::OLE;
 
my $word = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{'Visible'} = 1;
 
my $document = $word->Documents->Add;
 
my $selection = $word->Selection;
 
$selection -> TypeText("Hello World");
$selection -> TypeParagraph;
$selection -> TypeText("How do you feel today");
$selection -> TypeParagraph;
 
$selection -> TypeText("Some header");
$selection -> {'Style'} = "Heading 1";
 
$selection -> TypeParagraph;
 
my $heading_1 = $document->Styles("Heading 1");
my $heading_1_font = $heading_1 -> Font;
 
$heading_1_font -> {Name} = "Bookmann";
$heading_1_font -> {Size} = 20;
$heading_1_font -> {Bold} =  1;

et les messages d'erreurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
OLE exception from "Microsoft Word":
 
L'élément dont le nom est spécifié n'existe pas.
 
Win32::OLE(0.1403) error 0x80020009: "Une exception s'est produite"
    in PROPERTYPUT "Style" at C:\DOCUMENTS AND SETTINGS\PROPRIÉTAIRE\MES DOCUMENTS\APPRENDRE_PROGAMMATION\PERL\word.pl line 19
OLE exception from "Microsoft Word":
 
Le membre de la collection requis n'existe pas.
 
Win32::OLE(0.1403) error 0x800a1735
    in METHOD/PROPERTYGET "Styles" at C:\DOCUMENTS AND SETTINGS\PROPRIÉTAIRE\MES DOCUMENTS\APPRENDRE_PROGAMMATION\PERL\word.pl line 23
Can't call method "Font" on an undefined value at C:\DOCUMENTS AND SETTINGS\PROPRIÉTAIRE\MES DOCUMENTS\APPRENDRE_PROGAMMATION\PERL\word.pl line 24.

**Jedai** · 05/08/2005, 22h52

Tout le début marche apparemment. Et je ne trouve pas qu'il soit difficile à comprendre ! (Taper texte, taper fin du paragraphe, .... )
Après, il y a visiblement une discordance entre sa version de Word et la tienne, je te le répète, le OLE-Browser est là pour ça, te permettre de trouver les méthodes dont tu dois te servir.
Un autre exemple d'emploi pas à pas de OLE et du OLE-Browser :
http://www.perl.com/pub/a/2005/04/21/win32ole.html

Sinon lire les cours et tutoriels pour apprendre Perl : http://perl.developpez.com/cours/

--
Jedaï

**djibril** · 05/08/2005, 23h06

Envoyé par Jedai

Tout le début marche apparemment. Et je ne trouve pas qu'il soit difficile à comprendre ! (Taper texte, taper fin du paragraphe, .... )

J'avais compris qd même 8) , mais c'était surtout savoir lesdifferente methodes existants.

Envoyé par Jedai

Après, il y a visiblement une discordance entre sa version de Word et la tienne, je te le répète, le OLE-Browser est là pour ça, te permettre de trouver les méthodes dont tu dois te servir.
Un autre exemple d'emploi pas à pas de OLE et du OLE-Browser :
http://www.perl.com/pub/a/2005/04/21/win32ole.html

Ok, merci. Sur le lien que tu m'as donné, j'arrive pas à trouver les methodes existantes.

**localboy** · 06/08/2005, 00h46

Salut,

Je viens de tester ton code, en effet une alerte se fait au niveau du programme.

Remarque : Le programme a été fait pour du Word en anglais

Je peux pas te dire pourquoi ni comment mais pour résoudre le problème, il suffit de remplacer dans ton code :

Code :

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

1
2
3
4
5
6
7
8
 
$selection -> TypeText("Some header"); 
$selection -> {'Style'} = "[b]Heading 1[/b]"; 
 
$selection -> TypeParagraph; 
 
my $heading_1 = $document->Styles("[b]Heading 1[/b]"); 
my $heading_1_font = $heading_1 -> Font;

par :

Code :

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

1
2
3
4
5
6
7
8
 
$selection -> TypeText("Some header"); 
$selection -> {'Style'} = "[b]Titre 1[/b]"; 
 
$selection -> TypeParagraph; 
 
my $heading_1 = $document->Styles("[b]Titre 1[/b]"); 
my $heading_1_font = $heading_1 -> Font;

et ça fonctionne !!!

**djibril** · 06/08/2005, 00h55

j'ai toujours le meme message d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
OLE exception from "Microsoft Word":
 
L'élément dont le nom est spécifié n'existe pas.
 
Win32::OLE(0.1403) error 0x80020009: "Une exception s'est produite"
    in PROPERTYPUT "Style" at C:\DOCUMENTS AND SETTINGS\PROPRIÉTAIRE\MES DOCUMENTS\APPRENDRE_PROGAMMATION\PERL\word.pl line 19
OLE exception from "Microsoft Word":
 
Le membre de la collection requis n'existe pas.
 
Win32::OLE(0.1403) error 0x800a1735
    in METHOD/PROPERTYGET "Styles" at C:\DOCUMENTS AND SETTINGS\PROPRIÉTAIRE\MES DOCUMENTS\APPRENDRE_PROGAMMATION\PERL\word.pl line 23
Can't call method "Font" on an undefined value at C:\DOCUMENTS AND SETTINGS\PROPRIÉTAIRE\MES DOCUMENTS\APPRENDRE_PROGAMMATION\PERL\word.pl line 24.

mais le fichier est bien creé et est correct. Mais bon le souci n'est pas là. Sachant que c'est faisable, j'aimerais trouver une doc qui donne les differentes methodes possible utilisable
ex :

Code :

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

1
2
3
4
5
 
-> TypeText
-> TypeParagraph
.....
....

histoire de faire des trucs sympa. Jedai m'a parlé de OLE-Browser mais sur le lien je ne trouve rien du tout. Help!

**djibril** · 06/08/2005, 01h00

bon je vien de trouver un lien, c'est ni en francais, ni en anglais, mais bon, je vais me debrouiller avec les codes pour avancer dans mes comprehension de word et perl

**Jedai** · 06/08/2005, 02h13

histoire de faire des trucs sympa. Jedai m'a parlé de OLE-Browser mais sur le lien je ne trouve rien du tout. Help!

Tu relis mes messages, et tu trouves :

utilise le "OLE-Browser" distribué avec ActivePerl

C'est dans le menu Démarrer > ActivePerl, et ça ne marche que sous internet Explorer parce qu'il y a du ActiveX dedans je crois.

--
Jedaï

**djibril** · 06/08/2005, 02h33

je viens de faire ce que tu m'as dit jedai.
Menu demarer -> activePerl -> Ole Browser
Je suis sous internet explorer et ça ne marche pas, j'ai une page blanche separé en frame

.

**djibril** · 08/08/2005, 13h38

COMMENT VISUALISER OLE BROWSER? car j'ai une page blanche avec internet explorer

**Jedai** · 08/08/2005, 16h03

Effectivement, après vérification, j'ai le même problème, en fait Perlscript ne marche plus du tout dans Internet Explorer : pourrais-tu essayer les exemples Perlscripts sous IE (dans le répertoire Perl/eg/... ou via la documentation) et me dire ce que ça donne chez toi ? Je pense que ça doit venir d'un problème avec SP2 et ses derniers patchs, ou d'une mise à jour d'ActivePerl qui a cassé Perlscript (jusqu'à récemment ça fonctionnait chez moi). J'ai posé la question sur la mailing list d'ActivePerl, avec un peu de chance on aura une réponse rapidement.

--
Jedaï

**djibril** · 08/08/2005, 16h08

Mes perlscripts fonctionnent. J'arrive bien à visualiser mes pages plcalc.htm, plwelcome.htm, plmouse.htm etc

**Jedai** · 13/08/2005, 14h27

Oui sans doute, mais Perlscript marche-t-il ? Par exemple dans plwelcome.htm y a-t-il bien la ligne "Perlscript say : Hello World !" après la ligne "VBScript say : Hello World !" ?

(NB : J'arrive pas à obtenir de réponse, tu peux essayer de te rabattre sur Visual Studio qui dispose d'un équivalent au OLE-Browser)

--
Jedaï

**djibril** · 13/08/2005, 16h00

Envoyé par Jedai

Par exemple dans plwelcome.htm y a-t-il bien la ligne "Perlscript say : Hello World !" après la ligne "VBScript say : Hello World !" ?

non j'ai pas cette ligne dans le fichier plwelcome.htm
voici ce que j'ai sur ma page

Code :

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

1
2
3
4
 
Good afternoon! Welcome to the world of PerlScript.
Just in case you were wondering, it's
3:55:11 PM, Saturday, August 13, 2005

**Jedai** · 13/08/2005, 19h32

Quelle est ta version de ActivePerl ? Ta version de Windows (quel SP ?) ?
J'ai réussi à faire marcher mon PerlScript en mettant tous les paramètres de sécurité au plus bas...

Et mon OLE-Browser marche, donc tu as sûrement un problème de version d'ActivePerl : si tu n'as pas envie de mettre à jour, les solutions sont détaillées sur cette page :
http://bugs.activestate.com/show_bug.cgi?id=34875

Bonne continuation !

--
Jedaï

**Jedai** · 14/08/2005, 18h52

Tu peux aussi utiliser Oleview.exe qui est un outil gratuitement mis à disposition par Microsoft qui accomplit à peu près la même tâche que OLE-Browser en (probablement) mieux et plus clair (si tant est que cela puisse être clair...

).

--
Jedaï

Word et Perl

Modules Perl

Vue hybride

Discussions similaires

Partager

Partager